Question

vb if函数

Private Sub Command1_Click()
Dim h As Single '定义h
h = Val(Text1.Text)
If 0 < h <= 50 Then
h = h + 4
ElseIf 50 < h <= 70 Then
h = h + 5
ElseIf 70 < h <= 100 Then
h = h + 6
Else
h = h + 7
End If
Text6.Text = h
怎么不论输入多少 都是text6.textf都是只加4呢。。。。谢谢

Answer 1

Private Sub Command1_Click()
Dim h As Single '定义h
h = Val(Text1.Text)
If 0 < h And h <= 50 Then
h = h + 4
ElseIf 50 < h And h <= 70 Then
h = h + 5
ElseIf 70 < h And h <= 100 Then
h = h + 6
Else
h = h + 7
End If
Text2.Text = h

End Sub

追问

谢谢，我才自己也找到了 判断方法出错了，很久没有用VB了，现在要写点小东西，唉 谢谢了

追答

慢慢来

追问

还可以问一个问题吗？怎么定义一个数如a 在1，5 ， 50 ，47，90，700，99 等数中选取 然后与b进行比较 谢谢

追答

没看懂
可以加qq 83408531

Answer 2

if b=(或>或<)arr(1，5 ， 50 ，47，90，700，99)

Answer 3

Select Case a
Case 1
语句1
Case 5
语句2
Case 50
语句3
End Select