2018年2月14日 星期三

計概15-05程式語言的基本結構-03重複結構-統測試題

【四技試題】

C01-1.以下是一個加上行號的Do迴圈指令Visual Basic程式片段,執行後Ans之值為何? (A)9 (B)14 (C)40 (D)280

1 Dim i, Ans As Integer

2 Ans = 1

3 i = 1

4 Do While i <= 10

T

T

T

T

F

5  If i Mod 2 = 0 Then

F

T

F

T

 

6   Ans = Ans * i

 

1 * 4 = 4

 

4 * 10 = 40

 

7  End If

 

 

 

 

 

8  i = i + 3

1 + 3 = 4

4 + 3 = 7

7 + 3 = 10

10 + 3 = 13

 

9 Loop

B01-2.續上題,要將上列程式改以For迴圈指令取代,下列程式第4行之中有XYZ等三個變數,應該在行號3同一行後方撰寫哪一行指令指定其值,才能獲得相同的結果? (A)X = 1: Y = 3: Z = 10 (B)X = 1: Y = 10: Z = 3 (C)X = 3: Y = 10: Z = 1 (D)X = 10: Y = 1: Z = 3[100商業]

1 Dim i, Ans, X, Y, Z As Integer

2 Ans = 1

3 X = 1: Y = 10: Z = 3

4 For i = X To Y Step Z X為初值,Y為終值,Z為變化值

5  If i Mod 2 = 0 Then

6   Ans = Ans * i

7  End If

8 Next

 

A02.下列Visual Basic程式片段,若執行後power之值為8,則X之值應設為多少? (A)2 (B)4 (C)6 (D)8[100管理]

Dim i, power, N, X As Integer

i = 1: power = 1: N = 3: X = ______

Do While i <= N

 Power = power * X 執行3次,power = X ^ 3 = 8X = 2

 i = i + 1

Loop

 

C03.下列Visual Basic7行程式執行運算後,如果要得到下面所列的執行結果,請問程式第三行空白處應填入哪一個運算式? (A)i + 1 (B)Int(i) + 1 (C)Abs(i) + 1 (D)i[101商業]

Dim i, j As Integer

For i = -4 To 4

  For j = 1 To _____

    Print "*";

  Next j

  Print

Next i

 

Abs(i):取i的絕對值

[執行結果]

*****

****

***

**

*

**

***

****

*****

 

A04.下列哪一個Visual Basic程式語言敘述,會先判斷測試條件為真(True)時,才執行迴圈內的敘述? (A)Do While...Loop (B)Do Until...Loop (C)Do...Loop While (D)Do...Loop Until[101管理]

 

B05.執行完以下Visual Basic程式,總共會在螢幕顯示幾列結果? (A)5 (B)9 (C)45 (D)81[101管理]

Private Sub Form_Activate()

  Dim i, j As Integer

  For i = 1 To 9

    For j = 1 To 9 Step 2

       Print i; "x"; j; "="; i * j; " ";

    Next j

    Print 執行換列,共顯示9

  Next i

End Sub

 

A06.執行完下列Visual Basic程式片段後,會在螢幕顯示幾個星號? (A)5 (B)6 (C)9 (D)10[101管理]

Dim A, B As Integer

B = 10

For A = 1 To B Step 1

  If (A MOD 2 = 0) Then Print "*" A=2, 4, 6, 8, 10時才顯示*,共5*

Next A

 

B07.執行下列Visual Basic程式片段後,變數S的值為何? (A)-5 (B)-4 (C)8 (D)55[102管理]

S = 1: R = 1

For I = 1 To 10

1

2

3

4

5

6

7

8

9

10

 S = S + I * R

2

0

3

-1

4

-2

5

-3

6

-4

 R = R * (-1)

-1

1

-1

1

-1

1

-1

1

-1

1

Next I

 

B08.執行下列Visual Basic程式片段後,變數c的值為何? (A)0 (B)15 (C)30 (D)60[102管理]

c = 0

For a = 1 To 30 Step 2

 For b = 30 To 1 Step -1

  If a = b Then

   c = c + 1

a = 1357911131517192123252729,執行15

b = 302928、…、遞減至1,執行30

a = bc + 1,共執行15次,c = 15

  End If

 Next b

Next a

 

B09.執行下列Visual Basic程式片段後,變數A的值為何? (A)-1 (B)0 (C)1 (D)2[103商業]

