AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > VB编程

用VB计算1+1=2

51自学网 http://www.wanshiok.com
之所以用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)会发生什么情况?为什么?

请验证一下!

 

 

 
上一篇:利用VB6.0设计屏幕保护程序  下一篇:用VB编写“红绿灯”程序