4.1.3 认识程序中的基本元素教学设计模板

Visual

Basic语言基础

第四章

信息的加工与表达（下）

4.1.3 认识程序设计中的基本元素

教学课题：程序设计的初步

教学目的：⑴

掌握VB 的常量、变量、标准函数和表达式。

⑵

掌握Let语句的格式和功能，学会使用Let语句给变量提供数据、完成运算。

⑶

掌握Print方法的格式和功能，学会使用Print方法输出数据。

⑷

掌握InputBox、MsgBox函数的格式和功能，会用InputBox函数输入数据和MsgBox函数输出信息。

⑸

掌握End语句的功能。

教学重点难点：掌握常量、变量、函数和表达式

掌握几个基本的语句：赋值、输出

教学方法：讲解法、练习法

教学过程：

[新课引入] 一、

常量、变量、标准函数与表达式

1.常量

常量是指在程序运行过程中保持不变的量。

整型常量：整数，是指不带小数的数值

数值常量

定点数：3.14159

实型常量：实常量

数，是指带小浮点数：2E6

数的数值

字符串常量：被一对双引号括起来的若干个合法的字符

浮点数对应的就是数学上的科学计数法，以幂数形式来表示一个实数。如：

123000可以表示为1.23×105，但是在程序中无法表示上标和下标，因此用字母E表示底数10，即1.23E5。

那么看下面例子88E－4为？（答案：0.0088）

☼符号常量

如果程序中多次用到同一个常量，则可以用一个有意义的名字表示这个常量，称为符号常量，代表常量的符号称为“常量名”,常量名的命名方法与变量命名方法一样：必须以字母开头，由字母、数字或下划线组成，最长不超过255个字符。但不能用VB的保留字，如语句字义符、- 1 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

函数名等，就如Const。

定义方法：

Const

常量名

[As 类型]=表达式

例如，求圆的周长和面积的程序代码：（在程序中的乘号用*代替）

r=5 s=3.14159*r*r c=2*3.14159*r 可以先用Const语句定义一个符号常量pi代替3.14159，形式如下：

Const

pi

As

Single=3.14159 r=5 s=pi*r*r 简化了程序设计

c=2*pi*r 当常量需要改动时，仅需改动符号常量定义语句。而且使用符号常量可以增强程序的可读性，使人容易理解符号常量的实际含义。

2

变量

在程序执行过程中，其值可以改变的量称为变量。

变量是用来存储数据的，数据分为不同的类型，相应的变量也有以下几种：

比较复杂

整型数值型变量实型字符串型每个变量都应该有一个名字，即变量名。Visual

Basic变量名必须以字母开头，由字母、数字或下划线组成，变量名最长不超过255个字符。但不能以VB的保留字作为变量名，如语句字义符、函数名等，a、i、x1、age、num等均为合法的变量名，而1x、sin、let则是非法的变量名。另外，变量名要有意义，如用“age”表示“年龄”，“sum”表示“总和”等等。

变量在使用之前应用Dim语句定义其变量名及数据类型，Dim语句格式为：

Dim

变量名

As

数据类型

- 2 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

相应的类型名为：整数（Integer）、实数（Single）、字符串型（String）。

例如：Dim

i

As

Integer

Dim

sum

As

Single

Dim

name

As

String 以上三个语句分别将i、sum、name定义为整型、实型和字符串型变量。当然，也可以在一行中定义多个变量，如上述三个变量可如下定义：

Dim

i

As

Integer,

sum

As

Single,

name

As

String

[区别]

符号常量和变量都是要定义的，那么这两者之间有什么区别呢？（提问学生回答）

答：符号常量与变量一样，也有一个名字，但符号常量的值只能在常量定义语句中赋值，在程序运行过程中不能改变。

二、

常用内部函数

VB提供了大量的内部函数，内部函数按其功能可分为数学函数、转换函数、字符串函数、日期函数、格式输出函数等。在使用时只需写出它们的名字（即函数名）和自变量名就可以调用。

VB常用函数见下表：

函

数

Abs(x) Int(x) Sqr(x) Log(x) Rnd Exp(x) Sgn(x) Sin(x) Cos(x) Tan(x) Str(x) Val(s) 求x的绝对值|x| 求≤x的最大整数

