一 VB中的数据与运算
二 标准函数
三 三种基本结构(顺序,判定,循环)
一 VB中的数据与运算
3.1.1 数据类型
3.1.2 变量与常量
3.1.3 运算符和表达式
3.1.4 数组
3.1.1 数据类型
数值数据类型
(1) Integer型和Long型
用来表示整数.Integer型数据占2个字节,Long型数据占4个字节.
除了十进制整型数,常用的还有八进制和十六进制,它们的表示方法为:
Intger型: 八进制 数值前加&O或&.如&O123
十六进制 数值前加&H.如&H123
Long型: 八进制数值前加&O或&,最后加&.如&O123&
十六进制 数值前加&H,最后加&.如&H123&
(2) Single型和Double型
用来表示浮点数.Single型占4个字节,Double型占8个字节.
表示一些单精度型常量和双精度常量时,可以用以下方法:
0.123E5,0.34E-2,0.8D2
(3) Currency型
为表示钱款而设置.占8个字节.小数点左边最多15位,右边最多4位.
(4) Byte型
占1个字节,表示无符号整数.
字符数据类型
字符(String)类型存放字符型数据.用双引号括起来,如"abc".
注:①""表示空字符串,长度为0.
②若字符串中含有双引号,则用连续两个双引号表如"abc""12".
日期数据类型
日期型(Date)表示日期和时间,占8个字节.用"#"括起来,如
#2004-5-4#等.
逻辑数据类型
逻辑型(Boolean)表示逻辑判断,占2个字节.只有True和Fale两个值.
逻辑型数据转换成整型数据时,True转换为-1,False转换为0.
其他类型数据转换成逻辑型数据时,非0数转换为True,0转换为False.
对象数据类型
对象型(Object)表示图形,OLE对象或其他对象,占4个字节.
变体数据类型
变体型(Varient)可存放任何类型的数据
类型说明符
可在常量或 变量的后边加上类型说明符指明它是哪一种数据类型,常见的类型说明符如下:
整型:% 长整型:&
单精度型:! 双精度型:#
字符串型:$ 货币型:@
3.1.2 变量与常量
命名规则
1. 名字由字母,汉字,数字或下划线组成;
2.名字的第一个字符必须是字母或汉字;
3.名字的有效长度小于等于255个字符;
4.不能使用VB中的关键字.
5.VB中不区分变量名的大小写.
6.为了增加程序的可读性,可在变量名前加一个缩写的前缀来表明该变量的数据类型.
变量
变量定义的一般格式如下:
Declare 变量名 As 类型
其中,①Declare可以是Dim,Static,Public,ReDim.
Dim,Static用于定义局部变量
Dim用于定义窗体和模块级变量
Public用于定义全局变量
ReDim用于重新定义数组
②类型可以是基本数据类型或用户自定义数据类型
③若"As 类型"省略,默认为变体数据类型
④可在变量名后加类型说明符代替"As 类型
例如:Dim x as Integer,y as Single
Dim s as String
注:Dim定义的局部变量是自动变量,过程结束后其值被重新设置;
Static定义的局部变量是景泰变量,过程结束后其值继续保留.
常量
VB中有三种常量:即直接常量,用户声明的符号常量和系统提供的常量.
(1)直接常量
直接常量其常数值直接反映了其类型,也可在常数值后紧跟类型符显示地说明常数的数据类型.
(2)符号常量
常量可用由用户定义的符号常量表示,格式如下:
Const 符号常量名 [As 类型]=表达式 [,常量名=表达式]……
例如:Const PI=3.1415926
(3)系统提供的常量
除了用户通过声明创建符号常量外,VB系统还提供了应用程序和控件定义的常量,这些常量位于对象库中,在"对象浏览器"中的Visual Basic(VB),Visual Basic for Applications(VBA)等对象库中列举了Visual Basic的常量.
3.1.3 运算符和表达式
运算符
1. 算术运算符
加:+ 减:- 乘:*
整除:/ 浮点除:/ 取模:Mod
负号:- 幂运算:^
2. 字符串运算符
"&"和"+"都是将两个字符串拼接起来.但字符串连接时最好用"&",因为"+"还可以作为算术运算符使用
3. 关系运算符
对两个表达式的值做比较,若关系成立,则返回True,否则返回False.
等于 = 大于 > 大于等于 >= 小于 <
小于等于 <= 不等于 或>字符运算符>关系运算符>逻辑运算符
常用内部函数
VB提供了大量的内部函数(或称标准函数)供用户在编程时调用.内部函数按其功能可分成数学函数,转换函数,字符串函数,日期函数和格式输出函数等. 具体内容参见课本.
3.1.4 数组
1. 数组的概念
2. 静态数组与动态数组
3. 数组的清除和重定义
4. 数组元素的基本操作
5. 控件数组
6. 自定义数据类型
1. 数组的概念
一,数组的概念
在实际应用中,经常需要处理同一类型的成批数据.比如,要处理100个学生的会计这门课程的考试成绩,如果在程序中定义100个变量来表示这批成绩,显然是很麻烦的.我们可以用VB提供的数组来完成这个功能.可以用c1,c2,…,c100来分别代表每个学生的分数,也就是说,用一批具有相同名字,不同下标的下标变量来表示同一属性的一组数据,这样能更清楚的表示它们之间的关系.
在VB中,把一组具有相同名字,不同下标的下标变量称为数组.在计算机中,下标用"()"括起来.比如c(2),其中c为数组名,2是下标.
根据数组中下标变量的个数可以分为一维数组,二维数组或多维数组.
二,数组的声明
定义数组可以用Dim,Public,Private,Static语句实现.
格式(以Dim为例):
Dim ([,]……) [As ]
例:Dim c(99) as Single
Dim s(3,4) as string
Dim stu(3,6)
Dim a(2 to 100) as string*5
Dim b(2 to 30,5 to 40)
说明:
①数组必须要先定义,后使用
②如果不用AS语句指明类型,默认为变体数据类型
③一般情况下,下标的下界默认为0,如果希望下标从1开始,可以用Option Base语句设置,格式为Option Base n ,其中n为下标的下界,只能是0或1
④可以根据需要指定数组下标的下界,格式为
Dim 数组名([下界 To] 上界[,[下界 To]上界]……)
⑤在同一个过程中,数组名不能与变量名同名
⑥在定义数组时如果指明了类型,那么数组中的每个元素都是这种类型的;如果没有指明或定义成了变体数据类型,则其中的每个元素也是变体类型,可以存放各种类型的数据.
2. 静态数组与动态数组
定义数组后,为了使用数组,必须为数组开辟所需要的内存区.根据内存区开辟时机的不同,可把数组分为静态数组和动态数组.
通常把需要在编译时开辟内存区的数组叫做静态数组,把需要在运行时开辟内存区的数组叫做动态数组.
一,静态数组
静态数组的数组元素的个数是在数组声明时确定的,系统运行过程中它的个数不变.
前面定义的几个数组都是静态数组.我们主要讲一下动态数组.
二,动态数组
动态数组是在声明数组时未给出数组的大小(省略括号中的下标),当要使用它时,随时用ReDim语句重新指出大小的数组.
使用动态数组的优点是可根据用户需要,有效地利用存储空间,它是在程序执行到ReDim语句时分配存储空间.
建立动态数组的方法是,使用Dim,Private或Public语句声明括号内为空的数组,然后在过程中用ReDim语句指明该数组的大小.形式如下:
ReDim ([,…]) [As ]
例如:
Dim s() as integer '定义动态数组s,括号不能省略
Private Sub Form_Click()
......
n = InputBox("输入n的值")
m = InputBox("输入m的值")
n = Val(n)
m = vla(m)
ReDim s(n, m) '重新指明数组的大小
......
End Sub
在过程中可多次使用ReDim语句来改变数组的大小,不能改变数组维数,也不能改变数组的类型.
每次执行 ReDim 语句时,当前存储在数组中的值都会全部丢失.Visual Basic 重新将数组元素的值置为 Empty(对 Variant 数组),置为 0(对 Numeric 数组),置为 零长度字符串(对 String 数组).如果希望改变数组大小又不丢失数组中的数据,可使用具有 Preserve 关键字的 ReDim 语句就可做到这点.
如:
Dim this() As String
Private Sub Command1_Click()
ReDim this(4)
this(2) = "microsoft"
Print this(2)
ReDim Preserve this(6)
Print this(2)
End Sub
3. 数组的清除和重定义
在一个程序中,同一个数组只能定义一次.有时可能需要清除数组的内容或对数组重新定义,这可以用Erase语句来实现.格式如下:
Erase [,]……
说明:
①在Erase语句中,只给出要刷新的数组名,不带括号和下标
②Erase语句用于静态数组时,用来重新初始化各元素,内容被清空.若是数值数组各元素被置0,字符数组各元素被置为空字符串.
③Erase语句用于动态数组时,删除整个数组的结构并释放该数组所占用的内存.动态数组经Erase后不再存在.下次引用该动态数组之前,必须用ReDim语句重新定义该数组的维数.
4. 数组元素的基本操作
一,给数组元素赋值
1.利用循环结构
For i=1 to 5
A(i)=3
Next i
2.利用InputBox()函数输入
Private Sub Command1_Click()
Dim b(2, 3)
For i = 0 To 2
For j = 0 To 3
b(i, j) = InputBox("输入" & Str(i) & "," & Str(j) & "的值")
Next j
Next i
For i = 0 To 2
For j = 0 To 3
Print b(i, j); " ";
Next j
Print
Next i
End Sub
当给一个较大的数组赋值时,以上方法比较麻烦,可以用Array()函数解决.
3.利用Array()函数
Private Sub Form_Click()
Dim a, b
a = Array(1, 2, 3, 4, 5)
b = Array("11", "22", "33")
For i = 0 To UBound(a)
Print a(i);
Next i
Print
For i = 0 To UBound(b)
Print b(i);
Next i
Print
End Sub
说明:
①Array()函数对各元素赋值,声明的数组是动态数组或连小括号都省略的数组,并且类型只能是Varient.
②数组下界默认为0,可通过Option Base语句决定,上界由Array()函数括号内的参数个数决定,也可通过UBound()函数获得.
③Array函数只适用于一维数组.
二,数组元素的输出
可以通过Print语句对数组输出
对一维数组,用单重循环就能实现,对二维数组,要用二重循环实现.
三,数组元素的复制
1.单个数组元素可以像简单变量一样从一个数组复制到另一个数组.
如:Dim b(4),a(6)
……
b(2)=a(3)
2 .要复制整个数组,要使用For循环语句.
Private Sub Command1_Click()
Dim a(), b()
a = Array(1, 2, 3, 4, 5)
ReDim b(UBound(a))
For i = 0 To UBound(a)
b(i) = a(i)
Next i
For i = 0 To UBound(a)
Print b(i);
Next i
End Sub
3 .要复制整个数组,也可以使用一条简单的赋值语句即可.如:
Dim a(4) as integer,b() as integer
A(0)=0:a(1)=5:a(2)=10:a(3)=13:a(4)=14
B=a
使用这种方法赋值时,必须要注意:
①赋值号两边的数据类型必须一致
②如果赋值号左边的是一个大小固定的数组,则数组赋值出错
③赋值号左边的必须是一个动态数组,赋值时系统自动将动态数组ReDim成与右边同样大小的数组
四,For Each…Next语句
与For…Next语句类似,两者都是用来执行指定重复次数的语句.但For Each…Next语句是专门用于操作数组的,它的格式如下:
For Each In
[]
[Exit For]
Next []
说明:
①格式中的"成员"必须是一个变体变量,是为循环提供的,代表的是数组中的每个元素.
②〈数组名〉没有括号和上下界
用For Each…Next语句可以对数组元素进行处理,它所重复执行的次数由数组中元素的个数确定,数组中有多少个元素,就自动重复执行多少次.
例:
Option Base 1
Private Sub Command1_click()
Dim abc(10) As Integer
For i = 1 To 10
abc(i) = Int(Rnd * 100)
Next i
Print "使用普通循环输出:"
For i = 1 To 10
Print abc(i);
Next i
Print
Print "使用For Each…Next输出:"
For Each x In abc
Print x;
Next
End Sub
5. 自定义数据类型
自定义数据类型由若干个标准数据类型组成,又称记录类型.通过Type语句实现.
格式:
Type自定义类型名
元素名 [(下标)] As类型名
……
[元素名 [(下标)] As类型名]
End Type
如:
Type Student
No As Integer
Name As String*20
Sex As String*1
Mark (1 To 4) As Single
Total As Single
End Type
说明:
①自定义数据类型一般在标准模块(.bas)中定义,默认是Public.若在窗体模块中定义,必须是Private.
②自定义数据类型中的元素类型可以是字符串,但应是定长字符串.
定义好了类型,就可在变量的声明时使用该类型,定义的方法和标准类型是一样的.比如:
Dim stu as student
表示自定义类型变量中元素的格式为:变量名.元素名,如stu.no,stu.name等.
可给变量stu赋值:
标准函数
2.1 数学函数
2.2 转换函数
2.3 字符串函数
2.4 日期与事间函数
1. 数学函数
Sin(N):返回自变量N的正玄函数值,如:sin(0)=0,N为弧度.
Cos(N):返回自变量N的余玄函数值,如:cos(0)=1,N为弧度.
Tan(N):返回自变量N的正切函数值,如:tan(0)=0,N为弧度.
Atn(N):返回自变量N的反正切值,如:atn(0)=0,函数值为弧度.
Sgn(N):返回自变量N的符号.N=0,如:Sqr(81)=9.
Exp(N):返回e的N 次幂值,n>=0.如:Exp(3)=20.086.
Log(N):返回N的自然对数,N>0 ,如:Log(10)=2.3
Int(N):返回不大于N的最大整数,如:Int(3.6)=3.
Cint(N):四舍五入整数.Cint(3.6)=4.
Rnd(N):返回0～1之间的随机小数.
注意:三角函数的自变量以弧度表示.
2. 转换函数
Fix(n):返回n的整数部分,截取小数部分;如:Fix(3.4)=3.
Asc(c):返回字符串C首字符的ASCII码值,如:Asc("A")=65.
Chr(n):返回ASCII码值为n的字符,Chr(65)="65".
Val(c):把数字组成的字符串型数据转换称数值型.Val("456")=456.
Str(n):把数值n转换成字符型,Str(357)="357".
Lcase(c):把字符串c中大写字母转换为小写字母.Lcase("A")="a".
Ucase(c):把字符串c中小写字母转换为大写字母.Ucase("a")="A".
3. 字符串函数
Trim(c):去掉字符串c两端的空格,Trim(" ab ")="ab".
Left(c,n):截取C最左边的n个字符,Left("command,3")="com".
Right(c,n):截取c最右边的n个字符,Right("command,3")="and".
Mid(C,m,n):截取c中第m个字符开始的n个字符.Mid("command",3,2)="mm".
Len(c):返回c包含的字符数,汉字空格都算一个字符.Len("中")=1.
Ucase(c):将c中的小写字母转换成大写字母.Ucase("Who")="WHO".
Lcase(c):将c中的大写字母转换成小写字母.Lcase("Who")="who".
4. 日期与时间函数
Time[$][()] :返回系统当前时间;
Date[$][()] :返回系统当前日期;
Now[()]: 返回系统当前日期和时间;
Day(c/n): 返回数据中当月第几天;
Month(c/n):返回数据中当年第几月;
WeekDay(c/n):返回数据当天是星期几.
三 基本控制结构
3.1 顺序结构
3.2 选择结构
3.3 循环结构
3.1 顺序结构
顺序结构就是各语句按出现的先后次序执行.主要是由一些赋值语句,输入/输出语句等组成.
赋值语句
格式:变量名=表达式
在VB中,既可以给一个变量赋值,也可以给对象的某一个属性赋值.
InputBox()函数
格式:InputBox(提示[,标题][,默认][,x坐标位置][,y坐标位置])
功能:产生一个对话框,让用户从键盘输入内容,当用户单击"确定"按钮或按回车键时,函数返回输入的值.
Private Sub Command1_Click()
r = InputBox("请输入姓名", "教师登记表", "张三", 3000, 4000)
Print r
End Sub
其中:"提示":字符串表达式,在对话框中作为信息显示.
"标题":字符串表达式,在对话框的标题区显示.
"默认":字符串表达式,显示输入框里的默认信息.
"x坐标位置","y坐标位置":整型表达式,坐标确定对话框左上角 在屏幕上的位置,屏幕左上角为坐标原点,单位为twip.
在这五个参数中,只有"提示"是必选的.
注:函数的返回值为字符串类型,所以如果要对返回值进行算术运算,必须要转换成数值型的.
例如:Private Sub Command1_Click()
r = InputBox("请输入第一个数")
s = InputBox("请输入第二个数")
r = Val(r): s = Val(s)
x = r + s
Print x
End Sub
MsgBox()函数
格式:变量=MsgBox(提示[,按钮][,标题])
功能:打开一个信息框,等待用户选择一个按钮.
例如:Private Sub Command1_Click()
r = MsgBox("输入密码", 51, "密码错误")
Print r
End Sub
"提示"和"标题":意义与InputBox函数中对应的参数相同.
"按钮":整型表达式,用来控制在信息框内显示的按钮,图标的种类和数量,该参数的值由4类数值相加产生,这4类数值或符号常量分别表示按钮类型,显示图标的种类,活动按钮(默认按钮)的位置及强制返回模式.按钮设置值及意义见下图.
"按钮"设置值及意义
应用模式
系统模式
0
4096
VbApplicationModule
VbSystemModule
模式
第1个按钮为默认
第2个按钮为默认
第3个按钮为默认
0
256
512
VbDefaultButtonl
VbDefaultButton2
VbDefaultButton3
默认
按钮
关键信息图标红色STOP标志
询问信息图标
警告信息图标!
信息图标i
16
32
48
64
VbCritical
VbQuestion
VbExclamation
VbInformation
图标
类型
只显示"确定"按钮
显示"确定","取消"按钮
显示"终止","重试","忽略"按钮
显示"是","否","取消"按钮
显示"是","否"按钮
显示"重试","取消"按钮
0
1
2
3
4
5
VbOkOnly
VbOkCancel
vbAboutRetryIgnore
VbYesNoCancel
VbYesNo
VbRetryCancel
按钮
类型
描 述
按钮值
系统内部常量
4类分组
MsgBox函数返回值是一个整数值,这个返回值与所选的按钮有关,所选按钮返回数值的意义见下图.
vbNo
7
否
VbYes
6
是
VbIgnore
5
忽略
VbRetry
4
重试
VbAbort
3
终止
VbCancel
2
取消
VbOk
1
确定
系统内部常量
返回值
被单击的按钮
再看一个有关返回值的例子:
编写一个程序,用MsgBox函数判断是否继续执行.
Private Sub Form_Click()
Dim Msg$, Title$
Dim m%
Msg$ = "此数据是否正确"
Title$ = "数据验证对话框"
m = MsgBox(Msg$, 35, Title$) '35=3+32+0+0
If m = 6 Then '
Print "正确"; m * m
ElseIf m = 7 Or m = 2 Then
Print "数据错误,请重新输入"
End If
End Sub
对于一些较简单的信息提示,我们可以使用MsgBox语句,格式如下:
MsgBox 提示[,按钮][,标题]
它与MsgBox函数的主要区别是函数有返回值,而语句没有返回值
3.2 选择结构
选择结构,就是对条件进行判断,根据判断结果,选择执行不同的分支.
VB中提供了多种形式的条件语句来实现,我们主要介绍If条件语句和Select
Case语句
If条件语句
If条件语句有两种格式:单行结构和块结构
1.单行结构
格式:
If Then [Else ]
如果Then或Else后面有多条语句,那么各语句之间用":"隔开.
2.块结构
格式:
If Then
[Else
]
End If
Then和Else后面不能有语句,而且最后不要忘了写上End If.
这两种结构都比较简单,就不再举具体的例子了.
在实际应用中,我们还经常用的If语句的嵌套,即一个If语句里又包含一个If语句.举一个简单的例子:
某商场为了促销,采用购物打折的优惠办法,每位顾客一次购物
(1)1000元以上,按九五折优惠
(2)2000元以上,按九折优惠
(3)3000元以上,按八五折优惠
(4)5000元以上,按八折优惠
编写程序,输入购物款数,计算并输出优惠价.
方法一:
Private Sub Command1_Click()
Dim x As Single, y As Single
x = val(Text1.Text)
If x < 1000 Then
y = x
Else
If x < 2000 Then
y = 0.95 * x
Else
If x < 3000 Then
y = 0.9 * x
Else
If x < 5000 Then
y = 0.85 * x
Else
y = 0.8 * x
End If
End If
End If
End If
Text2.Text = Str(y)
End Sub
上面的这个程序出现多次If语句嵌套,程序长,不便阅读.为此VB提供了带ElseIf的块If语句,使程序简化易写.其格式如下:
If Then
Elself Then
……
[Else
]
End If
上面的例子可以改写成这种格式的,代码如下:
方法二:
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 1000 Then
y = x
ElseIf x < 2000 Then
y = 0.95 * x
ElseIf x < 3000 Then
y = 0.9 * x
ElseIf x < 5000 Then
y = 0.85 * x
Else
y = 0.8 * x
End If
Text2.Text = Str(y)
End Sub
Select Case 语句
又称情况语句,是多分支结构的另一种形式.格式:
Select Case变量或表达式
Case表达式列表1
Case表达式列表2
…
[Case Else
]
End Select
格式中的"表达式列表"可为下列形式之一:
(1)表达式[,表达式]……
eg: Case 2,4,6,8
(2)表达式 To表达式
eg: Case 1 to 5
(3)Is关系运算表达式
eg: Case Is<10
情况语句执行时先对"测试表达式"求值,然后测试该值与哪一个Case子句中的"表达式列表"匹配,如果找到了,就执行与该Case语句有关的语句块,执行完后转移到End Select后面的语句;如果没有找到,则执行与Case Else子句有关的语句块,然后在转移到End Select后面的语句.
刚才那个购物打折的例子同样可以用情况语句实现,代码如下:
方法三:
Private Sub Form_Click()
Dim x As Single, y As Single
x = InputBox("请输入购物款数")
x = Val(x)
Select Case x
Case Is < 1000
y = x
Case Is < 2000
y = 0.95 * x
Case Is < 3000
y = 0.9 * x
Case Is < 5000
y = 0.85 * x
Case Else
y = 0.8 * x
End Select
Print "购物款数:"; x, "优惠价:"; y
End Sub
同一个问题,解决的方法可能有多种,我们最好选择自己比较熟悉而又简单的来实现
3.3 循环结构
在实际应用中,经常遇到一些操作并不复杂,但需要反复多次处理的问题,比如人口增长统计,计算存款利息等,这些问题如果用顺序结构来处理十分麻烦,有时甚至难以实现,而使用VB提供的循环语句可以轻松实现.
循环结构就是在指定的条件下多次重复执行一组语句.VB提供了两种不同风格的循环结构:
计数循环(For-Next循环)
当循环(While循环)
Do循环(Do-Loop循环)
For循环语句
格式:
For循环变量=初值To终值[step步长]
[Exit For] 循环体
Next循环变量
说明:
①循环变量也称"循环计算器"或"循环控制变量",为数值型.
②初值与终值均为数值表达式.
③步长是一个数值表达式,为循环变量的增量,可正可负;如果省略,默认为1.
④Exit For可用于提前退出for循环.
⑤Next后面的"循环变量"与For后面的"循环变量"必须相同.
执行过程:
①把"初值"赋给"循环变量"
②检查"循环变量"是否超过终值,若没有则执行循环体,若超出则结束循环,执行Next后面的语句
③循环变量加步长,转②,继续循环.
由上可看出For-Next循环的循环次数由初值,终值和步长三个因素决定,计算公式为:循环次数=Int(终值-初值)/步长+1
下面举一个例子:求n!(n为自然数)
Private Sub Form_Click()
Dim n As Integer
n = InputBox("输入n的值:")
k = 1
For i = 1 To n
k = k * i
Next i
Print n; "!="; k
End Sub
再看一个有关步长和Exit For语句的例子.
Private Sub Form_Click()
For i = 1 To 100
s = s + i
If s = 4851 Then
Exit For
End If
Next i
Print i
End Sub
当循环(While循环)
格式:
While 条件
[语句块]
Wend
当条件为True时,执行循环体.
例:Private Sub Form_click()
Dim char As String
Const ch$ = " "
Counter = 0
msg$ = "输入一个字母"
char = InputBox$(msg$)
While char ch
Counter = Counter + 1
char = InputBox$(msg$)
Wend
Print "输入字母的个数为:"; Counter
End Sub
Do…Loop循环语句
Do循环有两种格式:
格式一:
Do [ {While | Until} ]
[Exit Do]
Loop
说明:
①格式一为先判断后执行,循环体有可能一次也不执行.
格式二为先执行后判断,至少执行一次循环体.
②While用于指明条件为True时就执行循环体.
Until指在条件变为True值之前重复执行循环体.
③Exit Do语句可以提前退出循环
④若语句中省略While或Until子句,即循环由Do-Loop构成,则为无条件循环,循环体内应该由Exit Do语句,否则成为死循环.
格式二:
Do
[Exit Do]
Loop [{While | Until} ]
举一个Do-Loop循环的例子
目前世界人口有60亿,如果以每年1.4%的速度增长,多少年后世界人口达到或超过70亿.
方法一:
Private Sub Form_Click()
Dim p As Double
Dim r As Single
Dim n As Integer
p = 6000000000#
r = 0.014
n = 0
Do Until p >= 7000000000#
p = p * (1 + r)
n = n + 1
Loop
Print n; "年后"; "世界人口达"; p
End Sub
方法二:
Private Sub Form_Click()
Dim p As Double
Dim r As Single
Dim n As Integer
p = 6000000000#
r = 0.014
n = 0
Do While p < 7000000000#
p = p * (1 + r)
n = n + 1
Loop
Print n; "年后"; "世界人口达"; p
End Sub