ตัวอย่างการสร้างโปรแกรมวิเคราะห์ BMI

Private Sub CommandButton1_Click()

UserForm1.Height = 300

Height = TextBox1.Text

Weight = TextBox2.Text

bmi = (Weight / (Height / 100) ^ 2)

TextBox3.Value = Format(TextBox1.Value, "#,##0.00")

If bmi >= 30 Then

TextBox3.Text = "BMI=" & bmi & vbCrLf & "ÍéǹÁÒ¡"

ElseIf bmi >= 25 Then

TextBox3.Text = "BMI=" & bmi & vbCrLf & "Íéǹ"

ElseIf bmi >= 23 Then

TextBox3.Text = "BMI=" & bmi & vbCrLf & "¹éÓ˹ѡà¡Ô¹àÅ硹éÍÂ"

ElseIf bmi >= 18.6 Then

TextBox3.Text = "BMI=" & bmi & vbCrLf & "¹éÓ˹ѡ»¡µÔ àËÁÒÐÊÁÊÓËÃѺ¤¹ä·Â"

Else

TextBox3.Text = "BMI=" & bmi & vbCrLf & "¼ÍÁä» ¹éÓ˹ѡ¹éÍ¡ÇèÒ»¡µÔ"

End If

End Sub

Private Sub CommandButton2_Click()

Unload UserForm1

UserForm1.Show

End Sub