VB循环结构DO……LOOP
do while i>1 '当i>1的时候,循环体开始执行
i=i+1 ‘每次让i增加一个单位
if i>20 then ’增加i后判断i是否大于20
exit do ‘如果大于20,则跳出循环(exit do)
end if '不是,则绕出判断语句,继续执行循环
loop ’循环往复
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提供的组件快速建立一个应用程序。
2013-03-15
private function fun1(a as integer )as boolean
fun1=true
i=2
do while i <= sqr(a)
if a/i = int(a/i) then fun1 = false
exit do
loop
end function
i=i+1 ‘每次让i增加一个单位
if i>20 then ’增加i后判断i是否大于20
exit do ‘如果大于20,则跳出循环(exit do)
end if '不是,则绕出判断语句,继续执行循环
loop ’循环往复
Sub aa()
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 1
j = 1
Do While i < 10
j = 1
Do While j < 10
If j > i Then
Exit Do
Else
MsgBox i & "*" & j & "=" & i * j
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub