高三算法复习九(过程函数).docVIP

高三算法复习九（过程函数） 2015样卷 1、程序运行界面如图所示。要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为（ ） A．Command1_Click B．Text1_Click C．Form_Click D．Label2_Click 【解析】所考知识点：事件处理过程。事件处理过程名的命名规则：对象名_事件的标准名，本题中在对象按钮Command1上激发事件Click（鼠标单击），VB中事件处理过程为Command1_Click。还有一些事件处理过程如Text1_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 ①．该函数的计算结果返回值的数据类型是（ ） A．整型 B．实数型 C．字符串型 D．逻辑型 ②．调用该函数进行计算，以下程序段中空白处应填写的语句是（ ） Private Sub Command1_Click Dim n As Integer n Val Text1.Text If Then Text2.Text 是闰年 Else Text2.Text 不是闰年 End If End Sub A. leap y B. leap n C. y D. n 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程序运行时，单击命令按钮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 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 偶数个数：; s1, 奇数个数：; s2 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