vb身高体重出现了问题希望大佬们解决

Question

Private Sub Command1 Click()      Dim tz As Single, sg As Single, bmiAs Single      tz = Val(Text1.Text)
sg = Val(Text2.Text)
If(sg。0) Then
bmi= tz/(sg *sg)
Text3.Text = bmi
If (bmi< 18.5) Then      Label4.Caption = "你的体重偏瘦"
Else      If (bmi >= 18.5 And bmi < 24) ThenLabel4.Caption=“你的体重正常”
Else      Label4.Caption=“你的体重偏重"EndIf
End If
End If
End Sub

Answer 1

改好了,你可以对比一下:Private Sub Command1_Click()
    Dim tz As Single, sg As Single, bmi As Single
    tz = Val(Text1.Text)
    sg = Val(Text2.Text)
    If (sg > 0) Then
        bmi = tz / (sg * sg)
        Text3.Text = bmi
        If (bmi < 18.5) Then
            Label4.Caption = "你的体重偏瘦"
        Else
            If (bmi >= 18.5 And bmi < 24) Then
                Label4.Caption = "你的体重正常"
            Else
                Label4.Caption = "你的体重偏重"
            End If
        End If
    End If
End Sub运行示例:下载地址:
链接：https://pan.baidu.com/s/1qTWGrrJz50olpz2qnpmg1w 
提取码：v782 

Answer 2

https://bbs.csdn.net/topics/392559008跟这帖的题主是同学吧