第06章 过程设计题目.doc

1.当在Text1文本框中输入字母“A”时，则被调用的事件过程是（D）。 A. Form_KeyPress() B. Text1_LostFocus() C. Text1_Click() D. Test1_Change() 2. 当单击窗体上名称为Command1的命令按钮时，则光标移动到名称为Text1的文本框中。下面正确的事件过程是（B）。 A.Private Sub Command1_Click() Text1.GotFocus End Sub B. Private Sub Command1_Click() Text1.SetFocus End Sub C. Private Sub Text1_Click() Command1.GotFocus End Sub D. Private Sub Text1_Click() Command1.SetFocus End Sub 3. 单击窗体Form1上的一个列表框List1中某一项时，把该项显示在窗体上，正确的事件过程是（A）。 A. Private Sub List1_Click() Print List1.Text End Sub B. Private Sub List1_Click() Print List1.ListIndex End Sub C. Private Sub List1_Click() Print List1.List(ListIndex) End Sub D. Private Sub Form_Click() Print List1.List(List1.ListIndex) End Sub 4. 根据阶乘的定义，可编写求阶乘的递归函数过程如下，其中空格处应该是（B）。 Private Function Fact(ByVal N As Integer) As Long If N=0 Or N=1 Then Fact=1 Else Fact=__N*Fact(N-1) ______ End If End Function A. N*N-1 B. N*Fact(N-1) C. N*(N-1) D. N*(N-1)! 5. 为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a% = 10:b% = 20 Call swap(a,b) Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c= a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（C）。 A. 调用swap过程的语句错误，应改为Call swap a,b B. 输出语句错误，应改为：Print ”a”,”b” C. 过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer) D. swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a 6. 下面程序的输出结果是（B）。 Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub Private Sub proc(ch As String) S=”” For k=Len(ch) To 1 Step-1 s=sMid(ch,k,1) Next k ch=s End Sub A. ABCDEF B. FEDCBA C. A D. F 7. 某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)a(max) Then max = k End If Next k MaxValue = max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是( C ) A. 语句max = 1应改为max = a(1) B. 语句For k = To 10应改为For k = To 10 C.