根据一个人的身高体重测其健康指数的vb程序

Private Sub Form_Click()

Dim w!, h!, f!

w = Val(InputBox("请输入体重千克数"))

h = Val(InputBox("请输入身高米数"))

f = w / (h * h)

If f <18.5 Then

Print "偏瘦！"

ElseIf f >= 18.5 And f <24.9 Then

Print "正常。"

ElseIf f >= 25 And f <= 30 Then

Print "偏胖。"

Else

Print "极胖！"

End If

End Sub

Private Sub Form_Load()

Me.AutoRedraw = True                '让窗口可以输出字符

Me.Width = 12000                    '让窗口足够宽以显示所有字符

For a = 1 To 9                      '循环

For b = 1 To a

Print b "*" a "=" a * b ",",   '输出   分号表示输出后不换行且下次输出紧靠在上次输出的后面

Next b

Print                               '换行

Next a

End Sub

---