A = 0

For I = 2 to -1 迴圈未設定增加值,預設值為+1。終值-1 < 初值2,不會執行迴圈

  A = A + I A仍為0

Next I

 

D10.請問執下列Visual Basic程式碼後,在「訊息視窗(MsgBox)」上的顯示數值為何? (A)1 (B)5 (C)20 (D)120[103資電]

Sub Main()

 Dim I As Integer

 Dim result As Integer

 result = 1

 For I = 1 To 5

  result = result * I 1 * 2 * 3 * 4 * 5 = 120

 Next

 If I > 5 Then 6 > 5成立

  MsgBox(result) 顯示120

 ElseIf I <= 5 Then

   MsgBox(i)

  Else

   MsgBox(20)

 End If

End Sub

 

C11.執行下列Visual Basic程式片段後,變數Sum的值為何? (A)1 (B)95 (C)165 (D)385[104商業]

Dim X, Y, Sum

Sum = 0

For X = 1 To 10 Step 2

 For Y = X To 1 Step -1

  Sum = Sum + X 1 + 3 * 3 + 5 * 5 + 7 * 7 + 9 * 9 = 165

 Next Y

Next X

 

B12.執行下列Visual Basic程式片段後,變數B的值為何? (A)20 (B)21 (C)23 (D)24[104管理]

A = 1: B = 1

Do While B < 20

T

T

T

T

F

 B = B + 2 * A

1 + 2 * 1 = 3

3 + 2 * 2 = 7

7 + 2 * 3 = 13

13 + 2 * 4 = 21

 

 A = A + 1

1 + 1 = 2

2 + 1 = 3

3 + 1 = 4

4 + 1 = 5

 

Loop

 

C13.執行下列Visual Basic程式片段後,變數A的值為何? (A)-1 (B)-4 (C)4 (D)5[104管理]

A = 1: B = 1

For I = 5 To 1 Step -1

5

4

3

2

1

 A = A + I * B

1+5*1=6

6+4*(-1)=2

2+3*1=5

5+2*(-1)=3

3+1*1=4

 B = B * (-1)

1*(-1)=(-1)

(-1)*(-1)=1

1*(-1)=(-1)

(-1)*(-1)=1

1*(-1)=(-1)

Next I

 

D14.執行下列Visual Basic程式片段後,變數S的值為何? (A)(((1, 0), 2), 3) (B)(1, (2, (3, 0))) (C)(((3, 0), 2), 1) (D)(3, (2, (1, 0)))[105商業]

Dim K As Integer

Dim S As String

S = "0"

For K = 1 To 3

1

2

3

 S = "(" & K & ", " & S & ")"

(1, 0)

(2, (1, 0))

(3, (2, (1, 0)))

Next K

 

C15.執行下列Visual Basic程式片段後,變數MyVal的值為何? (A)4 (B)8 (C)11 (D)12[105商業]

Dim MyVal As Integer

MyVal = 0

Do

 MyVal = MyVal + 2

0 + 2 = 2

 

 

5 + 2 = 7

8 + 2 = 10

 Do

 

 

 

 

 

  MyVal = MyVal + 1

2 + 1 = 3

3 + 1 = 4

4 + 1 = 5

7 + 1 = 8

10 + 1 = 11

  If MyVal > 4 Then Exit Do

F

F

T

T

 

 Loop

 

 

 

 

 

 If MyVal > 8 Then Exit Do

 

 

F

F

T

Loop

 

A16.執行下列Visual Basic程式片段後,變數Count的值為何? (A)63 (B)64 (C)73 (D)74[105管理]

Dim Sum, Count, X As Integer

Sum = 0: Count = 0

Do While Sum < 10

T

 

 

 

T

T

F

 X = 0

0

 

 

 

0

0

 

 Do

 

 

 

 

 

 

 

  X = X + Sum + 1

1

2

3

4

5

10

 

  Count = Count + 10

10

20

30

40

51

62

 

 Loop Until X > 3

F

F

F

T

T

T

 

 Sum = Sum + X

 

 

 

4

9

19

 

 Count = Count + 1

 

 

 

41

52

63

 

Loop

 

A17.執行下列Visual Basic程式片段後,變數I的值為何? (A)505 (B)455 (C)555 (D)545[105管理]

Dim I, J, K As Integer

