If
ElseIf
再如果应该怎么写？

if    then

elseif  then

elseif  then

elseif  then

elseif  then
''
''
''
end if

我早试过，不行，都按第二个elseif计算了

你把代码贴出来啊！！

If Val(Text1) < 3 Then
Text2 = Val(Text1) * 10 * Val(Text1)
ElseIf 3 < Val(Text1) < 6 Then
Text2 = Val(Text1) * 15 * Val(Text1)
ElseIf 6 < Val(Text1) < 9 Then
Text2 = Val(Text1) * 20 * Val(Text1)
ElseIf 9 < Val(Text1) < 10000 Then
Text2 = Val(Text1) * 25 * Val(Text1)
End If

试过啦。运行正常啊，怎么会都按第二个elseif计算呢！

我Txet1输7，得735

能有这样写表达式的吗??
6 < Val(Text1) < 9

dim i as long
i=val(text1)
If i < 3 Then
Text2 = i * i * 10
ElseIf 3 < i and i < 6 Then
Text2 =  i * i * 15
ElseIf 6 <  i and i  < 9 Then
Text2 =  i * i * 20
ElseIf 9 <  i and i  < 10000 Then
Text2 =  i * i * 25
End If

汗,刚没看你运算结果是怎么写了,全是 val(text1) ,狂汗啊.
重新改过了.

[[it] 本帖最后由 风吹过b 于 2008-12-5 16:47 编辑 [/it]]

If Text1 < 3 Then
Text2 = Text1 * 10 * Text1
ElseIf Text1 > 3 And Text1 < 6 Then
Text2 = Text1 * 15 * Text1
ElseIf Text1 > 6 And Text1 < 9 Then
Text2 = Text1 * 20 * Text1
ElseIf Text1 > 9 And Text1 < 10000 Then
Text2 = Text1 * 25 * Text1
End If

谢谢大家了，管用，呵呵