[求助]关于VB中RND函数的使用
请问这里的高手我现在需要在两个文本框里显示两个随机数,要求不能出现重复,请问如何实现
产生随机数很简单,但是我不知道如何使这来两个文本框里的数字不相同
请问这里的高手我现在需要在两个文本框里显示两个随机数,要求不能出现重复,请问如何实现
产生随机数很简单,但是我不知道如何使这来两个文本框里的数字不相同
请问这里的高手
2006-05-05 12:19
Option Explicit
Private Sub Command1_Click()
Randomize
Dim StrTxt2 As String
Text1.Text = CStr(Int(Rnd * 100))
strLoop:
StrTxt2 = CStr(Int(Rnd * 100))
If StrTxt2 = Text1.Text Then
GoTo strLoop
Else
Text2.Text = StrTxt2
End If
End Sub
2006-05-05 13:49