I = 1

For J = 1 To 2

1

2

 K = 4 * I ^ 3

4 * 1 ^ 3 = 4

4 * 5 ^ 3 = 500

 I = I + K

1 + 4 = 5

5 + 500 = 505

Next J

 

B18.執行下列Visual Basic程式片段後,變數S的值為何? (A)44 (B)45 (C)46 (D)54[105管理]

Dim I, K, S As Integer

S = 0

For I = 10 To 1 Step -1

 For K = 2 To I

  S = S + 1

I = 10K執行9次;I = 9K執行8次;依序類推;

I = 3K執行2次;I = 2K執行1次。

9 + 8 + 7 + 6 + 5 + 4 + 3 + 2 + 1 = 45

 Next K

Next I

 

D19.執行下列Visual Basic程式片段,變數Sum的值為何? (A)200 (B)1200 (C)1800 (D)4200[106商業]

Dim I, S, Sum As Integer

Sum = 0: I = 0

Do

  I = I + 10

0 + 10 = 10

10 + 10 = 20

20 + 10 = 30

  S = I ^ 2 * 2

10 ^ 2 * 2 = 200

20 ^ 2 * 2 = 800

30 ^ 2 * 2 = 1800

  Sum = 2 * Sum + S

2 * 0 + 200 = 200

2 * 200 + 800 = 1200

2 * 1200 + 1800 = 4200

Loop While I < 30

T

T

F

 

C20.執行下列Visual Basic程式片段後,變數Count值為何? (A)14 (B)15 (C)16 (D)17[106管理]

Dim Sum, Count, A As Integer

Sum = 1: Count = 0: A = 1

Do

  Do

    A = A + Sum

2

3

4

5

6

7

9

    Count = Count + 2

2

4

6

8

10

12

15

  Loop While A <= 6

T

T

T

T

T

F

F

  Sum = Sum + A

 

 

 

 

 

8

17

  Count = Count + 1

 

 

 

 

 

13

16

  A = 1

 

 

 

 

 

1

1

Loop Until Sum >= 15

 

 

 

 

 

F

T

 

C21.執行下列Visual Basic程式片段後,變數Sum的值為何? (A)5 (B)25 (C)30 (D)36[106管理]

Dim Sum As Integer = 0

Dim I As Integer=1

Dim J As Integer=1

For I = 0 To 5 0 ~ 5執行6

  For J = 1 To 5 1 ~ 5執行5

    Sum = Sum + 1 累加6 * 5 = 30

  Next

Next

 

C22.執行下列Visual Basic程式片段後變數Total的值為何 (A)8 (B)12 (C)13 (D)15[107商業]

Dim n, Total As Integer

n = 16: Total = 0

Do While n > 1

16 > 1 = T

8 > 1 = T

4 > 1 = T

2 > 1 = T

1 > 1 = F

  n = n / 2

16 / 2 = 8

8 / 2 = 4

4 / 2 = 2

2 / 2 = 1

 

  If n <> 2 Then

8 <> 2 = T

4 <> 2 = T

2 <> 2 = F

1 <> 2 = T

 

    Total = Total + n

0 + 8 = 8

8 + 4 = 12

 

12 + 1 = 13

 

  End If

Loop

 

C23.執行下列Visual Basic程式片段後,變數Sum的值為何? (A)4 (B)6 (C)9 (D)12[107商業]

Dim Sum, Maximum, i As Integer

Sum = 0: Maximum = 5

Do While Maximum > 0

T

T

T

 

T

 

T

 

 

F

 For i = Maximum To 5 Step 2

5

4

3

5

2

4

1

3

5

 

  Sum = Sum + 1

1

2

3

4

5

6

7

8

9

 

 Next i

 

 

 

 

 

 

 

 

 

 

 Maximum = Maximum - 1

4

3

 

2

 

1

 

 

0

 

Loop

 

C24.執行下列Visual Basic程式片段後,變數S的值為何? (A)24 (B)25 (C)26 (D)27[107管理]

Dim S, I, N As Integer

S = 1: N = 2

For I = 1 To 10 Step N

  S = S + I 1 + 1 + 3 + 5 + 7 + 9 = 26

Next

 

C25.執行下列Visual Basic程式片段後,變數counter的值為何? (A)4 (B)5 (C)6 (D)7[107管理]

Dim a, b, counter As Integer

