Page 127 -

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

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

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

____________
Do While _______
y=y&j
____________
Loop
y = y & vbNewLine
______________
Loop
t02.Text = "第二題結果：" & vbNewLine & y

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

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

Dim j
Do
y=y&j
____________
Loop While _______
y = y & vbNewLine
______________
Loop While ________
t02.Text = "第二題結果：" & vbNewLine & y

123