Question

vb 如何点下按钮随机产生一个特定的从text1.text到text2.text的不重复的数

Answer 1

dim a ,b(数值型）
a=“随机数”
b=“随机数”
if a =b then
重新产生随机数A ,b
else
text1 .text =a
text2 .text =b
endif
用手机回的，不全，请见谅^_^

Answer 2

Private Sub Command1_Click()
Dim a%, b%
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Int(Rnd * (b - a + 1)) + a
End Sub

Answer 3

输出到text3中，按command1开始
Private Sub Command1_Click()
Dim a%, b%
a = Val(Text1)
b = Val(Text2)
Text3 = Round(Rnd() * (b - a) + a)
End Sub

追问

要不重复的

追答

Dim c() As Integer

Function IsRepeat(n As Integer)
Dim i%
IsRepeat = False
For i = 1 To UBound(c)
If n = c(i) Then
IsRepeat = True
Exit For
End If
Next
End Function

Private Sub Command1_Click()
Dim a%, b%
Static index%
a = Val(Text1)
b = Val(Text2)
ReDim Preserve c(b - a + 1) As Integer

If index < b - a + 1 Then
Do While IsRepeat(Val(Text3))
Text3 = Round(Rnd() * (b - a) + a)
Loop
index = index + 1
c(index) = Val(Text3)
End If
End Sub

text1到text2之间的数用完之后就不再变化了