vb生成1-9随机数,随机打乱分行置于text1中，互不重复（1，2，3，4，5，6，7，8，9）

Question

如题所述

Answer 1

做一个文本框Text1，并设置其Multiline属性为True，再做一个Command1按钮，其代码如下：

Private Sub Command1_Click()

Dim a(9) As Integer, i As Integer, t As Integer

Text1.Text = ""

For i = 1 To 9

  a(i) = i

Next i

Randomize

For i = 9 To 1 Step -1

  t = Int(i * Rnd) + 1

  Text1.Text = Text1.Text & a(t) & vbCrLf

  a(t) = a(i)

Next i

End Sub

Answer 2

Private Sub Command1_Click()
Dim s As String, x As Integer
Randomize
s = "123456789"
Text1.Text = ""
Do
    x = Int(Rnd * 9) + 1
    If InStr(s, x) Then
        Text1.Text = Text1.Text & x & vbCrLf
        s = Replace(s, x, " ")
    End If
Loop Until Trim(s) = ""
End Sub

本回答被提问者采纳

Answer 3

结果要1行 还是3×3？