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

12若变量a未事先定义而直接使用(例如：a=0，则变量a的类型是A)integer B)StringC)Boolean D)Variant13为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为A)dim pi as integer B)dim pi(7) as integerC)dim pi as single D)dim pi as long14表达式2*32-4*2/2+32的值是A)30 B)31C)49 D)48dcb21、窗体上有command1command2两个命令按钮。先编写以下程序：Option base 0Dim a( ) As Integer , m As IntegerPrivate Sub Command1_Click( )m=InputBox(“请输入一个正整数”)ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox(“请输入一个正整数”)ReDim a(m)End Sub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中的元素的个数是A）5 B）6 C）10 D）1122、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： 2Private Sub Command1_Click( )Counter=0For i=1 To 4 For j=6 To 1 Step -2 Counter= Counter+1 Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是A）11 B）12 C）16 D）2027、在窗体上画一个名称为Text1的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：循环次数循环变量值循环体效果开始(第1次)For i=0I=i+3I=3N=n+1N=1If i10false第2次For i=4(i自动加1)I=i+3I=7N=n+1N=2If i10false第3次For i=8(i自动加1)I=i+3I=11N=n+1N=3If i10True，结束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)阅读程序： 4PrivateSubCommand1_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序运行后，单击窗体，输出结果是A)105B)1C)120D)15(23)在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBase1 3PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮，其输出结果是A)4321 B)1234 C)34 D)12(25)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码：OptionBase0 3PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox(请输入一个整数)A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为A)0 B)1 C)2 D)321、窗体上有command1command2两个命令按钮。先编写以下程序：Option base 0Dim a( ) As Integer , m As IntegerPrivate Sub Command1_Click( )m=InputBox(“请输入一个正整数”)ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox(“请输入一个正整数”)ReDim a(m)End Sub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中的元素的个数是A）5 B）6 C）10 D）1122、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub Command1_Click( )Counter=0For i=1 To 4 For j=6 To 1 Step -2 Counter= Counter+1 Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是A）11 B）12 C）16 D）2025、在窗体上画一个名称为Command1命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click( ) X=5:Y=3 Call proc(X、Y) Label1.Caption=X Label2.Caption=YEnd SubPrivate Sub proc(a As Integer,By Val b As Integer) X=a*a Y=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是A）25和3 B）5和3 C）25和6 D）5和627、在窗体上画一个名称为Text1的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：循环次数循环变量值循环体效果开始(第1次)For i=0I=i+3I=3N=n+1N=1If i10false第2次For i=4(i自动加1)I=i+3I=7N=n+1N=2If i10false第3次For i=8(i自动加1)I=i+3I=11N=n+1N=3If i10True，结束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 28、假定有以下循环结构 Do Until 条件表达式 循环体 Loop则以下正确的描述是A） 如果“条件表达式”的值是0，则一次循环体也不执行B） 如果“条件表达式”的值不为0，则至少执行一次循环体C） 不论“条件表达式”的值是否为“真”，至少要执行一次循环体D） 如果“条件表达式”的值恒为0，则无限次执行循环体29、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click ( ) Dim 1，Num Randomize Do For 1=1 To 1000 Num=In1 (Rnd * 100) Print Num Select Case Num Case 12 Exit Fox Case 58 Exit Do Case 65, 68, 92 End End Select Next I Loop End Sub上述事件过程执行后，下列描述中正确的是A） Do循环执行的次数为1000次B） 在For循环中产生的随机数小于或等于100C） 当所产生的随机数为12时结束所有循环D） 当所产生的随机数为65、68或92时窗体关闭、程序结束30、在窗体上画一个名称为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 sEnd Sub 运行上面的程序，其输出结果是A)1234 B)12 C)34 D)432131、设有如下通用过程： Public Function Fun(x Str As String) As String Dim tStr As String, str1, As Integer tStr “”str1,- len(xStr)i =1Do While I =str1/2 tStr =tStr & Mid(xStr,i,1)&Mid(xStr,str1,-i+1,1) i=i+1Loop Fun=tStrEnd Function在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Sub Command1_Click ( ) Dim S1 As String S1=”abcdef” Print UCase(Fun(S1)End Sub程序运行