1、 1 高三算法复习高三算法复习九九（过程函数过程函数） 1、 程序运行界面如图所示。 要求在文本框 Text1 中输入字符串， 单击 “统计” 按钮 Command1 后，在标签 Label2 中显示所输入字符串长度。需要编写的 VB 事件处理过程的名称为 （ ） ACommand1_Click BText1_Click CForm_Click DLabel2_Click 【解析】所考知识点：事件处理过程。事件处理过程名的命名规则：对象名_事件的标准 名，本题中在对象按钮 Command1 上激发事件 Click（鼠标单击） ，VB 中事件处理过程为 Command1_Click。 还有一些事
2、件处理过程如 Text1_Change （文本框内容变化） 、 Form_Load （窗体装载）等。 2、窗体装载事件过程可以对程序进行初始化。VB 窗体装载事件过程的名称是（ ） ACommand1_Click BForm_Click CForm_Load DForm_DblClick 3、小李在设计 VB 程序时所使用复选框对象的属性窗口 如下图所示，他想编制该复选框单击事件的处理过程，则 该事件处理过程名是（ ） ACheckBox_Click B加粗_Click CCheck1_Click D复选框_Click 4、下列 VB 程序模块可以计算 1+2+3+n 的值。 Function
3、 sum(n As Integer) As Integer Dim i as integer For i=1 to n 2 next End Function 划线空白处应使用的语句是（ ） Asum=sum+n Bn=n+i Csum=sum+1 Dsum=sum+i 【解析】所考知识点：自定义函数。函数的功能主要是求值，在函数的编写过程中必须要 有一个形如函数名函数名=表达式表达式的语句，这样计算结果才能作为函数的返回值，被送到函数的 调用点上，题中可知函数名为 sum，实现累加的语句应为 sum=sum+i。 5、下列 VB 程序模块用来判断年份 y 是否是闰年。回答以下两个问题 Fun
4、ction 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 Intege
5、r 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 6、理论上表达式（a+b0 and a-b0）的基本数据类型是（ ） A.Long B.Double C. Boolean D. String 7、 某同学在编写程序时出现了如下图错误，导致此错误的原因是（ ） A缺少 End If B变量定义错误 Ca - 1=0 错误 Db=a 错误 3 6字符串变量 a,b 的值分别是“20“、“10“，则表达式 v
6、al（a+b）的值是（ ） A“20“+“10“ B2010 C“2010“ D30 7. VB 表达式 Len(Mid(“World Expo2010!”,7,4)的计算结果是（ ） A“d Expo2“ B“Expo“ C4 D7 7、 程序设计时，为了使人们能更容易地阅读、理解和调试程序，往往使用注释。在 Visual Basic 中，注释文字开头的符号是（ ） A : B C “ D 8、下列各赋值语句，语法错误的是（ ） Aabs(x)=5 BBiNumber =15 CLabell.caption =Time DsLength =Len(mystring) 9、模块化程序设计方法主
7、要通过（ ）来实现。 10、自定义函数 Fa 用来返回输入参数的绝对值。则下划线处应该输入的是（ ） Function Fa(X As Double) As Double If Then Fa = -X Else Fa = X End If End Function AX0 CX=0 DX0 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)
8、= 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 个 1100 之间的整数，fun 函数用来判定一个数的奇偶性。如果是奇数 函数返回 1，若是偶数便返回 0，相应的程序如下，在程序和划线处，填入适当的语 句或表达式，把程序补充完整。 程序中划线处应填入_ 程序中划线处应填入_ Function fun(m As Integer) As Integer If m Mod 2 = 1 Then A递归算法和递归程序 B程序的循环结构 C过程和函数的定义和调
9、用 D对象 4 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，称此对质数为
10、质数对，下列程序是找出 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
