vb怎么产生随机数? 指定随机数从text1至text2，点击按钮输出的3个随机数分别在3个标签中。
最新回答
西风过纱
2025-06-21 11:41:24
private sub command1_click()
dim a as integer
dim b as integer
dim r(1 to 3) as integer
dim i as integer
a=val(text1.text)
b=val(text2.text)
for i=1 to 3
randomize
if a<b then
r(i)=int(rnd*(b-a+1)+a)
else
r(i)=int(rnd*(a-b+1)+b)
endif
next
label1.caption=str(a(1))
label2.caption=str(a(2))
label3.caption=str(a(3))
end sub
风与纸片人
2025-06-21 07:35:34
Private Sub Command1_Click()
Dim aa As String
Dim i, j, bb, cc As Long
If Val(Text1) > Val(Text2) Then
cc = Val(Text1) - Val(Text2)
Else
cc = Val(Text2) - Val(Text1)
End If
If cc > 10 Then
bb = 1
For j = 1 To Len(Format(cc, "0"))
bb = bb * 10
Next
End If
Randomize Timer
i = Int(Rnd() * bb) Mod cc
If Val(Text1) > Val(Text2) Then
i = i + Val(Text2)
Else
i = i + Val(Text1)
End If
Label1 = i
Randomize Timer
i = Int(Rnd() * bb) Mod cc
If Val(Text1) > Val(Text2) Then
i = i + Val(Text2)
Else
i = i + Val(Text1)
End If
Label2 = i
Randomize Timer
i = Int(Rnd() * bb) Mod cc
If Val(Text1) > Val(Text2) Then
i = i + Val(Text2)
Else
i = i + Val(Text1)
End If
Label3 = i
End Sub
晨曦慕雪
2025-06-21 11:52:31
热门标签
