BMI指數

物件安排

屬性設定：

ProgressBar1.minimum=10

ProgressBar1.maximum=50

txtHeight.TextAlign=HorizontalAlignment.Right

txtWeight.TextAlign=HorizontalAlignment.Right

程式碼

Public Class Form1

Dim H, W, bmi As Integer

Private Sub Form1_Load(ByVal  … ) Handles MyBase.Load
     txtHeight.Text = ""  '清空文字框內容
     txtWeight.Text = ""
End Sub

Private Sub btnOK_Click(ByVal   …. ) Handles btnOK.Click
   
W = Val(txtWeight.Text)     'Val()函數將文字轉換數字

H= Val(txtHeight.Text)

'此處請輸入運算式

'此處請輸入Label3.text 顯示的內容

ProgressBar1.Value=bmi    '以Bar顯示bmi的數值大小

End Sub

End Class