浙江选考信息技术课堂 VB算法精讲系列（二）

上一期我们主要讲了VB中若干基本概念，下面先做一个简单的复习：

一、气球刺破事件的属性、方法和事件生动举例：

属性：如果您想设计一个气球程序，它的 Visual Basic 代码可能类似于以下设置气球属性的“代码”。

Balloon.Color = Red

Balloon.Diameter = 10

Balloon.Inflated = True

方法：气球的方法是按如下方式调用的。

Balloon.Inflate

Balloon.Deflate

Balloon.Rise (5)

在第三个方法中，括号部分称为“参数”的项，它指定气球将要上升的距离。

事件：气球可能按照如下所示来响应事件。

Sub Balloon_Puncture()

Balloon.MakeNoise("Bang")

Balloon.Deflate

Balloon.Inflated = False

End Sub

在这种情况下，代码会描述发生 Puncture 事件时气球的行为。发生此事件时，将使用“Bang”（所发出噪音的类型）参数调用 MakeNoise 方法，然后调用 Deflate 方法。由于气球已经不再充气，所以 Inflated 属性设置为 False。

二、上期知识点归纳：

（1）类：相同性质对象的一种抽象，而一个对象是类的一个“实例”。VB程序设计中的各种控件类型可以看作各种对象。

如：窗体Form，标签Label，文本框TextBox，命令按钮CommandButton，列表框ListBox，图像Image，组合框ComboBox、定时器Timer等。

注：窗体（Form）是VB应用程序的基本结构。窗体可以看作是一个“容器”，是特殊的对象，其中放置着各种各样在应用程序汇总必须要用到的对象。Vb程序的窗体和工程存储后对应的文件类型分别是frm 和vbp，生成可执行文件的扩展名是exe。窗体文件frm中保存了事件处理代码。

（2）对象：对象是客观存在的事物或概念。它有两个特点：状态和行为。VB程序设计中的各种控件可以看作各种对象。

如：Form1，Label1，Text1，Command1，List1，Timer1等。

注：“类”和“对象”的关系

类是对同种对象的集合与抽象，它包含这种对象的属性描述和行为定义。VB工具箱中的控件就是类，设计窗体时，将它们放在窗体上时就是该类的对象。

（3）属性：对象有自己的状态（外观），对象的的状态通过若干个属性来描述。

如：

格式：对象名.属性名

一些重要的语句：

（4）方法：对象有自己的行为（动作），对象的行为是指对属性进行操作和处理的方法。

如：Clear（清除文本内容），AddItem（添加项目，常用于列表框Listbox），Refresh（强制重绘窗体或控件），SetFocus（激活，获得焦点）等。

格式：对象名.方法名

一些重要的语句：

（5）事件：事件（Event）就是发生在对象身上的事情，通常是由用户在对象上激发的一种动作。

如：Load（加载），Click（单击鼠标左键），DblClick（双击鼠标左键），Keypress（键盘上按键），Change（对象内容改变），Timer（达到计时时间）等。

（6）事件处理过程：一个事件的发生，可以引起某个对象上某个方法（事件处理过程）的执行，即由某个事件驱动了相应的事件处理过程的执行。这就是面向对象程序设计中的事件驱动概念。

事件处理过程格式：对象名_事件名

Sub 对象名_事件名()

语句块

End Sub

如Command1_Click()，Form_Load()，Timer1_Timer()等。

———— 本 期 开 讲 ————

VB基本数据类型

【例】在Visual Basic中，用变量p存储数值1.414，变量p的数据类型应定义为

（A）Boolean（B）Integer

（C）Single（D）Date

【答案】 C

VB标准函数

【例】以下VB表达式的值是13的是( )

B.Int(229/17)

C. (2137 Mod 1000) / 10

D.Len(“ABCDEF”)+Sqr(48)

【答案】 B

注意：随机数的变式题！

第一关 产生一个 [ 0 , 1 ) 之间的随机实数：Rnd()

第二关 产生一个 [ 0 , 5 ) 之间的随机整数：Int( Rnd*5)

第三关 产生一个 [ 1 , 5 ) 之间的随机整数：先考虑“产生一个[ 0 , 4 )之间的随机整数”：Int( Rnd*4) ；再补上刚才减掉的1：Int( Rnd*4)+1

