VB.NET中怎么实现每单击一次按钮,文本框就多出现一个1-13的随机数字?

只有一个按钮,一个文本框,总的要出现5个互不相同的随机数字。那位大神可以帮帮忙!

Dim n As Integer, b As Integer, a(13) As Integer
Private Sub Command1_Click()
If b < 5 Then
b = b + 1
x = Int(n * Rnd()) + 1
Text1.Text = Text1.Text & a(x) & " "
a(x) = a(n)
n = n - 1
Else
Call Form_Load
End If

End Sub

Private Sub Form_Load()
Randomize
n = 13: b = 0
For i = 1 To 13
a(i) = i
Next i
Text1.Text = ""
End Sub追问

这感觉是vb的吧,没有vb.net的麽

追答

没学过VB.NET

温馨提示:内容为网友见解,仅供参考
无其他回答
相似回答