.
12、设有语句
x=InputBox(\输入数值\示例\
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。 A：0是默认值
B：变量X的值是字符串\
C：在InputBox对话框标题栏中显示的是\示例\ D：变量X的值是数值10
参考答案：B
13、以下程序段运行的结果是：______。 Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1
If a(i) = False Then a(i) = True Exit For End If
If i = 5 Then flag = True End If Next Loop Print j
A：20 B：7 C：8 D：35 参考答案：D
14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。 x= IIF((a>b) And (c A：300 B：20 C：30 D：10 参考答案：B 15、要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。 A：0 B：1 C：3 D：2 参考答案：B VB考试三 1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。 . . A：Combo1.RemoveItem Combo1.Listcount B：Combo1.RemoveItem 2 C：Combo1.RemoveItem 3 D：Combo1.RemoveItem Text 参考答案：B 题分：6 2、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function Func(ByVal x As Integer, y As Integer) y = x * y If y > 0 Then Func = x Else Func = y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 4 c = Func(a, b) Print \ Print \Print \ End Sub 程序运行后，单击命令按钮，其输出结果为：______。 A：a= 3 b= 4 c= 12 B：a= 13 b= 12 c= 12 C：a= 3 b= 4 c= 3 D：a= 3 b= 12 c= 3 参考答案：D 题分：6 3、单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, ByVal m As Integer) n = n Mod 10 m = m / 10 . . End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 34 Call Procl(x, y) Print x; y End Sub A： 12 3 B： 2 3 C： 12 34 D： 2 34 参考答案：D 题分：6 4、以下关于函数过程的叙述中，正确的是______。 A：在函数过程中，过程的返回值可以有多个 B：函数过程形参的类型与函数返回值的类型没有关系 C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D：如果不指明函数过程参数的类型，则该参数没有数据类型 参考答案：B 题分：6 5、以下说法错误的是______。 A：函数过程可以带参数 B：子过程没有返回值 C：函数过程没有返回值 D：子过程可以带参数 参考答案：C 题分：6 6、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b = b + 1 End Sub 运行程序，三次单击命令按钮后，变量b的值是：______。 A：2 B：1 C：0 D：3 参考答案：B 题分：6 7、假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String . . Str1 = InputBox(\请输入一个字符串\ Str2= Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串\则单击\确定\按钮后在窗体上的输出结果为______。 A：GFEDCBA B：ABCEDFG C：gfedcba D：abcdefg 参考答案：A 题分：6 8、Sub过程与Function过程最根本的区别是______。 A：两种过程参数的传递方式不同 B：Function过程可以有参数，Sub过程不可以 C：Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 参考答案：D 题分：6 9、在代码中定义了一个子过程： Sub P(a,b) ... End Sub 下面______调用该过程的格式是正确的。 A：Call P B：Call P 10,20 C：P(10,20) D：Call P(10,20) 参考答案：D 题分：6 10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X, Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。 A： 15 15 B： 15 6 C： 15 16 . . D： 5 6 参考答案：B 题分：6 11、设有以下循环结构 Do 循环体 Loop While<条件> 则以下叙述中错误的是______。 A：循环体中可以使用Exit Do语句 B：\条件\可以是关系表达式、逻辑表达式或常数 C：若\条件\是一个为0的常数，则一次也不执行循环体 D：如果\条件\总是为True，则不停地执行循环体 参考答案：C 题分：6 12、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示是______。 A：7 B：6 C：8 D：9 参考答案：A 题分：6 VB考试四 1、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer,max As Integer For k=1 To 10 a(k)=InputBox(\输入一个整数\ Next k max=0 For k=1 To 10 .