VB(单选350道)

单项选择题1) 下列程序运行后，输出的结果为______。

B=1Do while (b<40)b=b*(b+1)LoopPrint ba) 42b) 39c) 6d) 1 答案：A2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。

Dim a(4) As IntegerDim b(4) As IntegerFor K =0 To 2a(K+1) =Val(InputBox(“请输入数据："))b(3-K) =a(K+1)Next KPrint b(K)a) 1b) 3c) 5d) 0 答案：A3) 下列程序执行后，变量s的值为______。

Dim s As long ,x As Integers=0:x=1Do While (x<10)s=s+xx=x+2LoopPrint sa) 10b) 25c) 50d) 100 答案：B4) 编写如下事件过程：Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)If Shift=6 And Button=2 ThenPrint "Hello"End IfEnd Sub程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。

a) 同时按下 Shift 键和鼠标左键b) 同时按下 Shift 键和鼠标右键c) 同时按下Ctrl、Alt 键和鼠标左键d) 同时按下 Ctrl、Alt 键和鼠标右键答案：D 5) 当变量x=2,y=5时，以下程序的输出结果为____。

Do until y>5x=x*yy=y+1loopprint xa) 2b) 5c) 10d) 20 答案：C6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。

Private Sub cmdlt_click()Dim I,RR=0For I=1 To 5 Step 1R=R+INext IlblResult.Caption=Str（R）End Suba) 字符串15b) 整数15c) 字符串5d) 整数5 答案：A7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。

X=1dox=x+3print xloop until(___)a) x>=8b) x<=8c) x>=7d) x<=7 答案：A8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。

If a>5 thenif b<4 thenc=a-belsec=b-aEnd ifelseif b>3 then c=a*belsec=a mod bEnd ifa) 2b) -1c) 1d) 6 答案：A9) 设有如下语句：str1=inputbox("输入","","练习")从键盘上输入字符串“示例”后，str1的值是___。

a) “输入”b) “”c) “练习”d) “示例”答案：D10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，Private Sub Text1_change( )Text2.text=ucase(Text1.text)End Sub则在Text1文本框输入“visual basic”，Text2将______。

a) Text2中无内容显示。

b) Text2显示"VISUAL BASIC"。

c) Text2显示"visual basic"d) Text1显示"visual basic" 答案：B11) 下列程序的运行后s的值是_____。

S=0For x=99 to 1 Step-2s=s+xNext xPrint sa) 100b) 500c) 2500d) 5000 答案：C12) 下列程序的执行结果是____。

K=0For I=1 To 3a=I^I^Kprint a;Next Ia) 1 1 1b) 1 2 3c) 0 0 0d) 1 4 9 答案：A13) 下列程序的执行结果是_____。

Dim a(5) As StringDim b As IntegerDim I As IntegerFor I =0 To 5a(I)=I+1Print a(I)Next Ia) 123456b) 6c) 654321d) 0 答案：A 14) 下列程序的执行结果为_____。

Dim intsum As IntegerDim I As Integerintsum=0For I=20.2 To 5 Step -4.7intsum=intsum +INext IPrint intsuma) 150b) 200c) 50d) 0 答案：C15) 下列程序的执行结果为_____。

Dim S As Integer,n As IntegerS=0:n=1Do While n<=100S=S+nn=n+1LoopPrint Sa) 5050b) 2500c) 3000d) 4000 答案：A16) 下列程序的执行结果为_____。

A=100:b=50If a>b Thena=a-bElseb=b+aEnd ifPrint aa) 50b) 100c) 200d) 10 答案：A17) 下列程序的执行结果为________。

Dim intsum As IntegerDim I As Integerintsum=0For I=0 To 50 Step 10intsum=intsum+INext IPrint intsuma) 150b) 200c) 50d) 0 答案：A18) 下面程序执行后，X的结果为_____。

X=0For I =1 to 5For j=I to 5X=X+1Next jNext IPrint Xa) 5b) 10c) 15d) 20 答案：C19) 下面程序执行的结果是____。

Private Sub Form_Click()A$="123":B$="456"C=Val(A$)+Val(B$)Print C\100End Suba) 123b) 3c) 5d) 579 答案：C20) 下列循环语句将执行______次。

A=100DoPrint aa=a+1Loop until a<=10a) 1b) 10c) 100d) 死循环答案：D21) 下面程序段的循环结构执行后，的输出值是_____。

程序段为：For I=1 to 10 step 2y=y+INext Iprint I;a) 25b) 10c) 11d) 因为Y的初值不知道，所以不确定答案：C22) 写列程序段的执行结果____。

A="abbacddcba"for I=6 to 2 step -2x=mid(a,I,I)y=left(a,I)z=right(a,I)z=x & y & znext Iprint Ucase(z)a) ABA b) AABAABc) BBABBAd) ABBABA 答案：C23) 以下语句输出结果是（在立即窗口中）_____。

A="Beijing"b="ShangHai"Print a;ba) Beijing ShangHaib) Abeijing ShangHaic) BeijingShangHaid) Abeijing 答案：C24) 有如下程序：For I=1 To 3For j=5 To 1 Step-1Print I+jNext j,I其循环执行的次数为______。

a) 12b) 13c) 14d) 15 答案：D25) 有如下程序段，该程序执行后，变量a的值为______。

For I=1 To 2For J=I To 2For K=1 To Ja=a+2Next KNext JNext Ia) 2b) 8c) 10d) 20 答案：C26) 执行下列程序后，变量a的值为____。

Dim I as integerdim a as integera=0for I=0 to 100 step 2a=a+1next Ia) 1b) 10c) 51d) 100 答案：C27) 执行下列程序后，X的值为______。

X=3y=6Do While y<=6x=x*yy=y+1Loopa) 3b) 6c) 18d) 20 答案：C28) 执行下列程序段后，整型变量c的值为___。

A=24b=328select case b\10case 0c=a*10+bcase 1 to 9c=a*100+bcase 10 to 99c=a*1000+bend selecta) 537b) 2427c) 24328d) 240328 答案：C29) 执行完下面的程序段后，循环将执行____次。

For I=1.7 To 5.9 Step 0.9a=a+1Print aNext Ia) 3b) 4c) 5d) 6 答案：C30) 有如下语句，执行后该段语句的循环次数是_____。

Dim s,I,j as integerFor I =1 to 3For j=3 To 1 Step-1S=I*jNext jNext Ia) 9b) 10c) 3d) 4 答案：A31) 有如下程序，该程序将______。

For I=1 to 10 step 0K=k+2Next Ia) 形成无限循环。

b) 循环体执行一此后结束循环。

c) 语法错误。

d) 循环体不执行即结束循环。

答案：A32) 有如下程序段，该程序段执行完毕后，共循环了________。

For I=1 To 5For j=1 To IFor k=j To 4Print "a"Next kNext jNext Ia) 4b) 5c) 38d) 40 答案：D33) 有如下程序，该程序的运行结果为______。

Dim k As Integern=5:m=1:k=1Do While k<=nm=m*2k=k+1LoopPrint ma) 1b) 5c) 32d) 40 答案：C34) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。

Private Sub Command_Click()Dim x As DoubleFor I=0 To 1000If ____ Thenx=x+IEnd IfNext IPrint xEnd Suba) i Mod 2 = 0b) x Mod 2 = 0c) I Mod 2 <> 0d) x Mod 2 <> 0 答案：A35) 以下是计算10的阶乘的程序，请补充该程序。