在窗体上画一个命令按钮,然后编写如下过程:
Private Sub Form_Click()
Dim a As String, b As String
a = InputBox("请输入第一个数")
b = InputBox("请输入第二个数")
Print b + a
End Sub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入10和20,那么输出结果是:
第一、你的a与b定义的是字符型数据:Dim a As String, b As String
第二、b + a 实际上与 a & b 是一样的,是字符串连接,即"20" + "10",结果当然是 "2010"
第三、如果要得到 b + a = 30 有二种办法:
1、Dim a As Integer , b As Integer'将a与b的数据类型定义为整形数据
2、Print Val(b) + Val(a) '强制将a和b转换为数字
这样打印到窗体的结果就应该是 30 。