问一下！！

Question

dim bolpause as booleanprivate sub myloop
dim i as long
for i=1 to 1000000
  while bolpause 
     doevents
  wend
  doevents
debug.print i
next需要暂停就 bolpause=true，继续就用bolpause=false呵呵

Answer 1

private sub myloop
dim i as long
for i=1 to 1000000
while bolpause 
doevents
wend
doevents
debug.print i
next
end sub掉了一行，呵呵

Answer 2

Option ExplicitDim k As LongPrivate Sub Form_Load()
    k = 1
End SubPrivate Sub Command2_Click()
Call lp(True)
End Sub
Private Sub Command3_Click()
Call lp(False)
End SubPrivate Sub lp(bl As Boolean)
For i = k To 1000000
While bl
DoEvents
Wend
DoEvents
Debug.Print i
k = i
Next
End Sub

Answer 3

错了
Option ExplicitDim k As LongPrivate Sub Form_Load()
    k = 1
End SubPrivate Sub Command2_Click()
Call lp(True)
End Sub
Private Sub Command3_Click()
Call lp(False)
End SubPrivate Sub lp(bl As Boolean)
Dim i As Long
For i = k To 1000000
While bl
DoEvents
Wend
DoEvents
Debug.Print i
k = i
Next
End Sub

Answer 4

'to:Chice_wxg(我怕谁？我是谁！我是流氓我最贼。)
'你可以马上写出来
'比较佩服
'请把下面的保存为 Form1.frm
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   495
      Left            =   2610
      TabIndex        =   1
      Top             =   2340
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   945
      TabIndex        =   0
      Top             =   2355
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitDim k As IntegerPrivate Sub Form_Load()
    k = 1
End SubPrivate Sub Command2_Click()
Call lp(True)
End Sub
Private Sub Command3_Click()
Call lp(False)
End SubPrivate Sub lp(bl As Boolean)
Dim i As Integer
For i = k To 32767
While bl
DoEvents
Wend
DoEvents
Debug.Print i
k = i
Next
End Sub

Answer 5

我的意思是说 让FOR循环暂停 不是用DOEVENTS让出系统时间
就是先让FOR不循环！！ 完成某件事后再进行循环！！
我不想让跳出循环 这样还要再出一个变量 保存循环变量的值 谁会不跳出循环 让循环暂停的！！
谢谢了 谢谢了前面两位大侠了！！ 如果有可能请再想想 谢谢了

Answer 6

可以再循环中调用一个function或sub

Answer 7

for i=1 to 10000
.
.
此处写你要处理的事情,返回一个值
这个值用来判断你处理的事,以及是否多次执行
.
.
next
典型的顺序执行