执行VisualBasic程序的测试题VIP

1、选择题 0分(   ) 1.执行下列Visual Basic语言片段程序的结果为何？X = 110If X < 100 ThenY = 1ElseY = 2 If X > 120 ThenY = 3 End IfEnd IfPrint Y(A)1 (B)2 (C)3 (D)110 (   ) 2.下列这段BASIC程序代码，可以由身高及性别计算标准体重，计算后所印出的Weight值为何？Sex = "F"Height = 170If Sex = "M" then Weight = (Height - 80) * 0.7El

2、se Weight = (Height - 70) * 0.6End IfPrint Weight(A)54 (B)56 (C)60 (D)63 (   ) 3.执行下列Visual Basic程序片段后，Max值为何？A =10: B = 20If A > B Then Max = AElse Max = BEnd If(A)10 (B)20 (C)30 (D)Max (   ) 4.执行下列Visual Basic程序后，输出的结果为何？x = 10: y = 4If x > = 10 And y < 6 ThenPrint "HappyEn

3、d IfPrint "Birthday"(A)HappyBirthday (B)Happy (C)BirthdayHappy (D)Birthday (   ) 5.执行下列Visual Basic程序后，输出的结果为何？X = 13X = X + 10IF X >= 30 THEN X = X - 20PRINT X(A)3 (B)13 (C)23 (D)43 (   ) 6.在Visual Basic程序语言中，下列何种指令最适合用于多重选择结构中？(A)Do.Loop (B)For.Next (C)Option Base (D)Select.

4、Case (   ) 7.执行下列Visual Basic程序后，输出的结果为何？A = 1: B = 2If A > 1 Then B = B + 3Print B(A)1 (B)2 (C)3 (D)5 (   ) 8.下列程序叙述中，何者可用来判断BMI值介于18至24之间？(A)If BMI >= 18 Or BMI <= 24 (B)If BMI = 18 And BMI = 24 (C)If BMI >= 18 And BMI <= 24 (D)If BMI =18 Or BMI = 24 (   ) 9.执行下列Visua

5、l Basic程序后，输出的结果为何？x = 4: y = 1Select Case xCase 1 To 3: y = x + 3 * yCase 4 To 6: y = x + 5 * yCase 7 To 9: y = x + 7 * yEnd SelectPrint y(A)5 (B)9 (C)10 (D)12 (   ) 10.下列Visual Basic程序之执行结果为何？A = 3: B = 2: C = 1If B < A ThenC = B + AEnd IfPrint C(A)C = 1 (B)C = 2 (C)C = 3 (D)C = 5 (  

6、 ) 11.下列是一个利用巢状If判断叙述来检查大月（1、3、5、7、8、10、12月）之日期是否合理的程序片段，请问空格处应填入哪一个条件式，才能判断日期是否合理（假设变量d储存日期数据）？If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 ThenIf _ ThenMsgBox ("输入的日期合理")ElseMsgBox ("输入的日期不合理")End IfEnd If(A)d = 1 31 (B)d >= 1 And d <= 31 (C)d <= 31

7、 (D)d >= 1 (   ) 12.在程序设计的观念中，先测试某一条件再依结果改变执行路径的结构属于(A)循序结构 (B)随机结构 (C)选择结构 (D)多元结构 (   ) 13.执行下列Visual Basic程序后，输出的结果为何？a = 3: b = 5: c = 4If a > b ThenIf b > c Then Print a;ElsePrint b;End IfPrint c(A)4 (B)34 (C)54 (D)354 (   ) 14.执行下列Visual Basic程序后，输出的结果为何？Y = -1If Y >

8、 1 Or Y <= -1 Then Print "1If Y >= -1 And Y <= 0 Then Print "2If Y > 0 And Y <= 1 Then Print "3Print Y + 1(A)123 (B)23 (C)120 (D)124 (   ) 15.下列Visual Basic程序执行后，总共输出几个$？Private Sub Form_Activate( )X = 3 2Select Case X Case 1: Print "$" Case 2: Print &quo

