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

《VB笔试试题及答案试题不全》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、12若变量a未事先定义而直接使用(例如：a=0，则变量a的类型是A)integerB)StringC)BooleanD)Variant13为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为A)dimpiasintegerB)dimpi(7)asintegerC)dimpiassingleD)dimpiaslong14表达式2*3^2-4*2/2+3^2的值是A)30B)31C)49D)48dcb21、窗体上有command1command2两个命令按钮。先编写以下程序：Optionbase0Dima()AsInteger,mAsIntegerPriva

2、teSubCommand1_Click()m=InputBox(“请输入一个正整数”)ReDima(m)EndSubPrivateSubCommand2_Click()m=InputBox(“请输入一个正整数”)ReDima(m)EndSub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中的元素的个数是A）5B）6C）10D）1122、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：2PrivateSubCommand1_Click()Counter=0Fori=1To4For

3、j=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是A）11B）12C）16D）2027、在窗体上画一个名称为Text1的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：循环次数循环变量值循环体效果开始(第1次)Fori=0I=i+3I=3N=n+1N=1Ifi>10false第2次Fori=4(i自动加1)I=i+3I=7N=n+1N=2Ifi>10false第3次Fori=8(i自动加1)I=i+3I=11N=n+1N

4、=3Ifi>10True，结束PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1ifi>10ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A）2B）3C）4D）5(20)阅读程序：4Private　Sub　Command1_Click()　　a=0　　For　j=1　To　15　　　　　　a=a+j　Mod　3　　Next　j　　Print　aEnd　Sub程序运行后，单击窗体，输出结果是A)105B)1C)1

5、20D)15 (23)在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option　Base　13Private　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)4321B)1234C)34D)12(25)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码：

6、Option　Base　03Private　Sub　Command1_Click()　　　Dim　A1(4)　As　Integer,　A2(4)　As　Integer　　　For　k　=　0　To　2　　　　　A1(k　+　1)　=　InputBox("请输入一个整数")　　　　　A2(3　-　k)　=　A1(k　+　1)　　　Next　k　　　Print　A2(k)End　Sub程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为A)0B)1C)2D)321、窗体上有command1command2两个命令按钮。先编写以下程序：Optionbase0D

7、ima()AsInteger,mAsIntegerPrivateSubCommand1_Click()m=InputBox(“请输入一个正整数”)ReDima(m)EndSubPrivateSubCommand2_Click()m=InputBox(“请输入一个正整数”)ReDima(m)EndSub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中的元素的个数是A）5B）6C）10D）1122、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1