随机问题
7个text 一个按钮用户分别在这7个中输入一些文字(任意)然后点一下安装,随机打乱显示刚才输入的7组文字 --------------------编程问答--------------------
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
如果问题解决请结贴 --------------------编程问答--------------------
随机打乱的定义是什么?
--------------------编程问答-------------------- upupupupupupupupupupupupupupupupupup --------------------编程问答-------------------- 怎么没反映啊 不知道你试过没有
--------------------编程问答--------------------
已经测试成功,你是在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
补充:VB , VBA