4.1.3 认识程序中的基本元素公开课教案

4.1.3认识程序中的基本元素

1

数据类型

程序设计中，要处理各种各样的数据，不同的程序设计语言有不同的数据类型(Data Type）；在上一节的打字测试程序中，涉及到的数据就有开始时间、结束时间、输入字符所花时间、输入字符数、打字速度等。

数据类型实际上是一种约定。我们知道，计算机是0和1的世界，它的数据是以

0 和

1 的形式存储。如二进制“01000001”，如果约定为数值，它表示整数65；如果约定为字符则表示字母“A”。不同的约定，计算机分配的存储空间也是不同的。在VB中，为了便于数据的表示与处理，VB提供了数值型、字符串型、布尔型、日期型等基本数据类型，表1－4所示的是我们常用的数据类型。

表

1

VB 的数据类型

在表1中，整型、长整型、单精度和双精度都属于数值型，它们表示数值的范围是不同的。其中单精度和双精度又合称为浮点型。

字符串型数据是指用“”括起来的一串字符。如＂欢迎进入VB世界！＂、＂Visual Basic＂、＂1234＂都是字符串类型。

布尔型又称逻辑型，常用于表示逻辑判断的结果，如“真/假”、“是/非”等，其值为

True 或

False，分别表示逻辑真和逻辑假。VB 中也常用数值

0 表示假值，-1 表示真值。

日期型数据专门用来处理日期和时间。VB 采用一对“#”把日期和时

间的值括起来，如

#2003/08/20# 表示

2003 年

8 月

20 日。

2

常量与变量

1. 常量

在“打字测试软件”程序中，计算打字速度时，我们需要将打字时间除以60，把秒转化为分钟；在程序运行期间“60”始终保持不变，我们把它叫做常量(Constant）。VB中的常量有数值常量、字符串常量等。

(1) 数值常量类似于数学中的常数，如前面的“60”。

(2)用一对双引号括起来的字符串称为字符串常量。例如,“China”、“Visual Basic”、“18”、“3.14”等。字符串常量指的是双引号中的字符，不包括

双引号本身。

如果程序中多次用到同一个常量，往往用一个有意义的符号表示，这种常量称为符号常量；代表常量的符号称为“常量名”，其定义形式如下：

Const 常量名

[As 类型]＝表达式

如：Const PI ＝

3.1415926

（1）比较下面两段计算圆周长和面积的程序，你认为哪段程序更好，为什么？

Private

Sub

Form_Click()

Dim r As Single ' 定义

r 为单精度型

Dim c As Single ' 定义

c 为单精度型

Dim s As Single ' 定义

s 为单精度型

r = InputBox(" 输入

r：") ' 输入半径

r c = 2*3.14*r ' 计算周长

s = 3.14*r*r ' 计算面积

Print c

' 输出周长

Print s

' 输出面积

End Sub

Private Sub Form_Click() Const PI=3.14 ' 定义符号常量

Dim r As Single ' 定义

r 为单精度型

Dim c As Single ' 定义

c 为单精度型

Dim s As Single ' 定义

s 为单精度型

r = InputBox(" 输入

r：") ' 输入半径

r

c = 2*PI*r ' 计算周长

s = PI*r*r ' 计算面积

Print c ' 输出周长

Print s ' 输出面积

End Sub

2. 如果把π值改为

3.14159265，哪段程序修改起来更方便？为什么？

2.

变量

变量(Variable)原来是数学里的概念，程序设计借用过来，赋予它新的含义。

我们知道计算机在处理数据时，首先要将数据调入内存单元，然后才能进行各种操作。

而内存单元类似旅馆里的房间，只有编号没有具体名称，编程时如何操纵这些单元呢？高级语言是借助变量实现的。程序设计中的变量和家庭使用的信箱类似：变量有一个名字，它对应着相应的内存单元；家庭信箱名称对应一个具体的收信地点。

（1）变量命名

变量名可以简单地用i、j、k等单个字母表示，也可以包含比较复杂的信息描述，如“打字测试软件”程序中使用的intTimeCost和intWordCount，分别表示打字所花时间和输入的字符数。尽管变量命名可以有很大范围的自由度，但是还必须遵守以下几个约定：

①

必须以字母或汉字开头，而不能以数字或其他字符开头。

②

只能由字母、汉字、数字和下划线组成，不能含有小数点、空格等字符。

③

字符个数不超过255 个。

④

变量名不能使用VB中的保留字。

⑤

VB不区分变量名中字母的大小写。如HELLO和Hello是同一个变量。

⑥

为增加程序的可读性，变量名最好取有意义的名称，建议前面加上

类型缩写。

VB编码约定：变量命名时，往往用前缀表明数据类型，这种命名规则是由匈牙利规则演变而来的。

表2列出了一些常用的变量类型的前缀。

表2

常用的变量类型的前缀

（2）变量声明

变量应该先声明后使用。VB中声明变量的方法是：

Dim

变量名

As

数据类型

例如：

Dim

NAs

Integer

还可以在一行中定义多个变量，例如：

Dim

dtmBeginTimeAs

Date,

dtmEndTimeAs

Date

Dim

intTimeCostAs

Integer,

intWordCountAs

Integer

1. 请用英语表示

a,b,c 为整型数据，再用

VB 语言定义

a,b,c 为整型数据，试

比较用自然语言描述和程序设计语言描述有何异同。

2. 在窗体的

Click 事件中编写一段程序求5！，程序代码如下。

Private Sub Form_Click() Dim i As Integer，x As Integer x = 1

For i = 1 To 5 x = x*i Next i

Print "x = ";x

End Sub

请留意求5！的程序代码中变量的定义语句，完善以下两段程序，并上机运行。

(1)

计算

10！

Private Sub Form_Click() Dim i As ，x As x = 1

For i = 1 To 10 x = x*i

Next i

Print "x = ";x

End Sub

(2)

计算

100！

Private Sub Form_Click() Dim i As ，x As x = 1

For i = 1 To 100 x = x*i Next i Print "x = ";x

End Sub

完善程序后，请上机运行。

3. 比较第

2 题中的三段程序，说出定义不同数据类型的理由。

3

运算符与表达式

在打字测试程序中，我们是这样计算打字速度的：

打字速度

= 打字数÷(打字所用秒数÷ 60)

在程序设计语言中，我们如何表示“打字数÷(打字所用秒数÷ 60）” 呢？

VB 是用“表达式”来完成这个任务的。

表达式(Expression)是由变量、常量、运算符、函数和圆括号等按一定

的规则组合而成的。VB中有算术表达式、字符串表达式、日期表达式、关

系表达式和逻辑表达式等。

1.

算术运算符与算术表达式

VB 中有很多算术运算符(Operator)，如“+”、“－”、“*”、“/”等，用

它们可以构造出各种各样的算术表达式。算术运算符要求参与运算的量是数

值型，算术表达式运算的结果也是

数值型。算术运算符的运算规则及优先级

如表3 所示。

表

3 算术运算符运算规则及优先级

其中，整除(\)运算时，若运算量为实数，则先取整，后相除，结果为整型或长整型。在求余(Mod)运算时，如果运算量不是整数，则先将运算量四

舍五入为整数，然后再做求余运算，求余结果的正负号始终与第一个运算量

的符号相同。

所以，VB 中计算打字速度的表达式如下：

intWordCount/(intTimeCost /60)

2.

字符串运算符与字符串表达式

VB 中字符串运算符有：+ 和

&。它们的作用都是将两个字符串连接起来。

“计算机”&“软件” 结果是“计算机软件”

“123”+“45” 结果是

“12345”

需要注意的是：当一个数字字符串表达式(如“123”)与一个数值型表达

式用“+”运算时，结果将是数值型数据。如“123”+ 45 结果是

168；而用“&”运算结果仍是字符串类型。

3.

关系运算符与关系表达式

关系运算符有：=、<>、< 、

> 、

> = 和

< =。

关系表达式的运算结

果为布尔值True或False，如3 > 2的结果为True。关系运算符优先级相同。

4.

逻辑运算符与逻辑表达式

常用的逻辑运算符有：Not(取反)、And(与)、Or(或)等，运算结果为布尔值True或False。逻辑运算符的优先级为：Not>And>Or。如“韩信点兵” 程序代码中的语句：

If (N Mod 3 = 2) And (N Mod 5 = 3) And (N Mod 7 = 2) Then 其中就包含了逻辑表达式。

5.

日期运算符与日期表达式

日期表达式是用日期运算符“+”或“-”将算术表达式、日期型常量、

日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01#+30” 的运算结果为“2003-10-1”；表达式“#2003/10/20#-#2003/10/10#”的

运算结果为整数

10。

6.

运算符的执行顺序

当一个表达式中同时出现多种运算符时，如何决定运算的次序呢？在

VB中，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先

级相同的从左向右进行运算。

不同性质的运算符优先级如下：

算术运算符＞字符串连接运算符＞关系运算符＞逻辑运算符

1. 你能写出下列表达式的值吗？

(1) 123 + "321" & "ABCD" (2) Not 2*5<>11 2. 把下列代数式改写成

VB 表达式填入表

4 中。

4

常用语句与函数

在实际编程中，许多处理过程并不需要我们亲自编写，VB提供了大量现成的语句与函数供我们使用。

1.

赋值语句

VB 中赋值语句用“=”来实现，如：

intBeginTime = Time()

'将系统当前时间赋给变量

intBeginTime

N = 1

'将

1 赋给

N

赋值语句“=”后面可以是常量、变量或表达式。

赋值语句中的“=”与

数学中的“=”是不同的！如：

N = N+1 这里的意义是将N的值加1后重新赋给N，结果N的值比原值增加了1。

变量被赋值

前的值常称为

“初始值”。

VB 中字符

串变量的初始

值为空串；数值

型变量的初始

值为

0；逻辑型

变量的初始值

为

False。

2. print语句

语法格式：[对象名.]Print [表达式列表]

功能：在指定的对象上输出文本。对象可以是窗体、图片框等。如果不指定对象名，默认在当前窗体上输出。

如：我们在窗体的

Click 事件过程中添加如下代码：

Private Sub Form_Click() Print "**********************"

Print " 新北京

新奥运

"

Print "**********************" End Sub 程序运行后，单击窗体，窗体上将显示：

Print语句行末若没有分隔符

“，” 或

“；”，则

Print 语句执行完后自动换行。

1. 请使用

Print 语句输出打字测试程序中的打字速度。

2. 请上机编写如下代码：

Private Sub Form_Click() Print " 北京

", " 奥运

"

Print " 北京

"; " 奥运

"

End Sub 观察表达式用“，”和“;”分隔输出结果有什么不同？

3.

注释语句

为了提高程序的可读性，通常需要在程序适当的位置加上必要的注释。添加注释是编程的一个好习惯。

VB 中注释语句的格式为：

在字符“'”后加注释内容或用“Rem 注释内容”。

如：r = InputBox (" 输入

r：")

'输入半径

r

如果用

Rem 语句注释，应将

Rem 语句单独书写，不可像“'”一样直

接放在其他语句后面，否则

VB 将提示错误，如：

Rem 计算圆的周长

c = 2*PI*r

4.

结束语句

语法格式：End

功能：强制程序结束运行。

1. 编写一个程序，输入正方形的边

长，程序输出正方形的面积和周长。

2. 请运用已学的

VB 知识，编写一个奥运会奖牌总数统计程序。

3. 编写一个简易计算器程序，程序参考界面如图1所示。

图1 计算器

在打字测试程序中，我们是如何计算输入字符数的？如何得到打字所用时间的？

我们是利用VB提供的内部函数来解决这两个问题的。

VB中函数的概念与一般数学中函数的概念没有本质区别。内部函数也称标准函数，它们是

VB系统为实现常用功能而提供的内部程序。内部函数是由VB 系统提供的，每个内部函数完成某个特定功能。在程序中使用函数称为调用函数，函数调用后，一般都有一个确定的函数值，即返回值。

在打字测试程序中，我们输入了如下两行代码：

intTimeCost = DateDiff ("s", dtmBeginTime,dtmEndTime)

intWordCount=Len(txtInput.Text) “DateDiff‘(s’，dtmBeginTime,dtmEndTime)”是用来计算

dtmBegin - Time与dtmEndTime之间相隔的秒数，“Len(txtInput.Text)”则是用来计算文本框

txtInput 中的字符数。

由此可见，使用内部函数可以减轻我们编程的工作量。VB中常用的函

数有以下几种。

5.

与用户交互函数

VB 提供

InputBox() 函数和

MsgBox() 函数用于人机交互。

InputBox()函数在前面已经用过，其语法格式为：

InputBox(提示[,标题][，默认值] [，x 坐标][，y 坐标])

如：r = InputBox (" 请输入

r", " 输

入圆半径

")

该语句执行结果将显示如图2 所示的对话框。

图2

InputBox 对话框

MsgBox()函数是VB程序设计中常用的交互函数，其功能非常强大，可以显示多种样式的消息对话框。

基本语法格式：MsgBox(提示信息[,按钮][，标题])

该函数的返回结果为一数值。

其中，“按钮”参数一般用

VB 的内部符

号常量，这些符号常量有vbOkOnly、vbOKCancel、vbYesNo、vbYesNoCancel 等等，它们一般可以望文生义。

例如：

j = MsgBox (" 你输入的数据格式不正确，是否继续?"，vbYesNo，

" 错误提示

")

该语句执行结果如图3 所示。

图3

MsgBox 对话框

6.

数学函数

数学函数用于数学运算，包括三角函数、求平方根函数、求绝对值函

数、对数函数、指数函数等，它们与相应的数学定义相同。如表5所示。

表5常用数学函数

使用数学函数时需要注意以下几点。

(1)

三角函数中的参数应是弧度数，如数学中

sin30° 应写为：

sin(30*3.14159/180)

(2)

Rnd函数返回[0,1（即包括

) 0，但不包括1）之间的一个随机数，它往往和

Randomize结合使用。如果我们班有54名同学开联欢会，要编程抽取一名幸运同学，可以用以下代码求得：

Private Sub cmdOk_Click()

Randomize ' 初始化随机数生成器

Label1.Caption = " 幸运同学的学号为：" & Int ((Rnd * 54) + 1) End Sub

7.

字符串函数

VB系统提供了丰富的字符串处理函数，给编程带来了极大的方便(见表6）。

表6常用字符串函数

在打字测试程序中，计算输入字符数时就使用了

Len 函数。

intWordCount ＝

Len(txtInput.Text) 其含义是求出文本框中的字符数并赋给变量

inWordCount。

8.

日期函数

Date()函数返回系统的当前日期。

Time()函数返回系统的当前时间，如：dtmBeginTime = Time()，将系统当前时间赋给变量

dtmBeginTime。

以此类推，Day()、Month()、Year()函数分别返回指定日期的日数、月

份数、年份数。

1. 编程实现如图4所示计算器的功能，输入一个数，可以计算该数的平方数、绝对值、开方数。

2. 家里办了个奶牛场，每月存入银行一部分钱，你能设计一个程序，计算指定月后，银行账户上有多少钱吗？

假设计算公式为：

F = D [ (1 + I)M - 1] / I 其中：F —金额总数，D —每月存入数，I —银行利率，M —存的月数。程序界面参考图5。

图4

计算器功能图

图5

计算存款数额程序界面

9.

常用转换函数

在程序设计过程中，我们经常要将不同类型的数据进行转换，这时就需

要使用转换函数。VB中常用转换函数如表7 所示。

表7 常用转换函数

1. 通过“帮助”菜单启动MSDN,获取更多的常用函数的使用方法。

2. 在

VB 中输入以下代码：

Private Sub Form_Click()

Dim X As String,Y As Integer

Dim A As String,B As String,C As Integer

X= ＂

1 ＂

Y=123

A=Chr (Asc (X)＋

5)

B=Str (Val (X)＋

5)

C=Val (Str (Y)＋＂

5 ＂)

Print A,B,C

End Sub 运行程序，指出这段程序中用了哪几类函数，并说出程序输出这样结果的原因。