Page 128 -

附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)

11900-940303 物件名稱(Name) 物件屬性
b03 Text=第三題
【物件內容】 t03 MultiLine=True
物件項目
Button
TextBox

【程式碼-For-Next 迴圈】
Dim x, y As Integer
FileOpen(1, "c:\丙設磁片\940303.sm", OpenMode.Input)
Input(1, x)
FileClose(1)
For i = 1 To x

If x Mod i = 0 Then y = y + 1
Next
If y = 2 Then

t03.Text = "第三題結果：" & x & " is a prime number."
Else

t03.Text = "第三題結果：" & x & " is not a prime number."
End If

【程式碼-改成 Do While … Loop 前測式-迴圈】部份程式碼

Dim x, y As Integer
FileOpen(1, "c:\丙設磁片\940303.sm", OpenMode.Input)
Input(1, x)
FileClose(1)
Dim i
Do While i<=x

If x Mod i = 0 Then y = y + 1

124