帮忙看下,很久没用vb...

来源：百度知道编辑：UC知道时间：2024/06/27 14:26:05

Private Sub Text1_LostFocus()
vfuu = Val(Text1.Text)
Select Case vfuu
Case Is > 0, Is < 100
xiuu = 1
Case Is > 100, Is < 150
xiuu = 1.25
Case Is > 150, Is < 200
xiuu = 1.5
Case Is > 200, Is < 250
xiuu = 1.75
Case Is > 250, Is < 300
xiuu = 2
Case Is < 0, Is > 300
MsgBox "数值超过范围....", vbOKOnly, "警告!"
End Select
Text3.Text = xiuu
End Sub

为什么text3.text总是等于1,如何改才正确?

Private Sub Text1_LostFocus()
vfuu = Val(Text1.Text)
Select Case vfuu
Case 0 To 100
xiuu = 1
Case 101 To 149
xiuu = 1.25
Case 150 To 199
xiuu = 1.5
Case 200 To 249
xiuu = 1.75
Case 250 To 300
xiuu = 2
Case Else
MsgBox "数值超过范围....", vbOKOnly, "警告!"
End Select
Text3.Text = xiuu
End Sub

VB记录集找不到项目,帮忙看下 vb递归的一个题目！帮忙看下！ VB 高手看下麻烦高手帮忙看下,哪些是没用的可以禁止或删除的??? 帮忙看一个VB程序 vb高手进来看下!!! VB高手进来看下 VB 高手进来看下. 很久没用的笔记本电脑懂VB的帮忙下