我的状况并不好,那是什么问题?任何人都可以帮我吗?为什么我的情况没有按预期工作?
Public Class Form5
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim a As Integer
If TextBox1.Text = "" Then
TextBox2.Text = ""
End If
a = Val(TextBox1.Text)
If TextBox1.Text = "" Then
TextBox2.Text = ""
ElseIf (a < 4.9) Then
TextBox2.Text = ("Little or No Damage")
ElseIf (a <= 5 AndAlso a >= 5.5) Then
TextBox2.Text = ("Some Damage")
ElseIf (a <= 5.6 And a >= 6.5) Then
TextBox2.Text = ("Serious Damage")
ElseIf (a <= 6.6 And a >= 7.5) Then
TextBox2.Text = ("Disaster")
ElseIf (a > 7.5) Then
TextBox2.Text = ("Catasthrope")
End If
End Sub
End Class
如何'了'小于或等于5 *和*大于或等于5.5在同一时间? (例如) –
“lang po”?这究竟是什么意思? –
看来你只是混了'<=' and '> =' – sloth