第四关 产生一个 [ 20 , 100 ) 之间的随机整数：先考虑“产生一个[ 0 , 80)之间的随机整数”：Int( Rnd*80) ；再补上刚才减掉的20：Int( Rnd*80)+20

第五关 产生一个 [ 20 , 100 ] 之间的随机整数：等价于“产生一个[ 20 , 101)之间的随机整数”，故先考虑“产生一个 [ 0 , 81) 之间的随机整数”：Int( Rnd*81) ；再补上刚才减掉的20：Int( Rnd*81)+20

第六关产生一个 [ -20 , 100 ) 之间的随机整数：先考虑“产生一个[ 0 ,120)之间的随机整数”：Int( Rnd*120) ；再减去刚才加上的20：Int( Rnd*81)-20

第七关产生一个 [ -20 , 100 ] 之间的随机整数：等价于“产生一个[ -20 , 101)之间的随机整数”，故先考虑“产生一个 [ 0 , 121)之间的随机整数”：Int( Rnd*81) ；再减去刚才加上的20：Int( Rnd*121)-20

第八关产生一个（ -20 , 100 ] 之间的随机实数：等价于“产生一个[ -100 , 20)之间的随机实数”后再取负，故先考虑“产生一个[0 , 120)之间的随机实数”：Int( Rnd*120) ；再减去刚才加上的100：Int( Rnd*120)-100，最后取负（注意括号）：-(Int( Rnd*120)-100)

第九关 产生一个A—Z之间（包括A和Z）的随机字母：等价于先“产生一个[65 , 90]之间的随机整数”：Int( Rnd*26)+65，把它当成ASCII码，再转换成所对应的字符：Chr(Int( Rnd*26)+65)

第十关 产生一个 [ 3.5，5.6 ) 之间的随机1位小数：等价于“产生一个[35 , 56)之间的随机整数”后再除以10，故先考虑“产生一个[0 , 21)之间的随机整数”：Int( Rnd*21) ；再加上刚才减掉的35：Int( Rnd*21)+35，最后除以10：(Int( Rnd*21)+35)/10

思考1：第十关能用Mid函数写吗？请想一想，然后关注公众号后回复“思考题”即可获取答案。

VB常量、变量、数组

一、Visual Basic 的常量是在程序执行过程中其值不变的存储单元或数据。

1.以数据形式出现的常量：

一个数值，一段文本，一个逻辑值（True或False），或是一个日期，都是常量。不同类型的常量在VB中有不同的表示方式。

例如：2，35.567，属于数字型的常量

"123"，"AbcD"，"你好"，属于字符串型的常量

True和False 属于逻辑型的常量

#12-23-2015# 属于日期型的常量

注：在VB中字符串（文本）类型的数据要加双引号，日期类型的数据要加双井号。

2.以存储单元形式出现的常量：

有时我们使用Const关键字声明（定义）一个存储单元来存储某一种类型的数据。这个存储单元就称为常量。其中存储的数据就称为这个常量的值。

例如：把一个存储单元命名为"box"，那么"box"就是一个常量。

常量声明的一般格式：

Const 常量名 [As 数据类型] = 表达式

其中As是关键字，中括号里面的内容可以省略，下同

常量名：存储数据的存储单元名称。

数据类型：说明存放的是什么类型的数据，如数值型、字符串型，逻辑型等。

表达式：可以是一个具体的数据，也可以是一段程序语句表达式。

注：一个常量在声明时必须要说明它的值（存储的数据），且它的值不能再改变。

Visual Basic 常量声明举例：

Const A As String = “今天学常量的使用”

Const a As Integer = 1

Const a = 1

Const m As Integer = 3, k = m + 1

Const yes As Boolean = True

Const d As Date = #12/23/2015#

3.Visual Basic 的变量

VB中的变量是保存数据的“容器”；现实生活中，有很多存放东西的容器，比如箱子，这个箱子放衣服，另一个放鞋子。

变量就像是箱子，我们可以把需要的数据，暂时的存放其内部，便于以后使用。变量内部存放的数据又叫做该变量的值。

与常量不同的是，变量在声明后可以改变其值。

定义变量的一般格式：

Declare 变量名 [As 数据类型]

这里的“Declare”可以是Dim，Static，Redim，Public，一般都是Dim

变量名：存储数据的“容器”名称。

