初二信息技术VB期末测试 15分钟内答我分全部给你

初二信息技术VB期末测试 15分钟内答我分全部给你

dim h,w,p as integer
h=text1.text
w=text2.text
p=w*100000/(h*h*h)

if p<1.00 then
Text3.Text = "太瘦！"
end if

if p<1.15 and p>=1.00 then
Text3.Text = "有点瘦！"
end if

if p>=1.15 and p<1.45 then
msgbox("标准")
end if

if p >=1.45 and p<1.60 then
Text3.Text = "有点胖！"
end if

if p>=1.6 then
Text3.Text = "太胖！"
end if

不帮忙考试

好好去研究书本吧 楼主 这个问题确实很操蛋了。好好学习

dim 体重,身高 as intger
input 体重
input 身高
dim Cp as intger
cp=体重* 100000/（身高*身高*身高）
select case cp
case cp<1
text3.text="体型太瘦"
case cp>1 and cp<1.15
text3.text="有点瘦"
case cp>1 and cp<1.15
text3.text="有点瘦"
case cp>1.15 and cp<1.45
text3.text="标准"
case cp>1.45 and cp<1.60
text3.text="点胖"
case cp>=1.60
text3.text="太胖"
end select

Dim 体重 As Single, 身高 As Single, p As Single
Private Sub Command1_Click()
体重 = Val(Text1.Text)
身高 = Val(Text2.Text)
p = 体重 * 100000 / 身高 ^ 3
If p < 1 Then Text3.Text = "体型太瘦"
If p >= 1 And p < 1.15 Then Text3.Text = "有点瘦"
If p >= 1.15 And p < 1.45 Then Text3.Text = "标准"
If p >= 1.45 And p < 1.6 Then Text3.Text = "有点胖"
If p > 1.6 Then Text3.Text = "太胖"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息