Page 132 -

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

11900-940305 物件名稱(Name) 物件屬性
b05 Text=第五題
【物件內容】 t05 MultiLine=True
物件項目
Button
TextBox

【程式碼-For-Next 迴圈】

Dim a1, a2, a3, a4, b1, b2, b3, b4
FileOpen(1, "c:\丙設磁片\940305.sm", OpenMode.Input)
Input(1, a1) : Input(1, a2) : Input(1, a3) : Input(1, a4)
Input(1, b1) : Input(1, b2) : Input(1, b3) : Input(1, b4)
FileClose(1)
For i = 1 To 1

t05.Text = "第五題結果：" & vbNewLine & _
"[" & a1 + b1 & " " & a2 + b2 & "]" & vbNewLine & _
"[" & a3 + b3 & " " & a4 + b4 & "]"
Next

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

Dim a1, a2, a3, a4, b1, b2, b3, b4
FileOpen(1, "c:\丙設磁片\940305.sm", OpenMode.Input)
Input(1, a1) : Input(1, a2) : Input(1, a3) : Input(1, a4)
Input(1, b1) : Input(1, b2) : Input(1, b3) : Input(1, b4)
FileClose(1)
Dim i=1
Do While i<=1

t05.Text = "第五題結果：" & vbNewLine & _
"[" & a1 + b1 & " " & a2 + b2 & "]" & vbNewLine & _
"[" & a3 + b3 & " " & a4 + b4 & "]"

128