9、t;$" Case Else: Print "$"End SelectEnd Sub(A)1 (B)2 (C)3 (D)6 (   ) 16.若某家婚友社要利用Visual Basic帮敬民撰写一个可过滤征婚条件是否符合的程序；假设他的择偶条件为：年龄（age）须不满30岁且身高（h）须在165公分（含）以下。请问下列空格处应填入If age < 30 ThenIf _ ThenMsgBox ("条件符合，可安排双方见面")End IfEnd If(A)h <= 165 (B)h < 165 (C)h >= 1

10、65 (D)h > 165 (   ) 17.执行下列Visual Basic程序片段，会产生哪一种错误的讯息？If a > 5 Thena = a + 3ElseIf b > 5 Then a = a - 5(A)没有定义变量的初始值 (B)变量名称没有意义 (C)If条件式中不能使用比较运算子 (D)没有成对的End If (   ) 18.叙述If A > 100 And B$ <> "Y" Then C = 1 Else C = 2与下列何者同等效果？(A)If A <= 100 Or B$ = &quo

11、t;Y" Then C = 2 Else C = 1 (B)If A <= 100 And B$ = "Y" Then C = 2 Else C = 1 (C)If Not (A < 100 Or B$ = "Y") Then C = 1 Else C = 2 (D)If A < 100 And B$ = "N" Then C = 2 Else C = 1 (   ) 19.执行下列Visual Basic程序片段，出现提示符号时输入任一整数，其输出的结果不可能为下列何者？j = InputBox

12、("input number")a = Sgn(j)Select Case aCase -1: Print "A"Case 0: Print "B"Case 1: Print "C"Case 2: Print "D"End Select(A)A (B)B (C)C (D)D (   ) 20.下列Visual Basic语言片段程序的执行结果为何？A = 1: B = 2If A < B Then A = BIf A >= B Then B = A 1Print "

13、;A =A; ", "B =B (A)A = 1, B = 1 (B)A = 1, B = 2 (C)A = 2, B = 1 (D)A = 2, B = 2 (   ) 21.执行下列Visual Basic程序后，输出的结果为何？If "a" + "b" + "c" < "ABC" ThenPrint "Yes"ElsePrint "No"End If(A)0 (B)Yes (C)No (D)1 (   ) 22.下列Visu

14、al Basic语言片段程序执行后，何者正确？a = 5b = 10If (a Mod 2 = 0) Thena = a + 1ElseIf (b Mod 2 = 0) Thenb = b + 2Elsea = a + 2b = b + 1End If(A)a = 6 (B)a = 7 (C)b = 11 (D)b = 12 (   ) 23.执行下列Visual Basic程序片段，出现提示符号时输入数值10，则输出打印结果为：a = InputBox("input data")b = a Mod 2 3If a < b Then Print a + bI

15、f a > b Then Print a - b(A)0 (B)8 (C)11 (D)18 (   ) 24.在Select Case叙述中，下列有关Case子句的用法，何者错误？(A)Case 0 To 10 (B)Case Is > 10 (C)Case Is > 10 And Is < 50 (D)Case 3, 5, Is > 10 (   ) 25.执行下列Visual Basic程序后，输出的结果为何？X = 1: Y = 2: Z = 3X = Z: Y = Z: Z = YPrint "X + Z =Select Ca

16、se X + Z Case Is = Y Print Y Case Is > Y Print Z Case Else Print X + YEnd Select(A)X + Z = 9 (B)X + Z = 6 (C)X + Z = 4 (D)X + Z = 3 (   ) 26.下列Visual Basic程序之执行结果为何？D = 400 If D <= 100 ThenFare = D * 2 ElseIf D <= 300 ThenFare = 200 + (D - 100) * 3 Else Fare = 800 + (D - 300) * 5 End I

17、fEnd If Print Fare(A)400 (B)800 (C)1100 (D)1300 (   ) 27.执行下列Visual Basic程序后，输出的结果为何？a = 2If a > 0 ThenSelect Case a = a + 2Case 2Print "A"Case 4Print "B"Case ElsePrint "C"End SelectEnd If(A)A (B)B (C)C (D)0 (   ) 28.执行下列Visual Basic程序片段，出现提示符号时，若以默认值输入，则输出

