Question

用VB求两个数之和，怎么编写代码?

Answer 1

Private Sub Command1_Click()
    Dim a As Single
    Dim b As Single
    Dim c As Single
    a = InputBox(a, "输入a")
    b = InputBox(b, "输入b")
    c = a + b
    Print "a + b ="; c
End Sub

 

在窗体输出结果

Answer 2

1、如果你的水平是刚刚入门的，那么你至少必须提供你窗体上各个控件的名称，比如三个文本框、两个按钮分别是什么名（就是类似Text1、Command1这样的名称），这样我们根据这些就可以写出完整无误的代码，你复制过去就可以吃了，完全傻瓜化；
2、如果你已经入门，但还没到客厅，只是站在门廊里的，那么你应该有一定的代码修改能力。上面几位大神的代码本身是没错的，只是可能跟你的控件名称不符，所以直接运行是会出错的，你只要自己修改一下即可；
3、如果你是还没有入门的门外汉，或者是已经是坐在客厅沙发偷笑的老鸟，那么我们会认为你是故意来涮我们，故意寻开心的，尽早滚蛋！
4、追问的时候不要只说“错”好么？说说错误的详细情况，可能使我们找出问题的原因。虽然知道你是手机提问的，但多打几个字也不是很难的事情对么？

追问

切

答非所问的你，也不过如此

追答

呵呵，我是百度知道VB类总排名第三的，而且排我前面的两位现在已不怎么答题了，所以……好吧，我承认我又答非所问了，真的是不过如此啊，果断匿了……

Answer 3

Private Sub command1_click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

简便一点就是这样，如果还要复杂一点的话，command1应该判断text1和text2是不是空白，是不是填入的是数字。

追问

错了

Answer 4

Text2.Text = Val(Text1.Text) + Val(Text3.Text)
要不
Text1.Text = Val(Text2.Text) + Val(Text3.Text)

Answer 5

双击那个“计算”按钮，写下如下代码(如果那3个文本框是默认名称的话)：
Text3.Text = CDbl(Text1.Text) + CDbl(Text2.Text)