VB 随机正整数的代码

新建一个VB工程，添加标签，标签内容分别为“产生一个65-90的随机正整数”,添加一个按钮，按钮上显示“随机产生大写字母”。在按钮的事件过程中编写代码，使得程序运行时，在文本框中随机产生一个正整数

Private Function GetRandomNumber(ByVal lngStart As Long, ByVal lngEnd As Long) As Long
Dim lngAB As Long
lngAB = Abs(lngStart - lngEnd)
If lngAB = 0 Then
GetRandomNumber = lngStart
Exit Function
End If
Randomize Timer
If lngStart > lngEnd Then
GetRandomNumber = Int(lngStart - Rnd(Timer) * lngAB) + 1
Else
GetRandomNumber = Int(lngStart + Rnd(Timer) * lngAB) + 1
End If
End Function

函数调用：Ret = GetRandomNumber(区间起始值, 区间结束值)
例如要参数区间 [65, 90] 的随机数：Ret = GetRandomNumber(65, 90)
希望采纳，谢谢！！！

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fms47p27qs8s7v28vv7.html