vb笔试题测试二

vb笔试题测试二内容摘要：

Dim n% n = 1 While a \ 10 = 0 n = n + 1 a = a \ 10 Wend fun = n End Function 在调用该函数时发现返回的结果不正确 ， 函数需要修改 ， 下面的修改方案中正确的是 A） 把语句 n = 1 改为 n = 0 B） 把循环条件 a \ 10 = 0 改为 a \ 10 0 C） 把语句 a = a \ 10 改为 a = a Mod 10 D） 把语句 fun = n 改为 fun = a 15. 下面程序的输出结果是 Private Sub proc(ch As String) S=”” For k=Len(ch) To 1 Step1 s=samp。 Mid(ch,k,1) Next k ch=s End Sub Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub A） ABCDEF B） FEDCBA C） A D） F 16. 某人编写了一个能够返回数组 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 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 A）语句 max = 1 应改为 max = a(1) B）语句 For k = 2 To 10 应改为 For k = 1 To 10 C） If 语句中的条件 a(k)a(max)应改为 a(k)max D）语句 MaxValue = max 应改为 MaxValue = a(max) 17. 在窗体上画 1 个命 令按钮 (名称为 Command1)和 1个文本框 (名称为 Text1)，然后编写如下事件过程： Private Sub Command1_Click() x=Val() Select Case x Case 1， 3 y=x*x Case Is=10， Is=10 y=x Case 10 To 10 y=x End Select End Sub 程序运行后，在文本框中输入 3，然后单击命令按钮，则以下叙述中正确的是。 A) 执行 y=x*x B) 执行 y=x C) 先执行 y=x*x，再执行 y=x D) 程序出错 18. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc(A) + (i 1)) Next i For Each b In a Print b。 Next End Sub 程序运行后，单 击命令按钮，输出。