之所以用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控件,会弹出代码窗口,其中已经有一部分自动生成的代码,如下所示:
PrivateSubCommand1_Click()
EndSub
请在其中加一行,成为:
PrivateSubCommand1_Click()
Text3.Text=Str$(Val(Text1.Text) Val(Text2.Text))
EndSub
至此,你的第一个程序就完成了。
运行一下吧!点击工具栏上的启动按扭或使用运行菜单中的启动或按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)会发生什么情况?为什么?
请验证一下!
->