18、打印结果为？price = Val(InputBox("输入价格", , 5500)Select Case priceCase Is < 3000pay = priceCase 3000 To 5500pay = price * 0.95Case 5500 To 9000 pay = price * 0.88End SelectPrint "Price = price; "Pay = pay(A)Pay = 24928 (B)Pay = 5225 (C)Price = 3000 (D)Price = 5600 (   ) 29.执行下列的

19、Visual Basic程序片段后，请问第一个输出的数据为何？a = 2c = 1AAA: c = c + aIf c < 10 Then Print c GoTo AAAElse Print "10以内的奇数已打印完毕"End If(A)1 (B)3 (C)5 (D)7 (   ) 30.执行下列Visual Basic程序，结果为何？S = (3 - 1.5) 2Select Case SCase Is < 1:Print "A"Case Is = 1Print "B"Case Is > 1Print

20、"C"End Select(A)A (B)B (C)C (D)D (   ) 31.某英语测验采用19级的评分标准，级数愈高表示英语能力愈好。若某家补习班要使用VB来撰写一个程序，供学生查询各级数所代表的英文程度，试问使用下列哪一个叙述来依据学生输入的级数判断英文程度，可让程序叙述的层次较为简洁且易于阅读？(A)If-Then (B)If-Then-Else (C)Select Case (D)巢状If-Then-Else (   ) 32.执行下列Visual Basic程序后，输出结果为何？Private Sub Form_Activate( )sc

21、ore = Int(Rnd * 10) + 20Select Case scoreCase Is < 20: Print "Z"Case 20 To 29: Print "Y"Case 30 To 39: Print "X"Case Else: Print "W"End SelectEnd Sub(A)W (B)X (C)Y (D)Z (   ) 33.执行下列Visual Basic程序片段后，输出结果为何？s = 3For i = 1.4 To 2.1 Step 0.6s = s + 1Next

22、 iPrint CInt(i)(A)3 (B)4 (C)5 (D)6 (   ) 34.下列的Visual Basic程序叙述是用来计算输入数值的绝对值，请问空格处应该填入的程序代码为何？a = InputBox("请输入数值：")If Then a = -aPrint a & "的绝对值为" & a(A)a > 0 (B)a = 0 (C)a < 0 (D)a <> 0 (   ) 35.下列这段BASIC程序代码将变数A与B的数值依据大小重新调整，把较大的数存放到变数A，较小的数存放到变数B

23、，则空格中应填入的程序代码为何？IF B > A THEN B = AA = HEND IF(A)B = H (B)A = B (C)H = A (D)H = B (   ) 36.10X = 220IF X >= 3THEN X = X +230PRINT X40END上述之程序执行结果为(A)2 (B)3 (C)4 (D)5 (   ) 37.执行下列Visual Basic语言的程序片段后，变量C的值为何？Dim A As Integer, B As IntegerA = 19: B = 32If 2 * A > B Then C = 2 Else

24、C = 4 End If(A)C = 1 (B)C = 2 (C)C = 3 (D)C = 4 (   ) 38.求执行下列BASIC程序后，印出a的结果为何？a = 0:j = 2IF a > j THENa = a + 2ELSEa = a + 1END IFa = a * jPRINTa(A)0 (B)1 (C)2 (D)4 (   ) 39.下列程序的执行结果为何？If ( 6 > 5 or 4 > 5 ) ThenPrint "A"ElsePrint "B"End If(A)B (B)A (C)6 (D)4

25、 (   ) 40.以下程序片断执行后，结果何者正确？A = 3: B = 4IF A + 3 < 5 OR B - 2 < 1 THENA = A + 2B = B - 1ELSEA = A - 2B = B + 1END IF(A)A = 3 (B)A = 5 (C)B = 3 (D)B = 5 (   ) 41.BASIC语言的片段程序如下：A = 1: B = 2: C = 3If B > 1 Then If A < 1 Then C = 2 ElseC = 4 End IfEnd If上述程序执行后，下列何者正确？(A)C = 1 (B)C

26、 = 2 (C)C = 3 (D)C = 4 (   ) 42.请问下列BASIC 程序，如果输入为85，则执行的结果为何？NVal(InputBox("请输入数字")If N < 100 ThenIf N90 ThenPrint "BElsePrint "CEnd IfPrint "AEnd If(A)BA (B)CA (C)B (D)C (   ) 43.下列Visual Basic程序片段的执行结果为何？s = 3000If s >= 1000 And s < 3000 ThenPrint "

27、;打九折"ElseIf s >= 3000 ThenPrint "打八五折"ElsePrint "无折扣"End IfEnd If(A)输出 "打九折" (B)输出"打八五折" (C)输出 "打八折" (D)输出" 无折扣" (   ) 44.执行下列Visual Basic程序片段后，C的值为何？A = 30: B = 15If A > B ThenC = A - BElseC = B - AEnd If(A)7 (B)15 (C)30 (D

28、)45 (   ) 45.执行下列Visual Basic程序：D = 300 If D <= 100 Then Tax = D * 2 Else If D <= 250 Then Tax = 150 + (D - 50) * 3 Else Tax = 700 + (D - 100) * 5 End IfEnd If Print Tax 试问输出结果为(A)600 (B)900 (C)1200 (D)1700 (   ) 46.执行下列Visual Basic程序片段的结果后，b的值为何？a = 5Select Case aCase 3 b = a 1Case

29、5 b = a 2End Select(A)5 (B)25 (C)125 (D)130 (   ) 47.在BASIC语言中执行以下的程序代码后，屏幕输出的数据为何？N6Select Case N Case 1 Print "A" Case 2 Print "B" Case Else Print "C" End Select(A)A (B)B (C)C (D)ABC (   ) 48.下列Visual Basic程序之执行结果为何？GR1Select Case GR Case 1 GRGR2 Case 2 GRGR

30、3 Case Else GRGR6 End Select Print GR(A)1 (B)3 (C)9 (D)21 (   ) 49.下列Visual Basic的程序，其输出结果为何？X = 20Select Case X / 10Case 0Print "ACase 1Print "BCase ElsePrint "CEnd Select(A)B (B)C (C)BC (D)ABC (   ) 50.IF.THEN.ELSE为下列何种结构？(A)循序结构 (B)选择结构 (C)重复结构 (D)树状结构 (   ) 51.下列何种程

31、序语法是多选一的程序执行流程？(A)Select Case叙述 (B)While Wend叙述 (C)If叙述 (D)For Next叙述 (   ) 52.执行下面的Visual Basic程序代码后，输出的数据为何？Private Sub Form_Activate()X = 5 2Select Case XCase 1 print "small"Case 2 print "medium"Case Else print "large"End SelectEnd Sub(A)error (B)large (C)medium

32、 (D)small (   ) 53.下列程序执行的结果为何？A = 5Select Case ACase 1B = A * 1 Case 3B = A * 2Case 5B = A * 3End SelectPrint B(A)5 (B)10 (C)15 (D)20 (   ) 54.下列关于程序设计或程序语言的叙述，何者正确？(A)浮点数（floating point）型态的变量不一定能精确地储存所有数字 (B)计算机运算能力愈来愈强，算法的效率已不再重要 (C)程序设计师不应该使用程序语言的内建函数（built-in function），因为其它人所撰写的程序不值得信

33、赖 (D) goto叙述能精确地控制程序流程，应该多多使用 (   ) 55.程序中For a = 5 To终值Step增加值之终值应为何？(A)2 (B)1 (C)1 (D)2 (   ) 56.程序中For a = 5 To终值Step增加值之增加值应为何？(A)2 (B)1 (C)1 (D)2 (   ) 57.以下哪一种叙述在撰写程序时可使用来处理多维数组(A)If Then叙述 (B)巢状的For Next循环 (C)Select case叙述 (D)GoTo叙述 (   ) 58.下列Visual Basic程序片段，执行后的结果为何？X =

34、 1: Y = 150: Z = 56.25B = Z / (Y / 100) 2If (X Mod 2 <> 0) Then If B < 26 Then Print "ma" Else Print "mb" End IfElseIf B < 24 ThenPrint "fa"ElsePrint "fb"End IfEnd If(A)fa (B)fb (C)ma (D)mb (   ) 59.使用BASIC程序语言执行下列程序代码后，则屏幕输出多少个*符号？For I = 1 t

35、o 3For J = 1 To 4 Step 3For K = 1 To 5Print "*"Next K,J,I(A)12个 (B)15个 (C)20个 (D)30个 (   ) 60.下列这段BASIC程序代码执行后，所印出的X值结果为何？X = 0For Y = 1 To 10 Step 2 For Z = 10 To 1 Step -3 If Y = Z ThenX = X + 1 End IfNext ZNext YPrint X(A)0 (B)2 (C)11 (D)20 (   ) 61.使用BASIC程序语言执行下列程序代码后，则屏幕输出结

36、果是多少？X = 9Y = 5Z = 6IF (X Mod Y) > Z ThenPrint (Y Mod X)ElsePrint (Y Mod Z)END IF(A)0 (B)1 (C)4 (D)5 (   ) 62.以下Visual Basic程序执行后，会印出什么？S = 10For A = 1 To 5 For B = 1 To A S = S + 1 Next BNext APrint S(A)15 (B)25 (C)35 (D)40 (   ) 63.执行下列Visual Basic语言片段程序的结果为何？S = 0For K = 1 to 4S = S

37、+ (K Mod 2)Next KPrint S(A)2 (B)4 (C)6 (D)10 (   ) 64.以下Visual Basic程序执行后，会印出什么？X = 1Sum = 0While X < 20 If X < 10 Then Sum = Sum + X End If X = X * 2WendPrint Sum(A)7 (B)10 (C)15 (D)31 (   ) 65.执行下列Visual Basic语言片段程序的结果为何？S = 0For X = 1 to 2For Y = 1 to 3S = S + 1Next YS = S + 2Next

38、 XPrint S(A)4 (B)6 (C)10 (D)30 (   ) 66.下列哪一个Visual Basic叙述，适合用来处理程序中某段须重复执行，但无法事先确定执行次数的工作？(A)For-Next (B)Do-Loop (C)Select-Case (D)If-Then (   ) 67.下列程序执行后，显示的结果为何？C = 2For I = 1 To 10If I Mod 2 = 0 Then C = C + INext IPrint C(A)57 (B)55 (C)32 (D)30 (   ) 68.若m = 20、n = 18执行下列程序后，m值

39、会变成多少？Do While m <> nDo While m > n: m = m - n: LoopDo While m < n: n = n - m: LoopLoop(A)1 (B)2 (C)4 (D)8 (   ) 69.关于For.Next叙述，下列何者正确？(A)For的递增值若为1或-1，则Step可省略不写 (B)Next后面的控制变量可省略不写 (C)For的终值不得小于初值 (D)For的初值若为1，则可省略不写 (   ) 70.下列Visual Basic程序片段执行后，会在屏幕上出现几个#号？For I = 19 To 1

40、 Step -3Print "#Next I(A)6 (B)7 (C)8 (D)9 (   ) 71.下列程序执行后，显示的结果为何？F = 4: G = 6: G = G Mod FFor I = 1 To GF = F * INext IPrint F(A)2 (B)4 (C)6 (D)8 (   ) 72.下列程序执行后，L的值为多少？L = 10Do Until Not (L < 25 Or L >= 50)If L < 25 Then L = L + 50If L >= 50 Then L = L - 10Loop(A)60 (B

41、)55 (C)45 (D)40 (   ) 73.下列程序执行后，显示的结果为何？s = 1Dos = (s + 1) * (s + 2)Number = Number + 1Loop Until s >= 30Print Number; s(A)1020 (B)23 (C)256 (D)512 (   ) 74.执行下列Visual Basic语言片段，程序顺利执行后，变量k的值为何？For k = 1 To 10 Print k k = k + 2Next k(A)0 (B)10 (C)11 (D)13 (   ) 75.在结构化程序设计中的哪一种结构，

