Select Case 條件判斷式

◎執行下列程式，若輸入「12.8」，則輸出結果為何？ (A)12.8　(B)12　(C)11.8　(D)15.8


Private Sub Form_Activate()
A = InputBox("請輸入一個數")
Select Case (A Mod 3)
Case (6 ^ 2 = True)
  　　A = A + 1　　Rem 這樣的條件式並不會成立！
Case 1
  　　A = A - 1
Case 2
  　　A = A - 2
 　Case Else
  　　A = A + 3
End Select
Print A
End Sub

---

【答案】 (C)
【解析】

1. 同學解題時，凡運算式遇到「＼(整除）」、「Mod」時，必須將小數以「CInt（逢５奇進偶吐）」的方式轉成整數。本題中的(A Mod 3) = (12.8 Mod 3) = 1。
2. 注意其中的 A 仍為12.8，並未被改變，故 12.8 - 1 = 11.8。