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

[SSRF]

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

[脆皮大雪糕]

啥问题？就是舍不得说一下，别人就要看你的代码？

[milaoshu1020]

改好了,你可以对比一下:

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

[脆皮大雪糕]

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