Question

Msgbox如何显示两个值。

Private Sub Command1_Click()
Select Case Text1.Text
Case "01"
MsgBox "500"
Case Else
MsgBox "error"
End Select
Select Case Text2.Text
Case "A"
MsgBox "一二三"
Case Else
MsgBox "error"
End Select
End Sub

运行后会弹出msgbox，第一次出现500.再点一次出现“一二三”
我的想法是让 500和一二三 出现在同一个msgbox里。和解？或者把他们都保存到listbox里
求指教

Answer 1

声明一个字符串变量,用该变量收集要显示的值,最后显示这个变量值就行了,改后如下:
Private Sub Command1_Click()
Dim s As String
Select Case Text1.Text
Case "01"
s = "500"
Case Else
s = "error"
End Select
Select Case Text2.Text
Case "A"
s = s & "一二三"
Case Else
s = s & "error"
End Select
MsgBox s
End Sub

追问

我懂了、可以定义多个字符串变量。。

追答

不用,只需要这样
s = s & "新的数据"
因为之前的数据已经被连接并保存在变量s中了,所以,每次只需要将新的值连接在变量s后面并保存到s就行了.