Page 133 -
P. 133
附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)
i=i+1
Loop
【程式碼- 改成 Do … Loop While 後測式-迴圈】部份程式
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
t05.Text = "第五題結果：" & vbNewLine & _
"[" & a1 + b1 & " " & a2 + b2 & "]" & vbNewLine & _
"[" & a3 + b3 & " " & a4 + b4 & "]"
i=i+1
Loop While i<=1
129
