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

1、自定义函数，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