1到9的随机排序怎么样写程序

在九个文本框中，每按一次命令按钮就会显示不同的数字。

Private Sub Command1_Click()
Dim a As Integer
For i = 1 To 9
Randomize
a = Rnd * 5000
If i = 1 Then Text1.Text = a
ElseIf i = 2 Then Text2.Text = a
ElseIf i = 3 Then Text3.Text = a
ElseIf i = 4 Then Text4.Text = a
ElseIf i = 5 Then Text5.Text = a
ElseIf i = 6 Then Text6.Text = a
ElseIf i = 7 Then Text7.Text = a
ElseIf i = 8 Then Text8.Text = a
Else: Text9.Text = a
End If
Next i
End Sub
----------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Text1.Text = ""
For i = 1 To 9
Randomize
a = Rnd * 5000
Text1.Text = Text1.Text & a & vbCrLf
Next i
End Sub

先创建一个文本框，然后复制粘贴创立控件数组text1(),创建一个command1 Private Sub Command1_Click() Randomize (Timer) k = "123456789" For I = 0 To 8 Cl: x = Int(Rnd() * 9 + 1) If Val(Mid(k, x, 1)) = x Then Text1(I) = x: Mid(k, x, 1) = "0" Else GoTo Cl Next I End Sub

int num = (int)(math.random() * 10 + 1); 随机生成1-9之间的数字，math.random()这个方法生成的是0-1之间的数，所以乘以10加上1，然后强制装换成整数

先创建一个文本框，然后复制粘贴创立控件数组 Randomize For i = 0 To 8 a = 5000 * Rnd Text1(i).Text = a Next

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息