vb 随机数 源代码

来源：百度知道 编辑：UC知道 时间：2024/06/27 06:50:07
vb 随机数 源代码要求：

输入起点，终点
求20个在这个区间的随机数
小数点后保留2位小数

谢谢！

A为数组变量. 如果要读取A的数值,用循环就可以读出

'需要控件:command1,text1,text2
Dim A(20) As Single

Private Sub Command1_Click()
Call RndNum(Text1, Text2)
End Sub

Private Sub Form_Load()
Text1 = 2 '起点
Text2 = 100 '终点

End Sub

Sub RndNum(S1 As Long, S2 As Long)
For i = 1 To 20
A(i) = Format(Rnd() * S2, "#.00")
If A(i) < S1 Then A(i) = A(i) + S1
Print A(i)
Next i
End Sub

sub RndNum(iStart as integer, iEnd as integer)
randomize
dim i as integer
for i = 1 to 20
debug.print format(rnd() * (iEnd -iStart) + iStart, "0.00")
next
end sub

调用方式
RndNum(1, 100)

sub RndNum(iStart as integer, iEnd as integer)
randomize
dim i as integer
for i = 1 to 20
debug.print format(rnd() * (iEnd + iStart) + iStart, "0.00")
next
end sub

调用方式
RndNum