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 Single

r = Val(Text1.Text)

Const PI = 3.141

Print "圆的面积为" & PI * r * r '在窗体上显示 End Sub

Private Sub Command1_Click() Dim r As Single

r = Val(Text1.Text)

Const PI = 3.14159

Label2.Caption = "圆的面积为" & PI * r * r '在标签上显示 End Sub

2、变量

1)变量的定义

在程序执行过程中值发生变化的量.变量的值指的是程序执行到某一时刻的当前值.

2)变量的命名规则

例:x,y,x1,y1,x_1

不能做为变量名的:print,sub

设置变量名时一般有意义. bl,mj

3)变量的声明(提倡变量在使用前先声明)

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次方，结果为8

25 mod 4 25除以4的余数，结果为1

25/4 25除以4，结果为6.25

25\4 25除以4取整,结果为6

2)字符串表达式

运算符:+ (直接连接), &(转换连接符，可以将数值转换成字符串后连接) "计算机" + 123 -----是一个错误的连接

"计算机" & 123 -----123首先会被转换成"123"，再与前面字符串连接，结果是"计算

机123"

例如:

Print "计算机" + "123"

Print "计算机" & 123

3)日期表达式

表达式形式:

日期+数值

日期-数值

日期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)=-4

int(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 Integer

Randomize

x = Int(101 * Rnd)

Text1.Text = x

End Sub

2)字符串函数

字符的长度等于它包含的字符个数。

3)日期与时间函数

例如:在文本框中显示系统时间。

Private Sub Command1_Click() Dim x As Date

x = Now

Text1.Text = x