else 下边的词 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → else 下边的词

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1638 人关注过本帖， 1 人收藏

标题：else 下边的词

只看楼主加入收藏

woa

等　级：新手上路
帖　子：159
专家分：0
注　册：2008-12-4
结帖率：85.37%

楼主

问题点数：0 回复次数：10

else 下边的词

If
ElseIf
再如果应该怎么写？

搜索更多相关主题的帖子: else　

2008-12-05 15:39

ak47my

等　级：新手上路
威　望：7
帖　子：229
专家分：0
注　册：2005-12-2

第 2 楼

得分:0

if    then

elseif  then

elseif  then

elseif  then

elseif  then
''
''
''
end if

提问：回答：　不提问怎么回答？　提问不清楚怎么回答？

2008-12-05 15:53

woa

等　级：新手上路
帖　子：159
专家分：0
注　册：2008-12-4

第 3 楼

得分:0

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

2008-12-05 15:56

ak47my

等　级：新手上路
威　望：7
帖　子：229
专家分：0
注　册：2005-12-2

第 4 楼

得分:0

你把代码贴出来啊！！

提问：回答：　不提问怎么回答？　提问不清楚怎么回答？

2008-12-05 15:56

woa

等　级：新手上路
帖　子：159
专家分：0
注　册：2008-12-4

第 5 楼

得分:0

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

2008-12-05 16:02

ak47my

等　级：新手上路
威　望：7
帖　子：229
专家分：0
注　册：2005-12-2

第 6 楼

得分:0

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

提问：回答：　不提问怎么回答？　提问不清楚怎么回答？

2008-12-05 16:08

woa

等　级：新手上路
帖　子：159
专家分：0
注　册：2008-12-4

第 7 楼

得分:0

我Txet1输7，得735

2008-12-05 16:18

风吹过b

等　级：贵宾
威　望：364
帖　子：4943
专家分：30047
注　册：2008-10-15

第 8 楼

得分:0

能有这样写表达式的吗??
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]]

授人于鱼，不如授人于渔
早已停用QQ了

2008-12-05 16:41

ak47my

等　级：新手上路
威　望：7
帖　子：229
专家分：0
注　册：2005-12-2

第 9 楼

得分:0

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

提问：回答：　不提问怎么回答？　提问不清楚怎么回答？

2008-12-05 16:51

woa

等　级：新手上路
帖　子：159
专家分：0
注　册：2008-12-4

第 10 楼

得分:0

谢谢大家了，管用，呵呵

2008-12-05 16:56

快速回复：else 下边的词