题型：综合题 题类：模拟题 难易度：普通
浙江省杭州市2015年高考信息技术模拟卷5
Private Sub Command1 Click()
Dim cm,kg,sc As Integer
Dim i as Single
cm = Val(Text1.Text)
kg = val(Text2.Text)
sc = 0
i = 0
If Check1 = 0 Then
sc = (cm - 80) * 0.7
Else
End If
i = (kg - sc) / kg
If i >= -0.1 And i <= 0.1 Then
Label3.Caption = "正重体重"
ElseIf i > 0.1 And i <= 0.2 Then
Label3.Caption = "体重超重"
ElseIf i > 0.2 Then
ElseIf i <= -0.1 And i >= -0.2 Then
Label3.Caption = "体重过轻"
Else
Label3.Caption = "体重严重不足"
End If
End Sub
试题篮