counter = 0

For a = 1 To 5

  For b = a To 1 Step - 1

    If b Mod 2 = 0 Then counter = counter + 1

  Next b

(a, b) (2, 2)(3, 2)(4, 4)(4, 2)(5, 4)(5, 2)時,執行counter = counter + 1,計6

Next a

 

B26.執行以下Visual Basic的程式片段後,S的結果為何? (A)5 (B)6 (C)7 (D)8[108商業]

Dim data A(3) As Integer: dataA(0) = 3: dataA(1) = 4: dataA(2) = 5

Dim S As Integer: S = 0

Dim idx As Integer

For idx = 10 To 12

10

11

12

 S = S + idx Mod dataA(idx - 10)

0+10 Mod 3=1

1+11 Mod 4=4

4+12 Mod 5=6

Next idx

 

D27.下列Visual Basic程式片段執行後S的值為何 (A)0 (B)6 (C)12 (D)15[108商業]

Dim i, S, Maximum As Integer

S = 0: Maximum = 5

Do While Maximum > 0

T

T

T

T

T

 For i = 1 To Maximum

1~5

1~4

1~3

1~2

1

  S = S + 1

0+1*5=5

5+1*4=9

9+1*3=12

12+1*2=14

14+1=15

 Next i

 

 

 

 

 

 Maximum = Maximum - 1

4

3

2

1

0

Loop

 

C28.下列Visual Basic程式片段執行後,S的值為何? (A)0 (B)24 (C)48 (D)96[108商業]

Dim S As Integer

S = 0

For k = 9 To 16 Step 2

9

11

13

15

 S = S + k

0 + 9 = 9

9 + 11 = 20

20 + 13 = 33

33 + 15 = 48

Next k

 

D29.請問下圖的Visual Basic程式碼執行完後,變數x的值為何? (A)1001 (B)55 (C)641 (D)89[108資電]

Sub Main()

 Dim i, x, x1, x2 As Integer

 x = 1000: x1 = 1: x2 = 0

 For i = 1 To 10

1

2

3

4

5

6

7

8

9

10

  x = x1 + x2

1

2

3

5

8

13

21

34

55

89

  x2 = x1

1

1

2

3

5

8

13

21

34

55

  x1 = x

1

2

3

5

8

13

21

34

55

89

 Next

 Console.WriteLine(x) 顯示89

End Sub

 

B30.下列Visual Basic程式執行後,變數S的值為何? (A)70 (B)71 (C)72 (D)73[108管理]

Dim S, C, I As Integer

S = 5: C = 3

While C <= 8 C = 3, 4, 5, 6, 7, 833

 For I = 1 To C

  S = S + 2 S = 5 + 2 × 33 = 71

 Next I

 C = C + 1

End While

 

D31.執行下列Visual Basic程式片段後,變數S的值為何? (A)45 (B)46 (C)54 (D)55[108管理]

Dim A, B, S As Integer

S = 0

For A = 1 To 10 A = 1 ~ 10

 For B = 11 - A To 1 Step -1 B = 10 ~ 1

  S = S + 1 S連加55

 Next B

Next A

 

B32.執行下列Visual Basic(VB)程式片段後,變數Z的值為何? (A)32 (B)50 (C)54 (D)62[109商業]

Dim A, B, Z as Integer

Z = 0

For A = 1 to 4 Step 3

1

 

 

 

4

 

 

  For B = A to 8 Step 2

1

3

5

7

4

6

8

    Z = Z + A + B

2

6

12

20

28

38

50

  Next B

Next A

 

D33.執行下列Visual Basic(VB)程式片段後,變數Y的值為何? (A)01 (B)101 (C)01101 (D)10101101[109商業]

Dim K as Integer

Dim X, Y as String

X = "0": Y = "1"

For K = 1 to 2

1

2

  X = X & Y

"0" & "1" = "01"

"01" & "101" = "01101"

  Y = Y & X

"1" & "01" = "101"

"101" & "01101" = "10101101"

Next K

 

C34.執行下列Visual Basic(VB)程式片段後,下列敘述何者正確? (A)K1~992的倍數但不是5的倍數的數字之個數 (B)K1~992的倍數或5的倍數的數字之個數 (C)K1~992的倍數且是5的倍數的數字之個數 (D)K1~995的倍數但不是2的倍數的數字之個數。[109商業]

