Page 131 -

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

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

Dim x(3), y(3), bmi(3), sbmi
FileOpen(1, "c:\丙設磁片\940304.t01", OpenMode.Input)
____________
____________

Input(1, x(i)) : Input(1, y(i)) : bmi(i) = y(i) / (x(i) / 100) ^ 2
sbmi = bmi(1)
If bmi(i) < sbmi Then sbmi = bmi(i)
_____________
__________
FileClose(1)
Dim isbmi As Integer = sbmi
If isbmi >= 20 And isbmi <= 25 Then
t04.Text = "第四題結果：最小 BMI 值=" & isbmi & "，正常"
Else
t04.Text = "第四題結果：最小 BMI 值=" & isbmi & "，不正常"
End If

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

Dim x(3), y(3), bmi(3), sbmi
FileOpen(1, "c:\丙設磁片\940304.t01", OpenMode.Input)
____________
____________

Input(1, x(i)) : Input(1, y(i)) : bmi(i) = y(i) / (x(i) / 100) ^ 2
sbmi = bmi(1)
If bmi(i) < sbmi Then sbmi = bmi(i)
_____________
__________
FileClose(1)
Dim isbmi As Integer = sbmi
If isbmi >= 20 And isbmi <= 25 Then
t04.Text = "第四題結果：最小 BMI 值=" & isbmi & "，正常"
Else
t04.Text = "第四題結果：最小 BMI 值=" & isbmi & "，不正常"
End If

127