vb中关于select case的问题

来源:百度知道 编辑:UC知道 时间:2024/05/11 17:47:26
Select Case c
Case c < 0.8
Label3.Caption = "您的体型消瘦"
Case c >= 0.8 And c < 0.9
Label3.Caption = "您的体型偏瘦"
Case c > 1.1 And c <= 1.2
Label3.Caption = "您的体型偏胖"
Case c > 1.2
Label3.Caption = "您的体型肥胖"
Case Else
Label3.Caption = "您的体型正常"
End Select
这些语句有错误吗?

错了错了。
Select Case C
Case Is < 0.8
Label3.Caption = "您的体型消瘦"
Case Is > 1.2
Label3.Caption = "您的体型肥胖"
Case Is > 1.1
Label3.Caption = "您的体型偏胖"
Case Is >= 0.9
Label3.Caption = "您的体型正常"
Case Is >= 0.8
Label3.Caption = "您的体型偏瘦"
End Select

Private Sub Command1_Click()

Select Case c

Case Is < 0.8
Label3.Caption = "您的体型消瘦"

Case Is >= 0.8, Is < 0.9
Label3.Caption = "您的体型偏瘦"

Case Is > 1.1, Is <= 1.2
Label3.Caption = "您的体型偏胖"

Case Is > 1.2
Label3.Caption = "您的体型肥胖"

Case Else
Label3.Caption = "您的体型正常"
End Select

End Sub

Select Case c
Case c < 0.8
case后面就不能再跟c了
cas