追蹤
ˊ-橙色九月-ˊ
關於部落格
  • 33716

    累積人氣

  • 4

    今日人氣

    0

    追蹤人氣

VB12

'**************************
'* 119-940304 Program Start
'**************************

Private Sub Command1_Click()
 Dim i As Integer          'for迴圈使用
 Dim bmi As Integer        '計算bmi
 Dim min As Integer        '儲存最小值
 
 min = 99                  '因為要獲得最小值,所以先將起始值設定為大值
 
 Open "d:940304.sm" For Input As #1       '開啟檔案
 第一方法
 For i = 1 To 3                  'for迴圈開始
 Input #1, a, b                  '讀入資料,a為身高,b為體重
 a = a / 100                     '因為資料中身高單位是公分,要換成公尺
 bmi = b / (a * a)               '計算BMI
 If bmi < min Then min = bmi     '如果計算結果小於最小值,就將最小值換成計算結果
 Next
第二方法
i = 1
Do while i <= 3
Input #1, a, b                  '讀入資料,a為身高,b為體重
a = a / 100                     '因為資料中身高單位是公分,要換成公尺
bmi = b / (a * a)               '計算BMI
If bmi < min Then min = bmi     '如果計算結果小於最小值,就將最小值換成計算結果
i = i + 1
Loop
第三方法
i = 1
Do
Input #1, a, b                  '讀入資料,a為身高,b為體重
a = a / 100                     '因為資料中身高單位是公分,要換成公尺
bmi = b / (a * a)               '計算BMI
If bmi < min Then min = bmi     '如果計算結果小於最小值,就將最小值換成計算結果
i = i + 1
Loop while i <= 3

 If min >= 20 And min <= 25 Then              '判斷最小值的範圍是否在 20~25 之間
 result.Text = "BMI最小值= " & min & " ,正常"
 Else
 result.Text = "BMI最小值= " & min & " ,不正常"
 End If
 
 Close #1                   '關閉檔案
End Sub

相簿設定
標籤設定
相簿狀態