vb如何生成某范围内的随机数字

自定义函数，a是下界（最小数），b是上界（最大数） Private Function Rndz(a As Long, b As Long) Randomize Rndz = Int((a - b + 1) * Rnd() + b) End Function 使用 Private Sub Command1_Click() x = Rndz(1, 50) '随机生成1-50之间的整数，1-50范围可以自己修改 End Sub