上個禮拜提過了，在6月29日將舉行一個測驗，我將參考題目放在這裡，供各位參考！當然Not 100% 的部分。但至少是60％。好好的讀一下吧！

1.VB 函數測驗

Asc(“a”)=97 Chr(70)=F Lcase(“Happy Day”)=happy day

Len(“VisualBasic”)=11 Int(3.14159)=3

2. 若 A=3:B=5:C=4 請問下列運算的結果為何 ?

(1) A^2/6 (2) A Mod 3 + B^3/C*5

(3) A>B OR B=C

(4) If A>1 then If B=3 Then C=2 Else C=1

(5) B*5/C*A

Answer (1)=1.5 (2)=6 (3)=false (4)=1 (5)=2

3. 請說出 VB 程式設計的五個步驟

答 :1. 定義問題 2. 擬定解決方案 3. 撰寫程式 4. 測試和除錯 5. 製作操作文件

4.VB 程式有那三個基本結構 ?

答： 1. 循序結構 2. 條件結構 3. 重覆結構

5. 試寫出一多重選擇結構程式讓使用者輸入成績 , 判斷是何等第 ,

優等為 90 分以上, 甲等是 80 分以上 , 乙等是 70 分以上 ,

丙等是 60 分以上 ,60 分以下則是丁等!

答:

S = inputbox(“ 輸入成績 ”)

Select case s

Case 90 to 100

Print “ 優等 ”

Case 80 to 89

Print “ 甲等 ”

Case 70 to 79

Print “ 乙等 ”

Case 60 to 69

Print “ 丙等 ”

Case else

Print “ 丁等 ”

End select

6. 設計一程式，可以輸入任一正整數，並判斷是否為質數。

解 :

K = inputbox(“ 輸入任一正整數 ”)

For i=1 to k

If k / I = k I then n = n+1

Next i

If n=2 then

Print “ 是質數 ”

Else

Print “ 不是質數 ”

End if

7. 用亂數產生一個 2 位數的整數，請寫一程式用來判斷數字是否為 5 的倍數 , 並將判斷結果顯示出來。

解 :

B=int( rnd()*90 ) + 10

If b mod 5 =0 then

Print"" '當然在VB2005 or 2008中不支援Print，那可以改用哪些物件呢？

Else

Print “”

End if

Print指令若不支援，考慮一下？還有哪些指令可以運用呢？