UC知道VB 看看
来源：百度知道 编辑：UC知道 时间：2024/05/13 03:42:18
看下边的
Private Sub Command1_Click()
JB = Val(Text1.Text)
If 0 >= JB > 50 Then
a = Val(1000)
ElseIf 50 >= JB > 80 Then
a = Val(2000)
ElseIf 80 >= JB > 90 Then
a = Val(3000)
ElseIf 90 >= JB > 110 Then
a = Val(4000)
ElseIf 110 >= JB > 130 Then
a = Val(5000)
End If
s = JB * JB * a + 10000
Label2.Caption = Str$(s)
End Sub
这里 不论text1box里是什么，label1.caption 都是写10000
为什么？？
Private Sub Command1_Click()
JB = Val(Text1.Text)
If 0 >= JB > 50 Then
a = Val(1000)
ElseIf 50 >= JB > 80 Then
a = Val(2000)
ElseIf 80 >= JB > 90 Then
a = Val(3000)
ElseIf 90 >= JB > 110 Then
a = Val(4000)
ElseIf 110 >= JB > 130 Then
a = Val(5000)
End If
s = JB * JB * a + 10000
Label2.Caption = Str$(s)
End Sub
这里 不论text1box里是什么，label1.caption 都是写10000
为什么？？
If 0 >= JB > 50 Then
vb没有这种写法。
而且就算有这种写法，你见过小于0并且大于50的数字吗？
a=1000就行，已经是数字了，没必要加val
select case jb
case is <50
a=1000
case is <80
a = 2000
case is <90
a=110
case is <110
a = 4000
case is <130
a = 5000
end select
Private Sub Command1_Click()
jb = Val(Text1.Text)
If 0 <= jb And jb < 50 Then
a = Val(1000)
ElseIf 50 <= jb And jb < 80 Then
a = Val(2000)
ElseIf 80 <= jb And jb < 90 Then
a = Val(3000)
ElseIf 90 <= jb And jb < 110 Then
a = Val(4000)
ElseIf 110 <= jb And jb < 130 Then
a = Val(5000)
End If
s = jb * jb * a + 10000
Label2.Caption = Str$(s)
End Sub