我是vb新手,以下程序有问题请高手点解

我是vb新手,以下程序有问题请高手点解
Private Sub Command1_Click() 
Dim A, B, C, X As Single 
A = Text1.Text 
B = Text2.Text 
C = Text3.Text 
If 1.19 < A < 7.62 Then If 2.89 < B < 9.74 Then If 1.67 < C < 21.47 Then X = 3 Else X = 3103 Else X = 

3102 Else X = 3101 
Text4.Text = X 
End Sub 
以上在测试中没有问题,可是结果不是想象的结果. 
问题是这样的 
1)三个条件都满足的话输出 3 
否则 
2)A不满足输出3101, 
3)B不满足输出3102 
4)C不满足输出3103. 
再次谢谢  --------------------编程问答-------------------- If 1.19 < A < 7.62 Then 
有这种写法吗？
是要写成A>1.19 and A<7.62吧？ --------------------编程问答-------------------- 谢谢,以后呢?
--------------------编程问答-------------------- 谢谢了,这样一改就成了.
--------------------编程问答--------------------

If 1.19 < A < 7.62 Then If 2.89 < B < 9.74 Then If 1.67 < C < 21.47 Then X = 3 Else X = 3103 Else X = 



3102 Else X = 3101 

建议改为:

If A<=1.19 or A>=7.62 then

   X=3101

Elseif B<=2.89 or B>=9.74 then

   X=3102

elseif C<=1.67 or C>=21.47 then

   X=3103

else

   X=3

End IF

这样可读性要好很多 --------------------编程问答-------------------- 没有那种写法。把那条件分开写，有and连接。

补充：VB ,  基础类