内容正文:
第四部分 常用算法及程序实现
第一单元 过程与函数
信息技术
内容与要求
考试内容 考试要求
1.过程与自定义函数 c
2.排序算法及程序实现
①冒泡排序
②选择排序 c
3.查找算法及程序实现
①顺序查找
②对分查找 c
4.递归算法 a
5.VB访问Access数据库
①通过ADO对象连接数据库
②通过Recordset对象获取数据表中的数据 a
a
信息技术
考点与典例
考点1
过程
1.VB应用程序是按模块化的方式组成的,程序模块分为过程和函数两种,过程和函数中的代码可以被重复地调用。过程强调的是动作,而函数强调的是值的计算。
2.过程:将程序划分为一个个较小的逻辑单元,每个逻辑单元构成一个过程。过程主要分为事件处理过程和通用过程两种。
信息技术
事件处理过程格式:
Sub事件处理过程名(参数表)
语句块
End Sub
VB预设的事件主要有:Click(单击)、DblClick(双击)、KeyPress(按键)、Load(装载)、Change(改变)等。
VB常用对象上的常见事件有:
文本框TextBox:Text_Click、Text_Change、Text_KeyPress
命令按钮CommandButton:Command_Click
标签Label:Label_Click
窗体Form:Form_Load(窗体装载)
信息技术
典例一
小明编写了一个生成随机数的VB程序,程序一启动就在列表框List1中显示随机数,则他编写的事件处理过程为( )
A.List1_Click B.Form_Click
C.Form_Load D.List1_Load
解析:要使一启动窗体就马上执行代码,则应将代码写在Form_Load事件处理过程中。
答案:C
信息技术
典例二 编写一个VB程序,实现求两个整数的最大公约数。程序运行时,单击“出题”按钮Command1生成两个两位随机正整数,分别显示在文本框Text1和Text2中,在文本框Text3中输入结果并按回车键后,若结果正确,将在文本框Text3右边的标签Label3中显示“√”,否则显示“×”。程序运行效果如图4-1-1所示,请在划线处填入合适的代码。
信息技术
为实现上述功能,请回答如下问题:
Dim x As Integer ′变量x用于存放最大公约数
Private Sub Command1_Click()
Dim i As Integer,a As Integer,b As Integer
Randomize
a=Int(Rnd * 90) + 10
b=Int(Rnd * 90) + 10
Text1.Text = Str(a)
Text2.Text = Str(b)
Text3.Text = ""
Label3.Caption = ""
信息技术
If a > b Then x = b Else x = a
For i = x To 1 Step -1
If ① Then
x = i
Exit For
End If
Next i
End Sub
信息技术
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ′按回车键
If ② Then
Label3.Caption = "√"
Else
Label3.Caption = "×"
End If
End If
End Sub
信息技术
(1)该代码中共包含 个过程,触发Text3的事件为 ;(单选,填字母:A.Text3/B.KeyPress/C.Text3_KeyPress)
解析:本题主要考查过程的综合应用。(1)过程以“Sub……End Sub”标记,从程序中可以看出,共有2处,其中对象Text3对应的过程名为Text3_KeyPress,故触发Text3的事件应为KeyPress,选项B正确。
答案:(1)2 B
信息技术
(2)在程序划线处填入合适的语句或代码:
划线①处应填入的语句为 ;
划线②处应填入的语句为 。
解析:(2)根据语句“x = i”和“Exit For”可知,If语句的条件为“i是整数a,b的最大公约数?”,即a,b都能整除i,因此①处代码为a Mod i = 0 And b Mod i = 0,也可写为b Mod i = 0 And a Mod i = 0;根据代码“Label3.Caption = "√"”可知②处条件为“文本框Text3中输入的整数与最大公约数x相等吗?”,因此