创新高三一轮复习系列选考总复习（浙江专）信息技术讲义： 必修3 第一章算法及VB语言 Word含答案

第一章 算法及VB语言

[考试标准]

考试内容 1.算法的基本概念及常用表示方法 2.面向对象程序设计的基本思想与方法 3.类、对象、属性、方法、事件和事件处理的概念及应用 4.VB应用程序的调试及运行 5.VB基本数据类型、常量、变量与数组 6.VB各类基本运算、表达式与常用的标准函数 7.常用VB语句 8.过程与自定义函数 考试要求 考试属性 b b c c c c c c

VB应用程序是按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分任务。程序模块分为过程和函数两种。 一、过程

可以将程序划分成一个个较小的逻辑单元，这样每个逻辑单元可以构成一个过程。过程中的代码可以被重复调用，从而避免了不必要的代码的重复编制，减少了编程的工作量。 构造事件处理过程

Sub事件处理过程名(参数表) 语句块 End Sub

其中，事件处理过程名必须符合下面的规则：对象名_事件的标准名。VB的一些常用对象上的常见事件的标准名见下表：

加试 对象 事件处理过程名 Text_Click 说明 在文本框内单击鼠标 在文本框内双击鼠标 文本框被激活后，用户在键盘上按下了某个键 在命令按钮上单击鼠标 在标签上单击鼠标 窗体装载 文本框 Text Text_DblClick Text_KeyPress 命令按钮Command 标签Label 窗体Form Command_Click Label_Click Form_Load 通过过程：是一个独立的程序段，不同的事件可能需要使用同一个程序段时，可以把这个程序段单独地建立成一个通用过程，供其他事件处理过程或其他通用过程调用。 二、函数

函数是类似于过程的另一种程序模块，不同之处是函数执行完成后，函数的计算结果被送到函数的调用点上，供程序的后继部分继续进行处理。 自定义函数格式：

Function函数名(参数表) As 类型名 语句块 End__Function 函数名是为函数指定的名称，参数表是对一函数需要的原始数据类型一一地进行说明，As后的类型名，是说明函数的计算结果，即函数返回值的数据类型。自定义函数的语句块中至少要有一个形如“函数名＝表达式”的语句，这样，表达

式的计算结果才能作为函数的返回值，被VB送到函数的调用点上。

【例1】 某VB程序如下：

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＝13 Then Text2.Text＝Text1.Text＋Str(5) End If

End Sub

程序运行时，能触发该事件过程的是( ) A.单击文本框Text1 B.单击文本框Text2

C.文本框Text1被激活后，用户在键盘上按下某一个键 D.文本框Text2被激活后，用户在键盘上按下某一个键

解析 事件处理过程名必须符合规则：对象名_事件的标准名。Text1_KeyPress(KeyAscii As Integer)中Text1是这个事件过程的触发对象，所以排除B、D选项。KeyAscii是事件过程的参数，意思是键盘输入后传递给程序的ASCII码。结合if语句，当按下键盘上某一个键传递给程序的ASCII码值等于13的时候执行then后面的语句。所以答案选C。 答案 C

[变式1] 有如下VB程序段：

Dim i As Integer，c As String，s As String，t As String s＝”China2014IT”：t＝”” For i＝1 To Len(s) c＝Mid(s，i，1)

If c＞＝”a” And c＜＝”z” Then t＝t＋c Next i

Label1.Caption＝t

该程序段运行后，标签Label1中显示的内容是( ) A.2014 B.ChinaIT C.hina D.CIT

解析 该程序的功能是取出字符串s中的小写字母。 答案 C

[变式2] 下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Command1，在标签对象Label1中显示这两个数的差。 Function lsc(x，y) As Integer

If x＞y Then lsc＝x－y Else lsc＝y－x End If End Function

Private Sub Command1_Click( ) Dim a1 As Integer，a2 As Integer a1＝Val(Text1.Text) a2＝Val(Text2.Text) Label1.Caption＝________ End Sub

要实现上述功能，程序画线处应填入的语句为( ) A.lsc(x，y)

B.lsc(Text1.Text，Text2.Text) C.lsc D.lsc(a1，a2)

解析 自定义函数lsc用于求两个整数的差，由于输入的整数为a1、a2，因此画线处应填的语句为lsc(a1，a2)，答案为D。 答案 D

[变式3] 某VB应用程序的两个事件过程如下：

Private Function out(x As Integer，y As Integer，z As Integer) As Integer Dim temp As Integer

If x＞y Then temp＝y Else temp＝x If temp＞z Then temp＝z out＝temp End Function

Private Sub Command1_Click( )

Dim a As Integer，b As Integer，c As Integer