高三算法复习九（过程函数）
1、程序运行界面如图所示。要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为（ ）
A．Command1_Click C．Form_Click
B．Text1_Click D．Label2_Click
【解析】所考知识点：事件处理过程。事件处理过程名的命名规则：对象名_事件的标准名，本题中在对象按钮Command1上激发事件Click（鼠标单击），VB中事件处理过程为Command1_Click。还有一些事件处理过程如Text1_Change（文本框内容变化）、Form_Load（窗体装载）等。
2、窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是（ ） A．Command1_Click C．Form_Load
B．Form_Click D．Form_DblClick
3、小李在设计VB程序时所使用复选框对象的属性窗口如下图所示，他想编制该复选框单击事件的处理过程，则该事件处理过程名是（ ） A．CheckBox_Click B．加粗_Click C．Check1_Click
D．复选框_Click
4、下列VB程序模块可以计算1+2+3+......+n的值。 Function sum(n As Integer) As Integer Dim i as integer For i=1 to n
高考数学网（www.gaokaowww.com），海量高考资源免费下载！
next
End Function
划线空白处应使用的语句是（ ）
A．sum=sum+n B．n=n+i C．sum=sum+1 D．sum=sum+i 【解析】所考知识点：自定义函数。函数的功能主要是求值，在函数的编写过程中必须要有一个形如函数名=表达式的语句，这样计算结果才能作为函数的返回值，被送到函数的调用点上，题中可知函数名为sum，实现累加的语句应为sum=sum+i。 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
①．该函数的计算结果返回值的数据类型是（ ） A．整型 B．实数型 C．字符串型 Private Sub Command1_Click() Dim n As Integer n = Val(Text1.Text)
If Then Text2.Text = \是闰年\Else
Text2.Text = \不是闰年\End If
End Sub
6、理论上表达式（a+b>0 and a-b<0）的基本数据类型是（ ）
A.Long B.Double C. Boolean D. String 7、 某同学在编写程序时出现了如下图错误，导致此错误的原因是（ ）
D．逻辑型
②．调用该函数进行计算，以下程序段中空白处应填写的语句是（ ）
A. leap(y) C. y
B. leap(n) D. n
A．缺少End If C．a - 1=0错误 B．变量定义错误 D．b=a错误
高考数学网（www.gaokaowww.com），海量高考资源免费下载！
6．字符串变量a,b的值分别是\、\，则表达式val（a+b）的值是（ ） A．\B．2010 C．\D．30 7. VB表达式Len(Mid(“World Expo2010!”,7,4))的计算结果是（ ）
A．\B．\C．4 D．7 7、 程序设计时，为了使人们能更容易地阅读、理解和调试程序，往往使用注释。在Visual Basic中，注释文字开头的符号是（ ） A． : B． ' C． \8、下列各赋值语句，语法错误的是（ ） A．abs(x)=5
C．Labell.caption =Time A．递归算法和递归程序 C．过程和函数的定义和调用 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程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是
______ 。 Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer, s As Integer a(1) = 1: a(2) = 1 For i = 3 To 10
a(i) = a(i - 1) + a(i - 2) Next i
Text1.Text = Str(a(10))
End Sub
12、随机产生100个1～100之间的整数，fun函数用来判定一个数的奇偶性。如果是奇数函数返回1，若是偶数便返回0，相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
程序中①划线处应填入___________________ 程序中②划线处应填入___________________ Function fun(m As Integer) As Integer If m Mod 2 = 1 Then
D． @
B．BiNumber =15
D．sLength =Len(mystring) B．程序的循环结构 D．对象
9、模块化程序设计方法主要通过（ ）来实现。
10、自定义函数Fa用来返回输入参数的绝对值。则下划线处应该输入的是（ ）
高考数学网（www.gaokaowww.com），海量高考资源免费下载！
fun = 1 Else
① End If End Function
Private Sub Command1_Click()
Dim i As Integer, s1 As Integer,s2 As Integer,x As Integer s1 = 0: s2 = 0 Randomize For i = 1 To 100
x = Int(Rnd * 100 + 1) If ② Then s1 = s1 + 1 Else
s2 = s2 + 1 End If Next
Print \偶数个数：\奇数个数：\
End Sub
13、两质数的差为2，称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。 程序中①划线处应填入___________________ 程序中②划线处应填入___________________ Function IsP(m) As Boolean Dim i As Integer ① For i = 2 To Int(Sqr(m))
If m Mod i = 0 Then IsP = False Next i
End Function
Private Sub Command1_Click() Dim i As Integer p1 = IsP(3)
For i = 5 To 100 Step 2 p2 = IsP(i)
If p1 And p2 Then Print i - 2, i p1 = ② Next i End Sub
高考数学网（www.gaokaowww.com），海量高考资源免费下载！