用VB计算1 1=2

2018-06-17 17:14:29来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

之所以用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)会发生什么情况?为什么?

请验证一下!

->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Combo的自动查询技术

下一篇:VisualBasic制作透明的表单(Form)