VB程序设计基础

VB程序设计基础VB程序设计基础教学目的:1、熟悉VB程序的基本数据类型。

2、掌握VB中常用函数的应用。

3、掌握VB程序的书写规范格式。

教学重点:1、 VB中常用数学及字符串函数应用。

2、 VB中语句的书写规范。

课时安排:理论教学安排8课时，上机练习8课时一、数据类型1、整型Integer(两个字节表示)Long(四个字节表示)2、字节型Byte(一个字节表示)3、实数型Single(单精度型，采用四个字节表示，7位有效数字)Double(双精度型，采用八个字节表示，15位有效数字) 4、货币型Currency(定点小数型，含四位小数) 5、字符型String(用双引号)字符串长度:含有的字符个数。

空串:长度为零的字符串。

6、布尔型Bolean(只有逻辑真---true与逻辑假----false) 7、日期型Date(采用##号的日期串)8、变体型Variant(可能放任何数据类型)二、常量与变量1、常量1)常量的定义在程序过程中值不发生变化的量.2)分类(常数，符号常量)常数: 数值型(23,17.9,1.23E4)字符型("计算机","652"),...... 3)符号常量的定义[private|public] const 常量名 [as 类型]=表达式计算表达式的值，送给符号常量在程序中，通常把常量用大写来表示。

例如:编程序计算圆的面积Private Sub Command1_Click()Dim r As Singler = Val(Text1.Text)Const PI = 3.141Print "圆的面积为" & PI * r * r '在窗体上显示 End SubPrivate Sub Command1_Click() Dim r As Singler = Val(Text1.Text)Const PI = 3.14159Label2.Caption = "圆的面积为" & PI * r * r '在标签上显示 End Sub2、变量1)变量的定义在程序执行过程中值发生变化的量.变量的值指的是程序执行到某一时刻的当前值.2)变量的命名规则例:x,y,x1,y1,x_1不能做为变量名的:print,sub设置变量名时一般有意义. bl,mj3)变量的声明(提倡变量在使用前先声明)dim|public|static|private 变量名 as 类型，变量名 as 类型，……例如:dim x as intger,y as single 声明X是一个整型变量，Y是一个单精度变量dim str1 as string,str2 as string 声明str1和str2为字符变量三、表达式1、表达式的定义用运算符号将常量与变量连接构成表达式2、表达式的分类1)算术表达式数学上的算式运算符:^(乘方)，+，-，*(乘号)，/(除号)，\(整除)，mod(取余)运算优先级:P32几种特殊运算:2^3 2的3次方，结果为825 mod 4 25除以4的余数，结果为125/4 25除以4，结果为6.2525\4 25除以4取整,结果为62)字符串表达式运算符:+ (直接连接), &(转换连接符，可以将数值转换成字符串后连接) "计算机" + 123 -----是一个错误的连接"计算机" & 123 -----123首先会被转换成"123"，再与前面字符串连接，结果是"计算机123"例如:Print "计算机" + "123"Print "计算机" & 1233)日期表达式表达式形式:日期+数值日期-数值日期1-日期2上机练习:1、在窗体中用print来验证表达式的值.2、在窗体上添加一个标签,添加两个按钮"放大""缩小".单击指定按钮时,标签可放大或缩小.作业:1、列举VB中工具箱的控件及它们产生对象的系统默认名，列出你知道的属性。

(至少列举2个)2、保存VB程序时至少会有几个文件，文件的后缀名是什么,试说明文件后缀名的含义。

3、VB中变量命名的规则有哪几条,四、函数1、数学函数注意以下几个:1)exp(x)-----e的x次方int(x)-----求不大于x的最大整数，int(3.5)=3,int(-3.5)=-4int(x+0.5),可以实现对x进行四舍五入rnd(x)-----产生0-1之间的随机数，常与int(x)配合使用。

产生[a,b]区间的随机整数，可以使用公式:int((b-a+1)*rnd+a)例:产生0到100之间的随机整数Private Sub Command1_Click() Dim x As IntegerRandomizex = Int(101 * Rnd)Text1.Text = xEnd Sub2)字符串函数字符的长度等于它包含的字符个数。

3)日期与时间函数例如:在文本框中显示系统时间。

Private Sub Command1_Click() Dim x As Datex = NowText1.Text = xEnd Sub4)类型转换函数val(x)-----用来将数字串转换成数值五、VB中程序代码的书写规则1、语法规则不同的语句有不同的书写方法2、书写规则1)一般一行一句。

可以一行多句，句与句之间用“:”分隔。

一句可以多行，用尾符“_”连接。

2)VB中不区分大小写。

3)各关键字之间用空格分开。

4)使用缩进格式体现程序层次。

上机练习:1、P36例1、22、P45上机调试3Visible(false----按钮不可见,true----按钮可见)很多对象均有visible属性。

3、设x是一个三位数abc，试编写代码输出逆序的cba. 结果用标签来显示:Private Sub Command1_Click() Dim x As IntegerDim a As Integer, b As Integer, c As IntegerDim d As Integerx = Val(Text1.Text)a = Int(x / 100)x = x - a * 100b = Int(x / 10)c = x Mod 10d = c * 100 + b * 10 + a Label2.Caption = "这个数的倒序为" & d End Sub结果用用文本框显示:Private Sub Command1_Click() Dim x As IntegerDim a As Integer, b As Integer, c As IntegerDim d As Integerx = Val(Text1.Text) a = Int(x / 100)x = x - a * 100b = Int(x / 10)c = x Mod 10d = c * 100 + b * 10 + a Text2.Text = dEnd Sub对象的属性1、窗体的windowstate属性。

Form1.windowstate=0 -----正常窗口Form1.windowstate=1-----最小化窗口Form1.windowstate=2 -----最大化窗口 2、字符串函数1) 求字符串长度 len(x)例如:结果用标签显示:Dim x As Integerx = Len(Text1.Text)Label2.Caption = "字符串的长度为" & x结果用文本框来显示:Dim x As Integerx = Len(Text1.Text)Text2.Text = x2) 取子串函数Left(x,n) 从字符串x左边开始取n个字符生成新的字符串。

right(x,n) 从字符串x右边开始取n个字符生成新的字符串。

mid(x,p,n) 从字符串x左边数第p个位置开始取n个字符生成新的字符串。

上机练习:1、P46上机调试题4、5、6Dim a as integer Dim a as string Dim b as integer Dim b as string Dim c as integer A=text1.text A=val(text1.text) B=left(a,1)+right(a,1) B=val(text2.text) Text2.text=b C=a^2+b^2Text3.text=c2、在窗体上加入两个标签。

单击标签1时显示标签2并隐藏标签1;单击标签2时显示标签1并隐藏标签2。

Private sub label1_click() abel1.visible=false LLabel2.visible=trueEnd subPrivate sub label2_click() Label1.visible=trueLabel2.visible=falseEnd sub3、在窗体上加一个按钮,标题为”请单击”.当单击按钮时,在窗体上画一个圆,并且修改窗体的标题为”这是一个画圆的程序”.练习:(1) 函数Fix(x)------取X的整数部分Abs(x)-----取X的绝对值Asc(x)-----取字符X对应的SACII码值chr(X)-----取ASCII码值对应的字符。