vb作业：求两个数的加法，输入数据用inputbox函数，输出数据用msgbox过程

Private Sub Form_Click()  '点击窗体运行程序

MsgBox "两个数的和为" & (Val(InputBox("请输入第一个数")) + Val(InputBox("请输入第二个数")))

End Sub

Private Sub Command1_Click()MsgBox "加法运算：" &Text1.Text &" + " &Text2.Text &" = " &(Val(Text1.Text) + Val(Text2.Text)) &VbCrlf &"字符串连接：" &Text1.Text &Text2.TextEnd Sub

添加3个TEXT，和1个COMMAND按钮，把下面代码复制即可

Private

Sub

Command1_Click()

Text3

=

Val(Text1)

+

Val(Text2)

End

Sub

其中Text1和Text2是你要输入的两个加数，command是把两个数相加，text3是结果

---