赋值语句
注释语句:VB中用'和rem来标识一条注释语句.
条件分支结构:if 语句
循环语句
END语句
VB赋值语句
包括两种:一种用来对一般的变量进行赋值的赋值语句,用关键字LET描述,但一般都省略.另一种是用来对对象的变量进行赋值的赋值语句,用关键字SET描述,不能省略.
格式:[let]变量或属性=表达式 set 变量(对象)=表达式
VB注释语句
引入目的:为程序的阅读和修改提供信息,提高程序的可读性和可维护性.
注释方法有两种:'或REM关键字.
二者区别:在一行中做注释时,REM必须使用:与前面的语句隔开,撇号则不必.
条件分支——IF语句
第一种格式:if 条件 then
语句
enD if 如果条件为true,则执行"语句",否则执行enD if后面语句.
第二种格式:if 条件 then
语句
else
语句
enD if
IF语句的第三种格式
If 条件1 then
语句1
else if 条件2 then
语句2
else
语句3
enD if 如果条件1为true,则执行语句1,如果为false,则检查条件2,如果条件2为true,则执行语句2,如果条件2为false,则执行语句3.
条件语句——select case语句
格式: select case 测试表达式
case 条件1
语句1
………
case else
语句
enD select
VB将测试表达式的值与此同时结构中的每个case的值进行比较,如果相等,就执行与该case 相关的程序段,如果都不等,则执行case else所对应的程序段.
Case 语句举例一
用select case…….语句判断0-9范围内整树的奇偶性.
select case Num_ten
case 0,2,4,6,8
print "偶数"
case 1,3,5,7,9
print "奇数"
enD select
循环语句:Do……Loop语句
第一种格式:Do While 条件式
[程序段]
Loop
当条件为true时,循环继续,直到条件变为False为止.
示例一
Private Sub Form_Click()
Dim I As Integer
I=1
Do While I5
Print I
I=I+1
Loop
EnD sub
Do……Loop第三种格式
Do
[程序段]
Loop While 条件式
当条件式为true时,循环继续进行,直到条件式变为false为止.
示例三
Private Sub Form_Click()
Dim I As Integer
I=6
Do
Print I
I=I+1
Loop While I5
EnD Sub
For …Next 语句
语法规则:
For 计数器=初值室 To 终值 [step增量]
语句
[If 条件式 Then Exit For]'特定条件下退出
语句
next [计数器]
示例:P69
For Each …Next
For each 元素In 数组或集合
[程序段]
[IF条件式Then exit for]'特定条件下退出
[程序段]
next [元素]
这里的元素变量只能是variant类型或对象类型.
使用时应注意的问题
与for…next的区别在于前者是对于指定集合或集合中的每个元素重复执行某个程序段,而后者使用计数器变量控制循环过程.
每次循环时,元素变量所代表的是数组中当前元素的值,而不是元素本身.
示例
For Each I In Form1.Controls
I.EnableD=False
Next I
While…… WenD语句
While 条件式
程序段
wenD
如果条件式为true,则所有的语句都会执行,一直执行到wenD语句.然后再回到while语句检查条件式,如果条件式为true,则重复执行.如果不为true,则wenD之后的语句继续执行.
Do Events函数与闲置循环
在WinDows 的多任务环境下,就算有程序运行在运行一个长时间循环,其他应用程序也会分到CPU时间,但是该程序在运行循环时,对该程序中的其它事件不作响应.
因此,我们在写程序时,"事件过程"不宜写的太长,更不可以有太长的循环.如果要用长的循环,又要避免能够及时响应其它事件的发生,只有采用两种方法:其一,使用DoEvents函数;其二,写成"闲置循环".
DoEvents 函数
DoEvents 函数将控制权转交给操作系统,以便让系统有机会去检查是否有其他事件需要提供服务,他的语法说明如下:
语法:DoEvents( )
DoEvents 函数会返回 VB应用程序中打开窗体的数目.
NumForms = DoEvents( )
DoEvents 会将控制权传给操作系统.当操作系统处理完队列中的事件,并且在 SenDKeys 队列中的所有键也都已送出之后,返回控制权.
闲置循环
对VB 应用程序来说,事件之间的时间叫做"空闲时间".在"空闲时间"里,VB 自动将控制权交还给WinDows.当某个应用程序中的一个事件发生时VB 再为它向WinDows 请求CPU时间.
如果你想编一个只在"空闲时间"里执行的循环,在代码模块中使用SubMain过程,使应用程序马上开始执行程序(而不必等待窗体上发生事件).
