VB 如何生成50-100之间的随机整数?

如果只是取一个数的话，楼上几位朋友的方法都可以，如果是想取一组数的话，给你一个函数和例子：

Private Sub Command1_Click()
Dim lngArr() As Long
Dim i As Integer
Dim intCount As Integer

lngArr = GetNoRepeatRnd(50, 100)
intCount = UBound(lngArr)
For i = 1 To intCount
Debug.Print lngArr(i)
Next
End Sub

'************************************************
'** 函数名称: GetNoRepeatRnd
'** 函数功能: 产生无重复的随机数
'** 参数说明:
'** lngMinNum 要生成的随机数的最小值
'** lngMaxNum 要生成的随机数的最大值
'** 函数返回:
'** 返回一下标始终为1,上标为lngMaxNum - lngMinNum + 1的随机数列
'** 参考实例:
'** 生成从 1 到 50 之间的随机数
'** Dim lngRnd() As Long
'** lngRnd = GetNoRepeatRnd(1, 50)
'************************************************
Public Function GetNoRepeatRnd(ByVal lngMinNum As Long, ByVal lngMaxNum As