42、如果条件没设好很容易造成无穷循环：(A)重复结构 (B)选择结构 (C)循序结构 (D)随机结构 (   ) 76.下列哪一组(a, b, c)的组合可以让以下程序代码打印5个 "*"？I = aDoUntil I < bPrint "*"I = I + cLoop(A)(1, 5, 2) (B)(3, 8, 1) (C)(1, 5, -1) (D)(18, 10, -2) (   ) 77.下列哪一个不是Do.Loop后测式循环的特色？(A)最少会执行1次循环叙述 (B)先判断条件式，再依条件式成立与否，决定是否要执行循环叙述

43、 (C)Do-Loop While循环是条件式成立时，继续执行循环叙述 (D)Do-Loop Until循环是条件式成立时，跳离循环 (   ) 78.下列Visual Basic程序片段执行后，会在屏幕上出现几颗星 ""？For k = 6 To 10 Step 3j = 1Do While j <= kPrint "j = j + 1LoopNext k(A)100 (B)40 (C)24 (D)15 (   ) 79.下面程序可完成之工作为何？10S = 0 20X = 130WHILE X < 5040X = X + 1 5

44、0S = S + X60WEND70PRINT S(A)计算2 + 3 + 4 +.+ 50 (B)计算1 + 2 + 3 +.+ 49 (C)计算2 + 3 + 4 +.+ 51 (D)计算1 + 2 + 3 +.+ 50 (   ) 80.下列程序执行后，显示的结果为何？s = 0: X = 1Do For Y = 1 To X s = s + 1 Next Y X = X + 1Loop While X <= 10Print s(A)36 (B)45 (C)55 (D)66 (   ) 81.执行下列Visual Basic语言片段，程序顺利执行后，变量sum的