Dim I, K as Integer

I = 1: K = 0

Do While(I < 100)

  If(I Mod 2 = 0) And (I Mod 5 = 0) Then

    K = K + 1

  End If

I = 1Do While(I < 100)I = I + 1,可判定I介於1~99之間

(I Mod 2 = 0) And (I Mod 5 = 0)K = K + 1,可判定在求2的倍數且是5的倍數的數字之個數

  I = I + 1

Loop

 

B35.執行下列Visual Basic程式片段後,變數Z的結果為何? (A)我愛愛我愛 (B)愛我愛愛我 (C)愛我愛我愛 (D)愛愛我愛我。[110商業]

Dim X, Y, Z As String

Dim K As Integer

Z = ""

X = ""

Y = ""

For K = 1 To 3

1

2

3

  Z = Y & X

Z=愛我

Z=愛我愛

Z=愛我愛愛我

  X = Y

X=

X=愛我

X=愛我愛

  Y= Z

Y=愛我

Y=愛我愛

Y=愛我愛愛我

Next K

 

C36.執行下面Visual Basic程式片段後,sum的值為何? (A)2 (B)4 (C)6 (D)8[110商業]

Dim i, j, k, sum As Integer

sum = 0

i = 0: j = 0: k = 0

For i = 1 To 2

1

 

 

2

 

 

  For j = 1 To 2

1

2

 

1

2

 

    For k = 1 To j

1

1

2

1

1

2

      sum = sum + 1

0+1=1

1+1=2

2+1=3

3+1=4

4+1=5

5+1=6

    Next k

  Next j

Next i

 

C37.執行下列Visual Basic程式片段後,變數C的值為何? (A)5 (B)6 (C)7 (D)12[110商業]

Dim A, B, C As Integer

C = 0

For A = 1 To 5 Step 2

1

 

 

 

3

 

5

  For B = 1 To 4 Step A

1

2

3

4

1

4

1

    C = C + 1

0+1=1

1+1=2

2+1=3

3+1=4

4+1=5

5+1=6

6+1=7

  Next B

Next A

 

B38.執行下列Visual Basic程式片段後,變數N的值為何? (A)3 (B)5 (C)27 (D)55[110管理]

Dim A, N As Integer

A = 13: N = 3

While A < 50

13 < 50

27 < 50

55 < 50

  A = A * 2 + 1

13 * 2 + 1 = 27

27 * 2 + 1 = 55

 

  N = N + 1

3 + 1 = 4

4 + 1 = 5

 

End While

 

【二技試題】

A01.下列Visual Basic程式片段執行後結果為何 (A)HappyBirthday (B)Happy (C)BirthdayHappy (D)Birthday[96護理]

x = 10: y = 4

If x >= 10 And y < 6 Then 10 >= 10 And 4 < 6成立

 Print "Happy"; 顯示"Happy"

End If

Print "Birthday" 顯示"Birthday"

 

D02.下列Visual Basic語言片段程式執行後,下列哪一項是正確的? (A)a = 3 (B)b = 3 (C)a = 5 (D)b = 5[100管理]

Dim a, b As Integer

a = 1: b = 2

If (a > 1) Then 1 > 1不成立

 a = a + 1

Else

 b = b + 2 2 + 2 = 4

End If

If (b > 2) Then 4 > 2成立

 b = b + 1 4 + 1 = 5

Else

 a = a + 2

End If

 

D03.有一Visual Basic的迴圈程式片段「For I = 2 To 11 Step 3」。請問執行該程式片段後,並脫離迴圈時,I值等於多少? (A)11 (B)12 (C)13 (D)14[91護理]

I = 2581114(超出終值)

 

C04-1.下列程式執行後,全部印出幾個*號? (A)4 (B)5 (C)6 (D)7

I = 0: J = 10

Do

 I = I + 2

0 + 2 = 2

2 + 2 = 4

4 + 2 = 6

6 + 2 = 8

8 + 2 = 10

 J = J - 1

10 - 1 = 9

9 - 1 = 8

8 - 1 = 7

7 - 1 = 6

6 - 1 = 5

 Print "*";

*

*

*

*

*

Loop While (I < 10)

T

T

T

T

F

Print "*" 印出6*

Print J 印岀5

B04-2.續上題程式,最後印出變數J的值為何? (A)4 (B)5 (C)6 (D)7[92護理]

 

