随机问题

Question

7个text  一个按钮
用户分别在这7个中输入一些文字（任意）然后点一下安装，随机打乱显示刚才输入的7组文字

Answer 1

Private Sub CommandButton1_Click()
    Dim mCol As New Collection
    Dim i As Integer
    Dim intTemp As Integer
    Dim strMsg As String
    
    Randomize
    
    For i = 1 To 7
        mCol.Add i
    Next i
    
    While mCol.Count > 0
        intTemp = Int(Rnd() * mCol.Count + 1)
        strMsg = strMsg & " " & Controls("textbox" & mCol.Item(intTemp)).Text
        mCol.Remove (intTemp)
    Wend
    
    MsgBox strMsg
    
End Sub

Answer 2

已经测试成功，你是在vb里用？还是vba？我这个是vba的。
vb这样Private Sub Command1_Click()
    Dim mCol As New Collection
    Dim i As Integer
    Dim intTemp As Integer
    Dim strMsg As String
    
    Randomize
    
    For i = 1 To 7
        mCol.Add i
    Next i
    
    While mCol.Count > 0
        intTemp = Int(Rnd() * mCol.Count + 1)
        strMsg = strMsg & " " & Controls("text" & mCol.Item(intTemp)).Text
        mCol.Remove (intTemp)
    Wend
    
    MsgBox strMsg
    
End Sub