例如： Dim Var As Integer '把Var定义为整型变量

Dim Total As Double '把Total定义为双精度型变量

注：一个变量在声明时无需说明它的值（存储的数据），且它的值可以发生变化

用一个Dim可以定义多个变量，中间用逗号间隔。

例如：Dim Var1 As String, Var2 As Double '把Var1和Var2分别定义为字符串型和双精度型变量

4.VB变量的命名规则：

给变量命名时应遵循以下原则：

（1）变量由字母、汉字、数字、下划线等字符所组成，且第一个字符必须是英文字母或者是汉字，最后一个字符可以是类型说明符，变量名中不能有空格。

（2）变量名当中不能包含+ - * / ！@ # ￥ ？小数点 类型说明符 等字符，且长度不能超过255。

（3）不能用 Visual Basic 的保留字（保留字也称关键字，如：End、Len、Sub等）作为变量名，但可以把保留字嵌入变量名中，同时变量名也不能是末尾带有说明符的保留字。

（4）Visual Basic不区分变量名和其他名字中字母的大小写，但习惯上，常量名一般用大写字母。

【例】下列字符哪些作为变量名？

12c， &bc， es@， Val

【答案】 都不行

5.一维数组：

数组是由一批同类型的变量构成的一个序列，组成数组的每一个变量被称为数组的元素，也称下标变量，下标是一个整数，用来指出某个元素在数组中的位置。

一维数组定义：Dim 数组变量名（A1 To A2） As 元素类型 （其中A1是下标的下界，A2是下标的上界）

如：Dim A(-2 to 2) as integer 共有5个元素，分别是-2，-1,0,1,2

【例】在Visual Basic中，用数组a存储50位同学一次数学考试分数，合适的数组定义语句是

（A）Dim a(1 To 50) As Single

（B）Dim a(1 To 50) As Boolean

（C）Dim a(1 To 50) As Integer

（D）Dim a(1 To 50) As Long

【答案】 A

VB顺序结构

顺序结构说明VB程序语句的执行顺序从上到下，从左到右。

典型的程序语句有：

一、基本语句

（1）赋值语句

赋值语句用于设定某个变量或对象的属性的值。

赋值语句基本格式

变量名 = 表达式 或 对象名.属性名 = 表达式

说明：这里的等号称为“赋值号”，赋值语句是有方向性的，只能把赋值号右边的表达式的值赋给左边的变量（属性），在对变量赋值时变量的数据类型要与表达式的数据类型一致。

注意：“=” 并不一定都表示赋值，VB系统会根据“=”所处的位置自动判断是何种意义的符号。

赋值语句典型应用：交换两个变量a、b值（程序段）

t = a: a = b: b = t

思考2：如果不引入第三变量t，可以交换a和b的值吗？请想一想，然后关注公众号后回复“思考题”即可获取答案。

说明：在写VB代码时可以在一行写一个语句，也可以在一行写多个语句，若在一行上写了多个语句，则相邻两个语句之间要用冒号分隔。

（2）注释语句

可以在单引号后写上注释内容表示对程序语句的解释说明，一般格式如下:

XXXXXXXXXX '注释内容

说明：注释语句的默认字体颜色是绿色的，注释语句不影响程序的运行。

二、输出语句（2、3、5是重点）

（1）直接输出到窗体

语句格式

[窗体名.]Print [输出的内容] [；|，]

说明：这里的Print是用于输出的关键字，是方法名。

（2）输出到文本框

修改文本框的Text属性值为显示的内容，即可在将信息输出到文本框。

例：Text1.Text = "hello world!"

文本框上显示文本“hello world!”

（3）利用“标签”控件输出

修改标签的Caption属性值为显示的内容，即可在将信息在标签上显示。

例：Label1. Caption = "hello world!"

标签上显示文本“hello world!”

（4）利用弹窗（MsgBox）函数输出

Msgbox函数用于在弹窗显示输出内容，语句格式为：

Msgbox ("输出的内容")

或 Msgbox "输出的内容" [, 弹窗按钮类型, "弹窗标题"]

（5）列表框（ListBox）输出

与Add Item（方法名）搭配使用，语句格式为：

List1.AddItem str(x) 表示把数值x转化成字符串输出到列表框List1中。

注意：1.数值型变量输出到标签、按钮、文本框、列表框等前，必须先转化成字符串型；