45、值为何？sum = 1For i = 10 To 2 Step -3 sum = sum + INext I(A)1 (B)22 (C)31 (D)51 (   ) 82.在下列Visual Basic程序中，请问Do.Loop循环会执行几次？total = 0: Counter = 1Do total = total + Counter Counter = Counter + 1 If total > 10 Then Exit DoLoop While Counter <= 10(A)20 (B)15 (C)10 (D)5 (   ) 83.下列程序执行后，S

46、UM的值为多少？Sum = 0For I = 10 To 20J = 15While J <= 20Sum = Sum + 1J = J + 1WendNext I(A)44 (B)55 (C)66 (D)77 (   ) 84.执行下列Visual Basic语言片段，程序顺利执行后，打印K的值为何？K = 0For I = 1 To 5For J = I + 2 To 4K = K + 1Next JK = K - 1Next IPrint K(A)0 (B)1 (C)2 (D)3 (   ) 85.欲打印整数10之所有因子，则行号30空白处应填入？10N = 1

47、020I = 030While I _40I = I + 150If N Mod I < > 0 Then 7060Print I;70Wend80Print N(A)> N (B)>= N (C)> N / 2 (D)<= N / 2 (   ) 86.使用Visual Basic程序语言执行下列程序代码后，所得结果为何？Sum = 0J = 1Do While J < 5If J Mod 2 = 1 ThenSum = 3 * SumElseSum = Sum + JEnd IfJ = J + 1LoopPrint Sum(A)10 (B

48、)18 (C)23 (D)30 (   ) 87.下列程序执行后，显示的结果为何？I = 1For J = 1 To 3 K = 2 * I 2 I = I + KNext JPrint I(A)440 (B)882 (C)903 (D)44205 (   ) 88.下列程序执行后，显示的结果为何？X = 1Do While X < 10X = X * 2If X > 6 ThenX = X -1ElseX = X + 1End IfLoopPrint X(A)13 (B)12 (C)11 (D)10 (   ) 89.执行下列Visual Basic

