第一单元　算法及VB语言
[考试标准]
考试内容
考试要求
考试属性
1.算法的基本概念及常用表示方法
b
加试
2.面向对象程序设计的基本思想与方法
b
3.类、对象、属性、方法、事件和事件处理的概念及应用
c
4.VB应用程序的调试及运行
c
5.VB基本数据类型、常量、变量与数组
c
6.VB各类基本运算、表达式与常用的标准函数
c
7.常用VB语句
c
8.过程与自定义函数
c
VB应用程序是按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分任务。程序模块分为过程和函数两种。
一、过程
可以将程序划分成一个个较小的逻辑单元，这样每个逻辑单元可以构成一个过程。过程中的代码可以被重复调用，从而避免了不必要的代码的重复编制，减少了编程的工作量。
构造事件处理过程
Sub事件处理过程名(参数表)
　语句块
End Sub
其中，事件处理过程名必须符合下面的规则：对象名_事件的标准名。VB的一些常用对象上的常见事件的标准名见下表：
对象
事件处理过程名
说明
文本框Text
Text_Click
在文本框内单击鼠标
Text_DblClick
在文本框内双击鼠标
Text_KeyPress
文本框被激活后，用户在键盘上按下了某个键
命令按钮Command
Command_Click
在命令按钮上单击鼠标
标签Label
vb设计模拟密码输入器Label_Click
在标签上单击鼠标
窗体Form
Form_Load
窗体装载
通过过程：是一个独立的程序段，不同的事件可能需要使用同一个程序段时，可以把这个程序段单独地建立成一个通用过程，供其他事件处理过程或其他通用过程调用。
二、函数
函数是类似于过程的另一种程序模块，不同之处是函数执行完成后，函数的计算结果被送到函数的调用点上，供程序的后继部分继续进行处理。
自定义函数格式：
Function函数名(参数表) As　类型名
　语句块
End__Function
函数名是为函数指定的名称，参数表是对一函数需要的原始数据类型一一地进行说明，As后的类型名，是说明函数的计算结果，即函数返回值的数据类型。自定义函数的语句块中至少要有一个形如“函数名＝表达式”的语句，这样，表达式的计算结果才能作为函数的返回值，
被VB送到函数的调用点上。
过程：将程序划分为一个个较小的逻辑单元，每个逻辑单元构成一个过程。过程中的代码可以被重复地调用。过程分成两类：事件处理过程和通用过程。
事件处理过程：
Sub事件处理过程名(参数表)
语句块
End Sub
VB预设的事件有：Click(单击)、DblClick(双击)、KeyPress(按键)、Load(装载)、Change(改变)等。
VB的一些常用对象上的常见事件的标准名有：
文本框Text：Text1_Click、Text1_DblClick、Text1_KeyPress、Text1_Change
命令按钮Command：Command1_Click
标签Label：Label1_Click
窗体Form：Form_Load(窗体装载)
【典例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
【变式2】　某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( )

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。