打印

[电脑] 请教一个VB循环和判断的问题。。。

shixn

银河飞将

帖子: 31358
精华: 0
积分: 44619
激骚: 1522 度
爱车
主机
相机
手机
注册时间: 2004-11-5

TGFC 2014新年勋章☆☆☆☆ TGFC 2015新年勋章☆☆☆☆ TGFC 2016新年勋章☆☆☆☆ TGFC 2017新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2020年度勋章☆☆☆☆

发短消息
加为好友
当前离线

1^# 大中小发表于 2009-8-31 23:36 只看该作者

目的是循环判断一个数，结果如果为真，就进入下一循环判断，如果为非就原地等待。。
试着这么写了一下，运行后弹出提示说缺少for
...
for i = 0 to 9
if SpeedFlag(i) = 1 then next i
...
不晓得应该怎么办好了。。加激骚求助！！

TOP

helin

小侠

帖子: 247
精华: 0
积分: 12659
激骚: 43 度
爱车
主机
相机
手机
注册时间: 2006-4-9

TGFC 2015新年勋章☆☆☆☆

发短消息
加为好友
当前离线

2^# 大中小发表于 2009-9-1 09:46 只看该作者

for i = 0 to 9
if SpeedFlag(i) <> 1 then
..................
end if
next

没有next i这样写的

TOP

boostloki

小黑屋

帖子: 93
精华: 0
积分: 4110
激骚: 4 度
爱车
主机
相机
手机
注册时间: 2008-11-29

发短消息
加为好友
当前离线

3^# 大中小发表于 2009-9-1 18:12 只看该作者

oh my god

TOP

cc0128

元始天尊

帖子: 43262
精华: 0
积分: 52432
激骚: 1703 度
爱车: 11路
主机: 3ds, xbox one
相机: ep5
手机: nexus 5
来自: 北方三线城市
注册时间: 2005-12-17

PS区大收藏家奖☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2020年度勋章☆☆☆☆

发短消息
加为好友
当前离线

4^# 大中小发表于 2009-9-1 18:20 只看该作者

雷到我了。

我大概写下，不一定语法是对的。
类似这样

for i=0 to 9

while (not FlagS) and i <> x do ‘x 就是你要的数
loop

next i

TOP

cc0128

元始天尊

帖子: 43262
精华: 0
积分: 52432
激骚: 1703 度
爱车: 11路
主机: 3ds, xbox one
相机: ep5
手机: nexus 5
来自: 北方三线城市
注册时间: 2005-12-17

PS区大收藏家奖☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2020年度勋章☆☆☆☆

发短消息
加为好友
当前离线

5^# 大中小发表于 2009-9-1 18:21 只看该作者

引用:

原帖由 helin 于 2009-9-1 09:46 发表
for i = 0 to 9
if SpeedFlag(i) 1 then
..................
end if
next

没有next i这样写的

确定在vba里面有next i。

TOP

sowo

魔王撒旦

帖子: 6551
精华: 0
积分: 20467
激骚: 199 度
爱车
主机
相机
手机
注册时间: 2005-11-17

TGFC 2015新年勋章☆☆☆☆

发短消息
加为好友
当前离线

6^# 大中小发表于 2009-9-1 18:31 只看该作者

原地等待是什么意思，next i这样的写法没错

TOP

aaafffei

魔王撒旦

帖子: 9109
精华: 0
积分: 26167
激骚: 1331 度
爱车
主机
相机
手机
注册时间: 2007-1-21

TGFC 2015新年勋章☆☆☆☆ TGFC 2019新年勋章☆☆☆☆

发短消息
加为好友
当前离线

7^# 大中小发表于 2009-9-1 19:32 只看该作者

Dim i As Integer
Set i = 1
Do While i
If flag(i) = 1 Then
i = i + 1
Else
'here type you what you want to execute in i<>1
End If
Loop

本帖最近评分记录

shixn 激骚 +4 感谢分享 2009-9-2 00:03

TOP

xiejia31

魔神至尊

帖子: 19377
精华: 0
积分: 98380
激骚: 235 度
爱车
主机
相机
手机
注册时间: 2003-2-26

发短消息
加为好友
当前离线

8^# 大中小发表于 2009-9-1 21:10 只看该作者

不考虑循环体的问题那么用GOTO指针指向就可以了。有的循环体自带退出循环定义。用DO循环 exit do

[ 本帖最后由 xiejia31 于 2009-9-1 21:12 编辑 ]

TOP

bobykid

魔神至尊

shitizen

帖子: 18075
精华: 0
积分: 18519
激骚: 815 度
爱车: MAZDA 6
主机: XO + PS2
相机
手机
注册时间: 2004-6-2

PS区 2020年度白金奖☆☆☆☆ TGFC 2014新年勋章☆☆☆☆ TGFC 2015新年勋章☆☆☆☆ TGFC 2016新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2019新年勋章☆☆☆☆ TGFC 2020年度勋章☆☆☆☆

发短消息
加为好友
当前在线

9^# 大中小发表于 2009-9-1 21:57 只看该作者

引用:

原帖由 shixn 于 2009-8-31 23:36 发表
目的是循环判断一个数，结果如果为真，就进入下一循环判断，如果为非就原地等待。。
试着这么写了一下，运行后弹出提示说缺少for
...
for i = 0 to 9
if SpeedFlag(i) = 1 then next i
...
不晓得应该怎么办好 ...

Dim i as integer
for i = 0 to 9
if SpeedFlag(i) = 1 then goto xxxx
next i

xxxx: 'xxxx必须跟for语句在同一sub或者function里面

本帖最近评分记录