A05-1.下列虛擬碼執行後,何者正確? (A)a的值為7 (B)a的值為10 (C)b的值為20 (D)b的值為22

a = 1: b = 2

do while (a < 10 and b < 20)

T

T

T

T

T

T

F

  a = a + 1

2

3

4

5

6

7

 

  if (a等於奇數) then

F

T

F

T

F

T

 

    b = b + 5

 

9

 

16

 

23

 

  else

 

 

 

 

 

 

 

    b = b + 2

4

 

11

 

18

 

 

  end if

end do

D05-2.承接上題,下列何者是上題虛擬碼的流程圖?[93管理]

(A)

(B)

(C)

(D)

 

B06.考慮下列BASIC程式片段,則執行後,其顯示的結果為 (A)9 (B)22 (C)7 (D)120[93管理]

Z = 0

FOR X = 1 TO 5 STEP 2

1

3

5

  FOR Y = 1 TO X

1

1 ~ 3

1 ~ 5

    Z = Z + Y

0 + 1 = 1

1 + 1 + 2 + 3 = 7

7 + 1 + 2 + 3 + 4 + 5 = 22

  NEXT Y

NEXT X

PRINT Z 顯示22

 

D07.若欲求1/2 + 3/4 + 7/6 + 13/8 + 21/10 ++ N/100,則下列BASIC程式的第5行應為何,才能獲得正確結果? (A)J = I - 1 (B)J = 2 * I - 3 (C)J = I * I - 1 (D)J = J + I[93管理]

1 S = 0

2 J = 1

3 FOR I = 2 TO 100 STEP 2

4   S = S + J / I

5   ________

6 NEXT I

7 PRINT S

8 END

 

B08-1.下面BASIC程式片段執行後,其最後顯示Z值的結果為何? (A)15 (B)18 (C)72 (D)120

Z = 0

For X = 1 To 2

1

2

 For Y = 1 To 3

1 ~ 3

1 ~ 3

  Z = Z + X * Y

0 + 1 * 1 + 1 * 2 + 1 * 3 = 6

6 + 2 * 1 + 2 * 2 + 2 * 3 = 18

 Next Y

Next X

Print Z 顯示18

C08-2.上題的程式中,第四行指令Z = Z + X * Y總共執行了幾次? (A)2 (B)3 (C)6 (D)12[94護理]

 

B09.下列BASIC程式片段,敘述行號30總共執行幾次? (A)4 (B)5 (C)6 (D)7[95護理]

10 I = 22: Y = 6

20 While I <> Y

T

T

T

T

T

F

30   If I > Y Then

T

T

T

F

T

 

40     I = I - Y

22 - 6 = 16

16 - 6 = 10

10 - 6 = 4

 

4 - 2 = 2

 

50   Else

 

 

 

 

 

 

60     Y = Y - I

 

 

 

6 - 4 = 2

 

 

70   End If

行號30總共執行5

80 Wend

90 End

 

D10.下列BASIC程式片段執行後,W的值為何? (A)11 (B)14 (C)18 (D)23[95護理]

W = 1

For X = 1 To 5 Step 2

1

3

5

 For Y = 1 To X

1

1 ~ 3

1 ~ 5

  W = W + Y

1 + 1 = 2

2 + 1 + 2 + 3 = 8

8 + 1 + 2 + 3 + 4 + 5 = 23

 Next Y

Next X

 

C11.下列Visual Basic程式片段執行後,Sum值為何? (A)100 (B)101 (C)5050 (D)5051[96護理]

Sum = 0

For i = 1 To 100

 Sum = Sum + i 1加到100的和 = (1 + 100) * 100 = 5050

Next i

Print Z

 

A12.執行下列BASIC程式片段後,會輸出何種結果? (A)24 (B)55 (C)19 (D)23[97管理]

C = 0

For A = 2 To 6 Step 4

2

6

 For B = 1 To A

1 ~ 2

1 ~ 6

  C = C + B

0 + 1 + 2 = 3

3 + 1 + 2 + 3 + 4 + 5 + 6 = 24

 Next B

Next A

Print C 輸出24

 

A13.執行下列BASIC程式片段後,會輸出何種結果? (A)19 (B)17 (C)15 (D)18[97管理]

A = 1

For B = 0 To 2

0

1

2

 For C = 1 To 3

1~3