49、语言片段，程序顺利执行后，变量sum的值为何？Dim i, j, sum As Integeri = 1: j = 1Do While i < 5Do While j < 5j = j + 1Loopi = i + 1Loopsum = i + j(A)10 (B)15 (C)225 (D)345 (   ) 90.欲利用下面Visual Basic程序计算出的值，则Do While后面空格中应该填入什么内容？Private Sub Form_Activate( )Sum = 0I = 1C = 1 Do While _ Sum = Sum + C C = (-1/2)

50、* CI = I + 1LoopPrint SumEnd Sub(A)I < 4 (B)I < 5 (C)I < 6 (D)I < 7 (   ) 91.下列Visual Basic程序之执行结果为何？Sum = 0For I = 3 To 50 Step 3 Sum = Sum + INext IPrint I; ", Sum(A)51 , 408 (B)50 , 408 (C)50 , 624 (D)51 , 624 (   ) 92.执行下列Visual Basic语言片段程序的结果为何？For I = 10 To 16 For J

51、= 100 To 105Print "*" Next J Print "*"Next I(A)总共印出96个星号（*） (B)总共印出91个星号（*） (C)总共印出84个星号（*） (D)总共印出66个星号（*） (   ) 93.执行下列Visual Basic程序片段后，请问S =？Dim S, I As IntegerS = 10I = 0DoI = I + 1S = S 1Loop Until I > 3(A)4 (B)5 (C)6 (D)7 (   ) 94.要计算1到100间能被7整除的整数个数，并显示其结果，则以

