用VB计算1+1=2

领测软件测试网

　　 
　　之所以用VB计算1+1=2，是为把一个从没接触过VB的人带入VB的有趣世界。初步认识一下VB。

不管你能不能看懂这是什么意思，请先照下面说的去做吧（当然是对初学者来说），等学习了后面的教程你就会明白的！

第一步：运行VB（这里以VB5.0中文版为例，下同）。

第二步：新建一个标准EXE工程。运行VB时直接建立或使用“文件”菜单中的“新建工程”。

第三步：你会见到一个称为“Form1”的窗体。现在请点击一下工具箱（一般位于左边）中的那个大“A”，称为Label，然后在Form1中拖动一下。就绘出一个控件，记住，这个东西叫“控件”，而且是一个标签控件。你还可以调整它的大小。

第四步：点击一下刚才你绘出的控件，然后找到属性窗口（一般在右边），看到其中有一个Caption属性，属性值为Label1。请将其值改为“第一个加数”。

第五步：从工具箱中找到“TextBox”控件，鼠标悬停在上面会有提示。点击一下，然后在Form1中拖动一下，就绘出一个文本框控件。将这个文本框控件放在你刚才创建的标签控件的下面。再点击一下，找到属性窗口中的text属性，将该属性值改为空。

第六步：重复第三至第五步，只不过要把新的标签控件的Caption属性设为“第二个加数”。注意各个控件不要重叠在一起。

第七步：重复第三至第五步，只不过要把新的标签控件的Caption属性设为“两数的和”。注意各个控件不要重叠在一起。

第八步：从工具箱中找到“CommandButton”控件，用同样的方法绘制到Form1中，并将其Caption属性设为“两数相加”。

第九步：双击你刚才创建的CommandButton控件，会弹出代码窗口，其中已经有一部分自动生成的代码，如下所示：

Private Sub Command1_Click()

　

End Sub

请在其中加一行，成为：

Private Sub Command1_Click()

Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))

End Sub

至此，你的第一个程序就完成了。

运行一下吧！点击工具栏上的启动按扭或使用运行菜单中的启动或按F5均可。运行时会弹出一个窗口（就是刚才那个Form1）。在前两个文本框中都输入1，然后点击“两数相加”按扭，看看出现了什么？

好了，别忘记存盘，会生成两个文件，一个.frm文件，一个.vbp文件，名字任你起。

现在让我们分析一下刚写的那句代码：

Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))

聪明的你一定看明白了，这句代码的意思就是将两个文本框中的文本分别先转换为数字，然后相加，再转为字符串在Text3中输出。注意不能写成：

Text3.Text = Text1.Text + Text2.Text

因为字符串相加和数值相加是不一样的。数值相加时1+1=2，而字符串相加时"1"+"1"="11"。

　

思考题：将Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))

改为：Text3.Text = Val(Text1.Text) + Val(Text2.Text)会发生什么情况？为什么？

请验证一下！

文章来源于领测软件测试网 https://www.ltesting.net/