3

textbox110の間に0に等しい場合はHandDecimal= textbox11、10.1から100に等しい場合はHandDecimal = 3、100.1にtextbox1等しくてHandDecimal=5より大きい場合はHandDecimal=5というコードを記述しようとしています。

これが私のコードですが、うまくいかないようです。

        If WeightDecimal = 0 <= 10 Then

            HandDecimal = 1

        ElseIf WeightTextBox.Text = 10 <= 100 Then

            HandDecimal = 3

        ElseIf WeightTextBox.Text >= 100.1 Then

            HandDecimal = 5

        End If

コードを機能させるにはどうすればコードを変更する必要がありますか?

4

2 に答える 2

7
   Dim weight as Decimal = Decimal.Parse(WeightTextBox.Text) 
   If weight  >= 0 AndAlso weight <= 10 Then

        HandDecimal = 1

    ElseIf weight  > 10 AndAlso weight <= 100 Then

        HandDecimal = 3

    ElseIf weight > 100 Then

        HandDecimal = 5

    End If
于 2012-11-30T03:28:02.170 に答える
4

Select CaseTo演算子付きのステートメント

Select Case WeightDecimal
Case 0 To 10
    HandDecimal = 1
Case 10.1 To 100
    HandDecimal = 3
Case Else 
    HandDecimal = 5
End Select
于 2012-11-30T03:54:22.937 に答える