1~3

1~3

  A = A + B * C

1+0*1+0*2+0*3=1

1+1*1+1*2+1*3=7

7+2*1+2*2+2*3=19

 Next C

Next B

Print A 輸出19

 

C14.執行下列BASIC程式片段後,Total的值為何? (A)10 (B)20 (C)30 (D)40[97護理]

Total = 0: n = 0

While n <= 10

T

T

T

T

T

T

 Total = Total + n

0+0=0

0+2=2

2+4=6

6+6=12

12+8=20

20+10=30

 n = n + 2

0+2=2

2+2=4

4+2=6

6+2=8

8+2=10

10+2=12

Wend

 

C15.執行下列BASIC程式片段後,列印結果總共有幾個星號(*) (A)37 (B)40 (C)41 (D)44[98管理]

Z = 0

For I = -5 To 5

  For J = -5 To 5

    If I = Z Or J = Z Or I = J Or I = -J Then Print " * "; Else Print " ";

  Next J

  Print

Next I

I

J

Z

 

I

J

Z

 

總共列印41*

 

-5

-5

0

I = J

1

-1

0

I = -J

0

0

J = Z

0

0

J = Z

5

0

I = -J

1

0

I = J

-4

-4

0

I = J

2

-2

0

I = -J

0

0

J = Z

0

0

J = Z

4

0

I = -J

2

0

I = J

-3

-3

0

I = J

3

-3

0

I = -J

0

0

J = Z

0

0

J = Z

3

0

I = -J

3

0

I = J

-2

-2

0

I = J

4

-4

0

I = -J

0

0

J = Z

0

0

J = Z

2

0

I = -J

4

0

I = J

-1

-1

0

I = J

5

-5

0

I = -J

0

0

J = Z

0

0

J = Z

1

0

I = -J

5

0

I = J

0

-5, -4, -3, -2, -1

0

I = Z

 

 

 

 

0

0

I = Z, J = Z, I = J

 

 

 

 

1, 2, 3, 4, 5

0

I = Z

 

 

 

 

 

D16.若要利用下列BASIC程式片段印出(1 * 1 + 1 * 2) + (2 * 1 + 2 * 2 + 2 * 3) + (3 * 1 + 3 * 2 + 3 * 3 + 3 * 4)的總和,則下列空格(1)處應填入的內容為何? (A)4 (B)4 - I (C)I (D)I + 1[98管理]

Total = 0

For I = 1 To 3

  For J = 1 To (1)

    Total = Total + I * J

  Next J

Next I

Print Total

 

B17.有一Visual Basic程式用來計算2 + 4 + 6 +...+ 100,其程式片段如下:

result = 0

For i = 2 To 10 Step 2 終值為10

  result = result + i

Next I

有關此程式片段,下列敘述何者正確? (A)會發生語法錯誤 (B)無法計算出2 + 4 + 6 +...+ 100的結果 (C)此程式無法執行 (D)執行結果result2550[99管理]

 

B18.下列Visual Basic語言片段程式執行後,下列哪一項是正確的? (A)i = 9 (B)i = 10 (C)sum = 99 (D)sum = 100[100管理]

Dim i, sum As Integer

i = 1: sum = 0

While ((i < 10) And (sum < 100))

T

T

T

T

T

T

T

T

T

F

  If (i Mod 2 = 0) Then

F

T

F

T

F

T

F

T

F

 

    sum = sum + i * 2

 

5

 

16

 

33

 

56

 

 

  Else

 

 

 

 

 

 

 

 

 

 

    sum = sum + i

1

 

8

 

21

 

40

 

65

 

  End If

 

 

 

 

 

 

 

 

 

 

  i = i + 1

2

3

4

5

6

7

8

9

10

 

End While

 

D19.下列Visual Basic語言片段程式執行後,sum的值為多少? (A)24 (B)25 (C)44 (D)45[100管理]

Dim k, sum, j As Integer

sum = 1

For k = 3 To 6 Step 2

3

5

 sum = sum + k

1 + 3 = 4

22 + 5 = 27

 For j = 3 To 6

3 ~ 6

3 ~ 6

  sum = sum + j

4 + 3 + 4 + 5 + 6 = 22

27 + 3 + 4 + 5 + 6 = 45

 Next

Next

 

沒有留言:

張貼留言

注意:只有此網誌的成員可以留言。