文档介绍：高三算法复****九（过程函数）
2015样卷
1、程序运行界面如图所示。要求在文本框Textl中输入字符串，单击"统计”按钮Command 1 后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为 （ ）
B. Textl_Click
D. Label2_Click
A. Command 1 _Click
C ・ Form_Click
【解析】所考知识点：事件处理过程。事件处理过程名的命名规则：对象名一事件的标准 名，本题中在对象按钮Command 1上激发事件Click （鼠标单击），VB中事件处理过程为 Command 1 _Clicko还有一些事件处理过程如Textl_Change （文本框内容变化）、Form_Load （窗体装载）等。
5、下列VB程序模块用来判断年份y是否是闰年。回答以下两个问题
Function leap（y As Integer） As Boolean
If y Mod 100 = 0 Then
If y Mod 400 = 0 Then leap = True Else leap = False
Else
If y Mod 4 = 0 Then leap = True Else leap = False
End If
End Function
.该函数的计算结果返回值的数据类型是（ ）
.调用该函数进行计算，以下程序段中空白处应填写的语句是（
Private Sub Command l_Click（）
Dim n As Integer n = Val（Textl .Text） If Then
=M 是闰年”
Else
=H 不是闰年”
A. leap(y)
B. leap(n)
D. n
End If
End Sub
10、 自定义函数Fa用来返回输入参数的绝对值。则下划线处应该输入的是( )
Function Fa(X As Double) As Double
If Then
Fa = -X
Else
Fa 二 X
End If
End Function
A. X<0 B. X>0 C. X=0 D. X<>0
11、 下列VB程序运行时，单击命令按钮Commandl后，文本框Textl中显示的内容是
Private Sub Command 1 _Click()
Dim a(l To 10) As Integer, i As Integer, s As Integer
a(l) = 1: a(2) = 1
For i = 3 To 10
a(i) = a(i - 1) + a(i - 2)
Next i
= Str(a(10))
End Sub
12、随机产生100个1〜100之间的整数，fun函数用来判定一个数的奇偶性。如果是奇数 函数返回1,若是偶数便返回0,相应的程序如下，在程序①和②划线处，填入适当的语 句或表达式，把程序补充完整。
程序中①划线处应填入
程序中②划线处应填入
Function fun(m As Integer) As Integer
I