Page 130 -

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

11900-940304 物件名稱(Name) 物件屬性
b04 Text=第四題
【物件內容】 t04 MultiLine=True
物件項目
Button
TextBox

【程式碼-For-Next 迴圈】

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

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)
Next
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

126