求x 的算术平方根，x≥0 求x的自然对数lnx，x>0 产生[0，1）之间的随机数

求以e为底的指数函数

求x的符号，x>0，返回1；x=0，返回0；x<0，返回-1 求x的正弦值，x的单位为弧度

求x的余弦值，x的单位为弧度

求x的正切值，x的单位为弧度

将数值x转换为字符串

将数字字符串s转换为数值

- 3 - 功

能

Visual

Basic语言基础

第四章

信息的加工与表达（下）

【例1】如要计算x-y的绝对值，可写为Abs(x-y)。

【例2】取整函数的用法

Int(4.1)=4

Int(-4.1)=-5 Int(5.3+0.5)=5

Int(3.6+0.5)=4 取整函数的几个应用：

①

利用Int(x)函数对正整数的小数部分进行四舍五入处理。对小数点后第一位小数四舍五入的表达式为Int(x+0.5)，如：Int(8.2826+0.5)=8，Int(8.5826+0.5)=9。

保留n位小数，同时对第n+1位小数进行四舍五入的表达式为Int(x*(1E+n)+0.5)，如：Int(8.2826*100+0.5)/100=8.28。

②

利用取整函数求余数，表达式为a-b*Int(a/b)。

③

利用取整函数判断一个数是否为整数，关系式为Int(a)=a。

在此基础上引伸，可以利用取整函数判断两个整数能否整除，关系式为：Int(a/b)=a/b 【例3】三角函数的使用

三角函数自变量的单位是弧度而不是角度。

sin45°在VB中应写成Sin(3.14159/4)。

或者：Const PI as Single=3.1415926 使用时Sin(PI/4) 【例4】对数函数Log(x)。

lnxlgxln10Log(x)函数求以e=2.718282为底的自然对数，要求x>0。Visual

Basic中没有以10为底的常用对数lgx，可以利用换底公式求lgx：

求lgx的Visual

Basic表达式为Log(x)/Log(10)。

【例5】随机函数Rnd。

Rnd只能产生[0,1]之间的随机数，实际工作中常需要产生不同范围的随机数，可通过对Rnd进行适当的运算获取。

例如，产生[100,200）之间的随机数的表达式为：Rnd*100+100 一般地，要产生[a,b）之间随机数的表达式为：(b-a)*Rnd+a，因为：

- 4 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

0≤Rnd<1 逐项乘以b-a后，可得：

0≤Rnd*(b-a)

Int((b-a+1)*Rnd)+a 例如，产生[10,99]之间2位随机整数的表达式为：Int(90*Rnd)+10

三、表达式

在数学中，我们学过代数式，代数式是由数字和字母组成，用运算符号将其连接起来的式子。那么在VB中，我们用什么来描绘代数式呢？

我们把它称之为表达式。是么叫表达式？刚才我们已经讲过了变量、常量和函数，那么在VB中，我们引用代数式的概念可以得出：（提问）

用运算符和圆括号将常量、变量、函数连接起来的式子，叫做Visual

Basic的表达式。Visual

Basic中有四种运算符：算术运算符、字符串运算符、关系运算符、逻辑运算符，相应就有四种表达式，本节只介绍算术表达式与字符串表达式。

1、算术表达式

提问：在我们的数学中，算术运算符主要有以下几种：+（加）、-（减）、*（乘）、/（除）、^（乘方）。

例：

代数式

64+|-5| xyxyVB表达式

64+Abs(-5) (x+y)/(x-y) g*t^2/2 (-b+Sqr(b*b-4*a*c))/(2*a) Sqr((1+Cos(a))/(1-Cos(a)))

12

gt2bb2

4ac2a1cos

a1cosa

- 5 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

从上表可以看出：

①

Visual

Basic表达式的所有字符必须写在同一水平线上；

②

乘号不能省略，如a*b不能写成ab；

③只允许使用圆括号。

运算符的优先顺序：

1、函数→乘方→乘或除→加或减；

2、圆括号优先（内层括号的优先级别比外层括号的优先级别高）；

3、同级运算符按从左到右的顺序进行。

2、字符串表达式

前面我们已经讲过字符串有两种，是哪两种？（提问）

提问：同样的道理，我们可以得出字符串表达式的定义是什么？

字符串表达式是用字符串运算符将字符串常量、字符串变量连接起来的式子，Visual

Basic中字符串运算符为“+”，它能将若干个字符串依次连接成一个新的字符串。例如：

"Visual"+"

Basic"的运算结果为"Visual

Basic"。

"100"+"美元"的运算结果为"100美元"。

提问：

算术表达式：12+36

字符串表达是：

“12”+”36” 通过答案的不同请同学们搞清楚算术表达式与字符串表达式的不同

四、变量的赋值

赋值语句：

[Let]

变量

= 表达式

方括号[

]表示这部分内容是可选的，语句中可以有这部分，但通常可省略该关键字。

赋值语句的作用是将表达式的值赋给变量，例如：

Let

d=sqr(b*b-4*a*c) 左边是变量，右边是表达式，执行赋值语句时，先对表达式求解，然后将表达式的值赋给变量。所以说，赋值语句具有运算功能。事实上，- 6 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

在VB中，运算功能主要是由赋值语句来完成的。

[例1] Private

Sub

Form_Click()

Dim

a

As

Integer,b

As

Integer, c

As

Integer

Dim

str

As

String

Let a = 54

Let b = 114

c = a + b

str = "Hello

World"

Print "a="; a, "b="; b, "c="; c

Print str End

Sub 运行结果为：

a=

34

b= 114 c= 168 Hello

World

应该说明的是：

(1) 赋值语句中“=”不同于数学中的“等于”号，而是“赋值”号。如上例中Let

a=54应读作“将数值54赋给变量a”，可以理解为54→a；

比较两个例子：

程序段1：

Let x=5 Let y=16 Let x=y Print x,y 运行结果为：16

16 程序段2：

Let x=5 Let y=16 Let y=x Print x,y 运行结果为：5

5 (2)在程序中经常会看到这样的语句：i=i+1。它的含义是将变量i的值取出来，加上1再送回到变量i中去。如果i的原值为2，则2+1为3，再送回i，i中的新值即为3。

(3)赋值号“=”左边只能是变量，不能是数值或表达式，下面的写法是错误的：

4=x+y a+b/2=6

等于号的两边可以是表达式，两边对调后与原来的表示等价。

- 7 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

(4)一次只能给一个变量赋值，如果要给多个变量赋相同的值，只能使用多个赋值语句，例如：

Let sum =0 Let sum =0 ：

Let i=0

或

不能写成：sum=i=0 Let i=0

以冒号分隔

⑷

将一个变量的值赋给另一个变量，前一个变量的值保持不变。如上所示，执行赋值语句x=y后，y的值赋给变量x，x的值为16，y的值仍为16。

学生可能会出现这样的错误认识：“把y的值赋给x，y就失去了它的值”。

[要注意]：变量中存放的数据在程序运行过程中是不会丢失的，除非对它赋以新值。

变量的这种特性可概括为“取之不尽，新来旧去”。

[例2]交换两个变量中的数据。

程序代码如下：

' 交换两个娈量中的数据

Private Sub cmdSwap_Click()

Dim x As Single, y As Single

Dim m As Single

x = Val(txtsx.Text)

y = Val(txtsy.Text)

m = x: x = y: y = m

'交换数据

txtdx.Text = Str(x)

txtdy.Text = Str(y) End Sub Private Sub cmdEnd_Click()

End End Sub 由于程序中使用文本框接受输入的数值型数据，而文本框的Text属性是字符串型的，所以使用Val(s)将文本框输入的数字字符串转换成数值；交换后的数据赋给文本框的Text属性前，应使用Str(x)函数将数值型数据转换成数字字符串。“结束”按钮的Click事件过程中End语句的作用是结束程序的运行。

- 8 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

五、数据的输出

程序中运算得到的结果，除了可以使用文本框和标签控件显示外，对于大批量的数据更适合用Print方法输出，格式如下：

[对象].Print

[表达式列表][{ ; | , }] 其中，对象可以是窗体、图形框或打印机，如果被省略，则

Print 方法将向当前窗体输出。

表达式可为数值表达式或字符串表达式。表达式之间可用分号(;)或逗号(,)分隔。分号表示下一个表达式紧接着上一个表达式继续显示；逗号表示下一个表达式移到下一个打印区开始显示，每一个区占14列。

【例6-4-5】

' 数据输出示例

Private Sub Form_Click()

Dim x As Single, y As Single

Form1.Print -61; -34

Form1.Print 9 * 2; 12

Form1.Print "This is"; "a book"

x = 3: y = 4

Print "x="; x, "y="; y End Sub 运行结果：

-61 -34 18 12 This

isa

book x= 3 y=4 从运行结果可以看出：

①

Print方法具有计算和输出的双重功能。先计算出表达式的值，然后再输出该值。正数数值具有一个前导和一个尾部空格，负数数值用负号替代前导空格。对于字符串则是原样输出，不包括定界符双引号。

②

使用Print

"x=";x的形式输出数据，可以在数据前加上注解性的- 9 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

说明，使我们一看就知道是哪个变量的值。在一个语句里，分号和逗号还可混合使用。

此外，还可以在表达式前用Tab(n)函数控制输出的位置。式中n表示输出点离窗体左边界的绝对位置。

【例6-4-6】计算两个数的平方、立方和平方根，并输出成表格形式。

' Tab函数的使用

Private

Sub

Form_Click()

Dim

a

As

Integer

Dim

b

As

Integer

a = 4: b = 9

Print Tab(1); "数"; Tab(9); "平方"; Tab(18); "立方"; Tab(27); "平方根"

Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a)

Print Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b) End Sub 运行结果：

数 平方 立方 平方根

4 16 64 2 9 81 729 3 注意：一个语句的Tab函数中的数值应从左到右逐渐增大，而不能忽左忽右。

六、交互函数的使用

为了便于和程序交互，VB提供了InputBox和MsgBox两个函数。

⒈InputBox函数

在VB中，需要输入数据时，只要在程序中调用一个InputBox函数，屏幕中就会弹出一个标准输入对话框，供你输入数据，使用方法如下：

变量=InputBox(提示[,标题][,缺省]) 例如，例6-3-1中动画文字的内容是固定的，可以在窗体的Click事件过程中加入如下一段代码：

Private Sub Form_Click() s = InputBox("请输入动画文字", "输入框") End Sub - 10 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

说明：

①“提示”为字符串型数据，该参数的内容为对话框中的提示信息，提示你输入什么数据，该参数内容在对话框弹出时，显示在对话框的左上角；

②“标题”也为字符串型数据，该参数的内容为对话框标题栏中的标题内容，此参数可缺省；

③“缺省”：当对话框中没有输入任何值时，该参数就被当作你输入的内容。

④

输入对话框只能输入常量，不能输入表达式，并要注意输入的常量与赋值语句中变量的类型一致。

⒉ MsgBox函数

在使用Windows软件的过程中，经常会遇到如图6-16所示的用于显示提示信息，或者要求你作出必要响应的对话框。事实上，在VB中，我们自己也可以利用MsgBox函数设计出这样的对话框。

MsgBox函数格式如下：

变量=MsgBox(提示[,按钮][,标题]) 其中：“提示”和“标题”的意义与InputBox函数中对应的参数相同。

“按钮”：这是一个由4个数值常量组成的式子，形式为c1+c2+c3+c4,用于决定信息框中显示的按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的模式等。各个参数的可选值及功能见下表。

- 11 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

参数

C1 (按钮数目及vbYesNoCancel 形式) vbYesNo vbRetryCancel vbCritical C2 vbQuestion (图标vbExclamation 类型) vbInformation vbDefaultButton1 C3 (缺省vbDefaultButton2 按钮) vbDefaultButton3 vbApplicationModal C4 (模式) vbSystemModal

VB内部常量

vbOkOnly vbOkCancel vbAboutRetryIgnore 数值

0 1 2 3 4 5 16 32 48 64 0 256 512 0 4096 含

义

只显示“确定”按钮

显示“确定”“取消”按钮

显示“终止”“重试”“忽略”按钮

显示“是”“否”“取消”按钮

显示“是”“否”按钮

显示“重试”“取消”按钮

显示“禁止”图标

显示“疑问”图标

显示“警告”图标

显示“信息提示”图标

第一个按钮为缺省

第二个按钮为缺省

第三个按钮为缺省

应用模式

系统模式

MsgBox函数根据单击按钮而返回不同的数值，其数值的意义见下表。

按钮名

确定

取消

终止

重试

忽略

是

否

VB内部常量

vbOk vbCancel vbAbort vbRetry vbIgnore vbYes vbNo 数值

1 2 3 4 5 6 7 【例6-4-7】设计一个界面如图6-17所示的屏幕保护程序的密码输入对话框，要求密码为4位字符，输入密码时，以“*”代替输入的字符。当输入不正确时，显示如图的信息框。

- 12 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

要使密码不超过4位字符，只要将文本框的MaxLength属性设置为4；要使输入的字符显示为“*”，则要将文本框的Passwordchar属性设置为“*”，同时将文本框初值置空。出错时显示包含“重试”“取消”按钮和感叹号的信息框，则MsgBox函数“按钮”参数的取值为vbRetryCancel+vbExclamation。

根据界面显示，对象的属性设置见下表。

缺省的对象名

设置的对象名

属性

Form1 Label1 frmPass lblPass Caption Caption Text Text1 Command1 Command2 txtPass cmdOk cmdCancel MaxLength Caption Caption 设置值

Windows屏幕保护程序

请输入屏幕保护程序的密码

(空白) 4 确定

取消

PasswordChar * 程序代码如下：

' 密码输入对话框

Private Sub cmdOK_Click() Dim rpt As Integer If txtPass.Text = "qqqq" Then rpt = MsgBox("输入正确", vbOKOnly, "密码") End Else rpt = MsgBox("输入的密码不正确，请重新输入", vbRetryCancel + vbExclamation, "密码") If rpt = vbRetry Then txtPass.Text = "" txtPass.SetFocus Else End - 13 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

End If End If End Sub

Private Sub cmdCancel_Click() End End Sub

作业13 & 14：

⑴

什么叫常量？什么叫变量？符号常量和变量有什么不同？

⑵

将下列数学式写成VB的表达式：

① a+b2 ② (x+y)3

ab

③

④ ex+1

⑤ sin(a+b)

⑥ p(pa)(pb)(pc)⑶

改正下列VB表达式中的错误：

① xy^3表示(xy)3 y2②y+2/x-4表示

x4ac③ e^x*Sin(x)表示exsinx ④Cos(30 )表示cos(30°) ⑤ (-b+Sqr(b2-4*a*c))/2*a① Abs(Int(-17.8))

② Int(3.14159*100+0.5)/100 bb24ac表示

2a⑷

写出下列VB表达式的值：

③ Exp(0)

④ Sgn(1-Abs(-3)) ⑤ Log(100)/Log(10) ⑸

写出下列程序的执行结果：

① Private Sub Form_Click() - 14 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

Dim x As Integer Dim y As Integer Dim z As Integer Let x = 1: Let y = 2:Let z=3 Let y = x*y Let x=x+y Let z = x/z Print x, y, z

End Sub ② Private Sub Form_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 3: b = 4: c = 5 a = b: b = c: c = a Print a, b, c

End Sub ③Private Sub Form _Click() Dim a As Integer Dim b As Integer a = 4: b = -5 a = a + 1: b = b - 1 Print a, b m = a: a = b: b = m Print a, b

End Sub ④Private Sub Form _Click() Dim a As Integer Dim x As Integer Dim y As Integer Dim z As Integer - 15 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

a = 256 x = Int(a / 100) y = Int(a / 10) - x * 10 z = a - x * 100 - y * 10 Print x, y, z

End Sub ⑤Private Sub Form _Click() Print Tab(1); "姓名"; Tab(9); "年龄"; Tab(18); "电话号码" Print Tab(1); "李小鸥"; Tab(9); 17; Tab(18); "8314705" Print Tab(1); "王萍"; Tab(9); 18; Tab(18); "8527302"

⑹

已知圆的半径r=10cm，编写程序求圆的周长及面积。

Private Sub Form_Click() Dim r As Single Dim area As Single, circ As Single Let r = 10 Let area = 3.14159 * r * r

Let circ = 2 * 3.14158 * r Print "半径="; r, "面积="; area, "周长="; circ End Sub

2⑺

自由落体运动位移公式为

sv0tgtEnd Sub 12其中初速度v0=4m/s，重力加速度g=9.8m/s2，时间t=0.5s，编一程序求位移s。

Private Sub Form_Click() - 16 -

Visual

Basic语言基础

第四章

信息的加工与表达（下）

Dim v0 As Single Dim t As Single Dim s As Single v0 = 4 t = 0.5 s = v0 * t + 9.8 * t * t / 2 Print "s="; s End Sub ⑻

编写一个程序求如图6-21所示的阴影部分面积。三角形的三边边长及圆的直径从键盘输入。

Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim d As Single Dim area1 As Single, area2 As Single, area As Single a = InputBox("输入三角形边长a", "输入") b = InputBox("输入三角形边长b", "输入") c = InputBox("输入三角形边长c", "输入") d = InputBox("输入圆的直径d", "输入") p = (a + b + c) / 2 area1 = Sqr(p * (p - a) * (p - b) * (p - c)) area2 = 3.14159 * d * d / 4 area = area2 - area1 Print "area="; area End Sub

图6-21 - 17 -