Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
c = a + b
Print c
End Sub