高三算法复习九（过程函数）

高三算法复习九（过程函数）

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），海量高考资源免费下载！

本文来源：https://www.bwwdw.com/article/da16.html