2.属性名Caption用于标签Label，按钮CommandButton，窗体Form的输入输出；属性名Text用于文本框Text的输入输出；方法名AddItem用于列表框List的输入输出。

三、数据输入

（1）使用“文本框控件”的数据输入

在文本框的空白处输入内容，然后将一个变量赋值为文本框的Text属性值来存储输入的内容,赋值的一般格式为：

变量名 = Text1.Text

（2）使用“对话框”的数据输入

VB的InputBox函数可以让用户在对话框里输入数据，可以将一个变量赋值为InputBox函数的返回值来存储输入的内容，赋值的一般格式为：

变量名 = InputBox(提示信息 [, 对话框标题])

VB分支结构

VB的分支结构又称为选择结构，用于判断给定的条件，根据判断的结果来控制程序执行的流程。

在VB中使用分支语句来描述分支结构的计算，使程序在执行过程中，根据不同的判断结果，选择执行不同的语句。其主要语句是IF语句。

一、IF语句的两种常见格式：

1．If……Then 语句：

If 条件表达式 Then 语句序列 （不换行形式）

或：

If 条件表达式 Then （换行形式）

语句序列

End If

说明：使用IF语句时，要用条件表达式来描述条件，条件表达式的返回值是逻辑值:真(True)或假(False)

If……Then 语句的流程图：

注意:If语句中的条件表达式可以是关系表达式，也可以是数值表达式，若以数值表达式作为条件，则非0为真， 0为假。

If……Then 语句应用举例：

如果满足条件CJ

2. If……Then……Else 语句

格式：

If 条件表达式 Then 语句序列1 Else 语句序列2 （不换行形式）

或

If 条件表达式 Then （换行形式）

语句序列1

Else

语句序列2

End If

说明：若条件表达式为真，则执行语句序列1，否则执行语句序列2。

If……Then……Else 语句的流程图

If……Then……Else 语句应用举例：

比较两个数的大小（两数不相同），如果a

注意一：IF语句的嵌套

在 If 语句的格式中 Then 和 Else 后面的语句序列也可以包含 If 语句：

注意二：多个行If语句的执行流程

行If语句1：

行IF语句2：

3.含有ElseIf的块（换行形式）If语句

格式：

If 条件表达式1 Then '表示符合条件1，去执行语句序列1

语句序列1

ElseIf 条件表达式2 Then '表示不符合条件1，但符合条件2，去执行语句序列2

语句序列2

•

•

•

ElseIf 条件表达式n Then '表示不符合条件1、2……n-1，但符合条件n，去执行语句序列n

语句序列n

Else '表示不符合条件1、2……n，即以上条件都不符合，去执行语句序列n+1

语句序列n+1

End If

注：块If语句的ElseIf语句部分和Else语句部分是可选的，匹配到了其中一个条件就不往下匹配。

思考3：你能把它画成流程图吗？请想一想，然后关注公众号后回复“思考题”即可获取答案。

限于篇幅，本文未完待续。下篇将于近期发布，请及时关注。

1

信息技术

----课程安排----

1、信息技术基础概念

2、字处理和表处理

3、人工智能和Access数据库

4、多媒体概念及编码

5、Photoshop图片素材处理

6、Flash动画制作

7、VB程序设计基础

8、VB程序设计（加试）

2

通用技术

----课程安排----

1、技术与设计基本概念

2、设计的一般过程

3、方案呈现（尺寸标注、三视图、设计草图）

4、模型与工艺

5、结构与设计

6、流程与设计

7、系统与设计

8、控制与设计

9、电子元器件与传感器（加试）

10、门电路（加试）

11、三极管与继电器（加试）

12、多用电表（加试）

13、焊接技术（加试）

14、电控的设计与实施（加试）

技术朱一帆老师

朱一帆老师，公众号“浙江选考技术”创办者之一。浙江选考技术（信息技术&通用技术）专业教师，多年技术一线教学经验，成绩斐然。熟悉技术考试大纲，提倡“把知识点串起来”的学习理念。课堂风格幽默风趣，提分快，深受学生喜爱。（PS 同时也是音乐人一枚。。。）

获取教学直播频道房间号

朱哥微信

感谢关注“浙江选考技术”公众号，请您分享给身边有需要的同学~

浙江选考技术