Question

vb6关于msgbox的问题！

在一个按钮加入以下代码：
Private Sub Command1_Click()
Dim a(3) As String
a(0) = "1"
a(1) = "2"
a(2) = "3"
a(3) = "4"
Randomize
MsgBox a(Int(Rnd * 4)), vbOKOnly, "结果"
End Sub

可以随机抽取，但如何在msgbox弹出窗口中显示结果（1,2,3,4）前加入文本框text输入的内容？

eg.在文本框中输入“我是”
然后msgbox会随机显示“我是1”或“我是2”或“我是3”或“我是4”

Answer 1

Private Sub Command1_Click()
Dim a(3) As String
a(0) = "1"
a(1) = "2"
a(2) = "3"
a(3) = "4"
Randomize
'在msgbox弹出窗口中显示结果（1,2,3,4）前加入文本框text输入的内容
MsgBox test.test & Cstr(Rnd * 4), vbOKOnly, "结果"
End Sub

Answer 2

Private Sub Command1_Click()
Dim a(3) As String
a(0) = "1"
a(1) = "2"
a(2) = "3"
a(3) = "4"
Randomize
MsgBox Text1.Text & a(Int(Rnd * 4)), vbOKOnly, "结果"
End Sub

Answer 3

'例如放入一个名为TEXT1的文本框
'将MSGBOX一句改为：
MsgBox Text1.Text & a(Int(Rnd * 4)), vbOKOnly, "结果"