52、下程序中的空格应填入什么内容？N = 0For I = 1 To 100If _ ThenN = N + 1End IfNext IPRINT "个数 = NEnd (A)I / 7 = 0 (B)I MOD 7 = 0 (C)N (D)N-1 (   ) 95.执行下述Visual Basic程序片段后，请问Text1和Text2控件分别会显示什么数据？x = 0Do While x < 10x = (x - 2) * (x + 1)n = n + 1LoopText1.Text = nText2.Text = x(A)4和88 (B)3和10 (C)2和4 (D)

53、1和0 (   ) 96.在Visual Basic的程序中有一循环叙述为For K=1 To 12 Step 3，则当离开循环时，K的值为何？(A)12 (B)13 (C)14 (D)15 (   ) 97.依序执行下列叙述，其输出结果为何？10 For I = 1 To 3 Step 120 For J = 1 To 2 Step 130 Sum = Sum + I * J40 Next J, I50 Print Sum(A)6 (B)9 (C)12 (D)18 (   ) 98.执行下述Visual Basic程序，PRINT叙述的执行结果是什么？ S =

54、0 FOR I = 1 TO 10 S = S + I NEXT I PRINT S + I(A)55 (B)66 (C)65 (D)20 (   ) 99.执行以下之程序代码：FOR I = 1 TO 10 PRINT I; PRINT (I / (I MOD 3); NEXT I 在出现错误讯息前屏幕打印数据为(A)1 2 3 (B)1 1 2 2 3 (C)1 1 2 1 3 (D)1 1 2 1 3 3 (   ) 100.完成下列BASIC 程序以打印出12399100 的总和结果，要加入那一行叙述？S0For J1 To 100Next JPrint S(A)S

55、12J (B)SJS (C)SSJ (D)SJ (   ) 101.执行下列 Visual Basic 语言片段程序的结果为何？S = 0 X = 1 For K = 1 to 4 S = S + X X = X * 2 Next K Print S(A)4 (B)7 (C)15 (D)30 (   ) 102.下列Visual Basic程序执行后的输出结果为何？F = 1: G = 6: G = G - F FOR I = 1 TO G F = F * I NEXT I PRINT F(A)720 (B)6 (C)24 (D)120 (   ) 103.执行下

56、列Visual Basic 语言片段程序的结果为何？P = 1For K = 1 to 4 Step 2P = P * KNext KPrint P(A)3 (B)4 (C)10 (D)24 (   ) 104.以下BASIC程序执行结果为何？10sum = 0：j = 020FOR I = 1 TO 100 STEP 330sum = sum + I40j = j + 150NEXT I60PRINT j(A)1717 (B)1700 (C)33 (D)34 (   ) 105.下列程序中，如用ForNext计算1至100的奇数和，则下列程序 内，应依序填入那些数字？10

57、SUM = 020For I = To 100 Step 30 SUM = SUM + I40Next I50Print SUM(A)1,1 (B)2,2 (C)1,2 (D)2,1 (   ) 106.使用Visual Basic（VB）程序语言执行下列程序代码后，结果为何？T = 0For I = 1 To 100If I Mod 9 = 0 ThenT = T + IEnd IfNext IPrint "T = T(A)T = 495 (B)T = 550 (C)T = 594 (D)T = 5050 (   ) 107.要计算1到100间能被7整除的整数个数，并显示其结果，则以下程序中的空格应填入什么内容？N = 0 FOR I