VB中的无限循环代码

Dim fStop As Boolean

Private Sub Command1_Click() '开始

Do

DoEvents

Loop Until fStop

End Sub

Private Sub Command2_Click() '停止

fStop = True

End Sub

添加两个Timer控件（Timer1和Timer2），再添加一个Label1，然后复制→粘贴，点击【是】，创建控件数组，也就变成4个Label了。

参考代码如下：

Dim

i

As

Integer,

k

As

Integer

Private

Sub

Command1_Click()

Timer2.Enabled

=

True

Timer1.Enabled

=

False

End

Sub

Private

Sub

Form_Load()

Timer1.Enabled

=

False

Timer2.Enabled

=

False

Timer1.Interval

=

600

Timer2.Interval

=

1000

End

Sub

Private

Sub

Timer1_Timer()

lblDisp(i).Caption

=

StrConv(i

+

1,

vbWide)

i

=

i

+

1

If

i

=

4

Then

Timer1.Enabled

=

False

End

Sub

Private

Sub

Timer2_Timer()

lblDisp(k).Caption

=

k

+

1

k

=

k

+

1

If

k

=

4

Then

Timer2.Enabled

=

False:

Timer1.Enabled

=

True

End

Sub

下面提供多种方法：

第一种：

For i = 0 To 100

If (i Mod 2 = 0) And (i Mod 3 = 0) And (i Mod 5 <>0) Then

MsgBox i

End If

Next i

第二种：

Private Sub Command1_Click()

Text1 = ""

Dim a()

k = InputBox("请输入上限")

For i = 1 To k

If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <>0 Then

j = j + 1

ReDim Preserve a(j)

a(j) = i

End If

Next i

For i = 1 To j

Text1 = Text1 &a(i) &" "

Next i

End Sub

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

---