实验2 VB程序设计基础.doc

《实验2 VB程序设计基础.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、卖證二VB程序设计基础一、实验目的1.理解数据类型的含义，掌握定义不同数据类型变量的方法。2.掌握对变量进行引用、赋值、输出的方法。3.掌握常用函数的使用方法。二、实验内容1.实验准备在练习文件夹中建立vb2-Kvb厶2、vb2・3、vb2-4>vb2-5文件夹。1.VB数据类型例1：设计一个简单的VB程序，界面如下：图2.1数据类型实验界面设计I图2.2数据类型实验界血设日2（1）创建工程。（2）建立用户界面在窗体上放置车个标签Label1-Label4>四个文本框Text1-Text4以及一个命令按钮,如图2.1、

2、2.2所示。（3）设置各对象的属性各按件主耍屈性的设置参见表2.1。表格2.1各按件主要属性的设置控件属性属性值窗体Form1Caption2.1数据类型实验标签Label1Caption输入原始数据：标签Labcl2Caption整型标签Labcl3Caption单Si度标签Label4Caption双精度（4）编写命令按钮的事件代码n双击“显示”按钮，进入代码编写窗口，编写如下代码:图2.3数据类型实验运行结果PrivateSubCommandl_CIick0DimaAsIntegerDimbAsSingleDim

3、cAsDoubIea二VaI(Textl.Text)b=VaI(Textl.Text)c二Vai(Textl•Text)Text2.Text二aText3.Text=bText4.Text二cEndSub（5）调试运行程序。保存结果到练习文件夹中的vb2-l文件夹。思考题：为什么Tcx【2、Text3>Tcxt4文本框输出结果不一致?1.变量取值范围例2：设计一个简单的VB程序，界面如下:（1）创建工程。（2）建立用八界面。在窗体上添加ConimandButton按钮控件，修改控件Caption性为“计算”，如右图所示

4、。（3）双击按钮控件，切换到代码设计窗口：在过程PrivateSubCommandl_Click（）EndSub中添加程序代码如下：DimjAsIntegerDimkAsLongDimpaiAsSingle,str1AsStringj二100k二100000pai-3.1416str1二'*ThevalueofPaiis:"Printj;kPrintstr1;pai（4）调试运行程序。保存结果到练习文件夹中的vb2-2文件夹。将语句“j=100”改成“j=32768”，然后执行程序。改成“j=32767”，然后执行程序

5、。思考题：为什么当j=32768吋，会出现数据溢出现象？应如何修改？1.赋值语句例3：设计一个简单的VB程序sy02-3（以其作为窗体和工程文件名保存）。（1）创建工程。（2）建立用八界面。与例2相同。（3）双击按钮控件，切换到代码设计窗口：在过程PrivateSubCommandl_Click（）EndSub中添加程序代码如下：DimxAsInteger.yAsIntegerx=1y=2x=x+2y=2*yx=2*y-x+1y=2*y-x+1Printx;y先在纸上写出x=,y=。然后执行程序，看写的结果和运行结果是

6、否一致。（4）调试运行程序。保存结果到练习文件夹中的vb2-3文件夹。4.函例4：设计一个VB程序sy02-4（以其作为窗体和工程文件名保存）。（1）创建工程。（2）建立用户界面。如图2.5、2.6所示，在窗体上画出1个文本框、8个命令按钮,文本框用于输入函数的参数，单击函数按钮后，计算出相应的函数值并显示在文本框内。图2.5函数计算器界面设计图2.6函数计算器运行结果（3）设置各对象的屈性各按件主耍屈性的设置参见表2.2,Command1-Command6对应函数按钮，Caption属性设置为函数名。表格2.2函数计

7、算器各控件的属性设置控件属性属性值窗体Form1Caption2.5函数计算器文本框TcxtlText消空命令按钮Command1CaptionInt命令按钮Command2CaptionSin命令按钮Command3CaptionCos命令按钮Command4CaptionAbs命令按钮Command5CaplionSqr命令按钮Command6CaptionRnd命令按钮Command7Caption清除命令按钮Command8Caption退出（4）编写命令按钮的事件代码。逐个双击命令按钮，进入代码设计窗口，依次

8、输入以下程序代码段:（5）调试运行程序。保存结果到练习文件夹中的vb2・4文件夹。PrivateSubConimand1_CIick0Int取整Textl.Text二Int(Vai(Textl.Text))EndSubPrivateSubCommand2_CIick()Sin正弦Textl.Text二Sin(Vai(Textl.T