vb隨機函數用法和實例?