VB笔试试题及答案试题不全.docVIP

12若变量a未事先定义而直接使用(例如：a=0，则变量a的类型是 A)integer B)String C)Boolean D)Variant 13为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为 A)dim pi as integer B)dim pi(7) as integer C)dim pi as single D)dim pi as long 14表达式2*3^2-4*2/2+3^2的值是 A)30 B)31 C)49 D)48 dcb 21、窗体上有command1\command2两个命令按钮。先编写以下程序： Option base 0 Dim a( ) As Integer , m As Integer Private Sub Command1_Click( ) m=InputBox(“请输入一个正整数”) ReDim a(m) End Sub Private Sub Command2_Click( ) m=InputBox(“请输入一个正整数”) ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中的元素的个数是 A）5 B）6 C）10 D）11 22、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： 2 Private Sub Command1_Click( ) Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter= Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是 A）11 B）12 C）16 D）20 27、在窗体上画一个名称为Text1的文本框和一个名称为Command1命令按钮，然后编写如下事件过程： 循环次数 循环变量值 循环体 效果 开始(第1次) For i=0 I=i+3 I=3 N=n+1 N=1 If i10 false 第2次 For i=4 (i自动加1) I=i+3 I=7 N=n+1 N=2 If i10 false 第3次 For i=8 (i自动加1) I=i+3 I=11 N=n+1 N=3 If i10 True，结束 Private Sub Command1_Click( ) Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 if i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A）2 B） 3 C）4 D）5 (20)阅读程序：Private　Sub　Command1_Click() 　　a=0 　　For　j=1　To　15 　　　　　　a=a+j　Mod　3 　　Next　j 　　Print　a End　Sub 程序运行后，单击窗体，输出结果是A)105 B)1 C)120 D)15? (23)在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option　Base　1Private　Sub　Command1_Click() 　　　Dim　a 　　　a　=　Array(1,　2,　3,　4) 　　　j　=　1 　　　For　i　=　4　To　1　Step　-1 　　　　　s　=　s　+　a(i)　*　j 　　　　　j　=　j　*　10 　　　Next　i 　　　Print　s End　Sub 程序运行后，单击命令按钮，其输出结果是 A)4321B)1234 C)34 D)12 (25)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码： Option　Base　0Private　Sub　Command1_Click() 　　　Dim　A1(4)　As　Integer,　A2(4)　As　Integer 　　　For　k　=　0　To　2 　　　　　A1(k　+　1)　=　InputBox(请输入一个整数)