资源描述：
《vb教程第2章(实验课练习)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第2程序设计基础常量、变量、函数及表达式是构成VB应用程序的基本元素，也是程序设计的重要基础知识。学习和熟悉掌握这些元素，对以后的程序设计是十分重要的。第2章程序设计基础程序中的大部分实际工作是采用程序代码来处理的任何一门程序设计语言都有一套严格的编程规定本章主要内容退出数据类型常量与变量表达式常用内部函数2.1数据类型在使用计算机来处理数据时，会遇到各种不同类型的数据。例如，一个人的姓名是由一串文本(字符)组成，成绩、年龄和体重都是一个数值，而是否大学毕业则是一个逻辑值，等等。为了更好地处理各种各样的数据，VB定义了多种数据类型数值型数据类型字符型逻辑型日期型对象型变体型整数:整型
2、/长整型字节型浮点型:单/双精度货币型数值型数据(1)整型(Integer)和长整型(Long)不带小数部分的数，表示正整数、负整数和零 整型数:-32768～32767长整型数：-2147483648～2147483647(2)字节型(Byte)字节型数可以表示无符号的整数0～255(3)单精度型(Single)和双精度型(Double)浮点数。表示带有小数部分的数 表示数的范围大，但有误差。 如超出某个表示范围，则用科学记数法 例如：4.53E8(4.53×108)，8.173E-14，3.14D23(4)货币型(Currency)专门为处理货币而设计的数据类型 它可最多保留
3、小数点右边4位和小数点左边15位其他类型数据(2)逻辑型数据只有True(真)和False(假)两个值(3)日期型数据用两个“#”符号把日期和时间的值括起来 如：#08/20/2001#、#2001-08-20#(4)变体型(Variant)数据是一种可变的数据类型，可以存放任何类型的数据，VB会自动完成必要的转换 不特别说明时，VB会自动将该变量默认为Variant型变量 例：Temp=“22”’字符串Temp=Temp-1’数值Temp=#01/01/2002#’日期编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimaAsSingle,bAsSingl
4、e,cAsSinglea=6b=9c=Sqr(a*a+b*b)Print"c=";cEndSub运行程序后单击窗体，输出结果是：c=10.81665例2.1（实验课练习）已知a=6，b=9，计算c=例2.1编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerRandomize'初始化随机数生成器a=Int(90*Rnd+10)'产生[10,99]区间内的随机整数b=Int(90*Rnd+10)c=a+b'求两数之和Print"产生的两个随机数:";a,bPrint"和数:";cEndSub运行
5、程序后单击窗体，输出结果是：产生的两个随机数：5671和数：127例2.2通过随机函数产生2个两位正整数，求这2个数之和并显示出来再次运行程序，单击窗体后输出另一组结果是：产生的两个随机数：1837和数：55例2.2用于进行字符串处理说明：(1)函数Mid(字符串，p[，n])从第P个开始取n个字符示例：Mid(“ABCDEG”,3,2)的结果为”CD”若省略n，则得到的是从P开始的往后所有字符，如Mid(“ABCDE”，2)的结果为“BCDE”(2)函数Instr(f,串1,串2,k)查找串2在串1中的位置f和k均为可选参数，f表示开始搜索的位置(默认值为1)，k表示比较方式，若
6、k为0(默认)，表示区分大小写；若k为1，则不分大小写。例如Instr(3,”A12a34A56”,”A”)的结果为7Instr(3,”A12a34A56”,”A”,1)的结果为4Instr(”A12a34A56”,”A”)的结果为1(3)函数Left(字符串，n)取左边n个字符示例:Left(”ABCDE”，2)的结果为”AB”字符串函数先从字符串a中找出某个指定字符(本例为空格)，再以此字符为界拆分成两个字符串。编写的窗体单击过程代码如下：PrivateSubForm_Click()DimaAsString,bAsString,cAsString,nAsIntegera="Visua
7、l└┘Basic"'└┘表示空格n=InStr(a,"└┘")'查找空格位置b=Left(a,n-1)'取左边部分c=Mid(a,n+1)'取右边部分Printb'显示左边部分Printc'显示右边部分EndSub程序运行后单击窗体，输出结果是：Visual Basic例2.3（实验课练习）使用字符串函数示例例2.3处理方法"Visual└┘Basic"先查找空格位置取右边部分取左边部分PrivateSubForm_Click()
