tceic.com
学霸学习网 这下你爽了
相关标签
当前位置:首页 >> 英语 >>

03


VB补充内容

1. 当型循环结构
格式: – While 条件
语句块 条件为真?

N

– Wend 功能: – 首先判断条件,当条件为 真时,反复执行语句块, 当遇到Wend时,返回到 While对条件进行测试;当 条件不为真时,转到Wend 之后执行。

Y


语 句 块

2014年3月

Visual Basic程序设计

No.2

例1. 利用当型循环编程求n! . 代码如下: Private Sub Form_Click() Dim f As Long Dim n As Integer, i As Integer n = Val(InputBox("请输入自然数n")) f = 1& i=1 While i <= n f=f*i i=i+1 Wend Print n; "!="; f End Sub
2014年3月 Visual Basic程序设计 No.3

例2 从键盘上输入字符,对输入的字符进行计数,当输入字符为“?” 时,停止计数,并输出结果。 代码如下: Private Sub Form_Click() Dim char As String * 1 Const ch$ = "?" Counter = 0 msg$ = "请输入一个字符" char = InputBox(msg$) While char <> ch$ Counter = Counter + 1 char = InputBox(msg$) Wend Print "字符个数为:"; Counter End Sub
2014年3月 Visual Basic程序设计 No.4

2. 数组的清除
数组一经定义,就在内存中分配了相应的存储空间, 其大小是不能改变的,即在一个程序中,同一个数 组只能定义一次。 有时候可能需要清除数组的内容或对数组重新定义, 这个可用Erase语句来实现,其格式为: Erase 数组名[, 数组名] …… – 说明:
该语句用来初始化静态数组的元素,如果是动态数组, 则释放其存储空间

2014年3月

Visual Basic程序设计

No.5

注意: – 如果把Erase用于静态数组时,如果数组是数值 型数组,则把所有数组元素变为0;如果是字符 串数组,则把所有元素变为空字符串;如果是用 户自定义数据类型的数组,则根据该类型中每个 具体数据项重新进行设置。 – 如果把Erase用于动态数组,则释放该数组所占 用的内存。 – 如果把Erase用于变体数组,则每个元素的值为 Empty。 – 用Erase清除掉的动态数组,在下次使用该数组 时,必须用ReDim重新定义该数组。
2014年3月 Visual Basic程序设计 No.6

例3. Erase语句功能示例。
Private Sub Form_Click() Dim test(1 To 20) As Integer For i = 1 To 20 test(i) = i Print test(i); Next i Erase test Print Print "清除后的数组Test:" For i = 1 To 20 Print test(i); Next i End Sub

2014年3月

Visual Basic程序设计

No.7

3. For Each…Next语句
与For…Next语句类似,但主要用于数组或对象集合的反 复操作。 格式: For Each 成员 In 数组

循环体 [ Exit For ] ……
Next [成员] 说明: – 这里的成员是一个变体变量,实际上代表数组中的每个 元素。 – 数组只给出名称,不给括号和下标。 – 不能利用成员来改变数组元素的值。
2014年3月 Visual Basic程序设计 No.8

例4. For Each … Next 语句示例。
Private Sub Form_Click() Dim a(1 To 20) Randomize For i = 1 To 20 a(i) = Int(Rnd * 100) Next i For Each x In If x > 50 Print Sum = End If a Then x; Sum + x

If x > 95 Then Exit For End If Next x Print
2014年3月 Visual Basic程序设计 No.9

4. 闲置循环与DoEvents语句
VB属于事件驱动型语言,在一般情况下,只有当 发生事件时才执行相应的程序。如果没有事件发 生,则应用程序处于“闲置”状态。 另一方面,如果VB在执行一个事件过程(即应用 程序牌“忙碌”的状态),则必须等待这个过程 执行完毕后,其它过程才能开始。等待执行的过 程必须排队。 为了改变这种状态,VB提供了闲置循环(Idle Loop)和DoEvents语句。

2014年3月

Visual Basic程序设计

No.10

所谓闲置循环,就是程序处于闲置状态时,用一 个循环来执行其他操作。 如果要在循环执行的过程中,可以执行其它操作, 则可以通过DoEvents语句来实现程序控制权的转 让。 例如在射击游戏中,射出的子弹的飞行过程是一 个事件过程,如果没有DoEvents之类的处理机制, 则只有把子弹飞行过程执行完了,其它的物体或 操作才能被处理。但由于可以采用DoEvents,使 得子弹在飞行过程中,计算机仍然可以处理其它 事件,如被射击目标的飞行、躲避,游戏玩家的 连续射击等。
2014年3月 Visual Basic程序设计 No.11

DoEvents用法 – 格式: [窗体号=] DoEvents [( )] – 即DoEvents既可以做为语句使用,也可以做 为函数使用。

2014年3月

Visual Basic程序设计

No.12

例5. 设计如下窗体,事件代码见实例,演示 DoEvents用法。

2014年3月

Visual Basic程序设计

No.13

5. 可选参数与可变参数
1. 可选参数 – 即Sub过程或Function过程的参数是可选的。 – 例: Sub multi(fir as integer, sec as Integer, Optional third) N=fir * sec If Not IsMissing(third) Then N=n*third End If ?n End Sub – 其中的第三个参数third为可选参数。

2014年3月

Visual Basic程序设计

No.14

说明: – 可选参数可以是一个,也可以是多个; – 可选参数必须放在参数表的最后; – 可选参数通过Optional关键字指定; – 可选参数必须是Variant类型; – 可通过IsMissing测试是否传递了可选参 数。

2014年3月

Visual Basic程序设计

No.15

2. 可变参数 – 即参数的个数是可变的。 – 可变参数通过ParamArray命令来定义,格 式为: Sub|Function 过程名(ParamArray 数组名) – 说明:
可变参数中的数组只给名字,不给下标; 数组是变体类型,因此可以传递任何类型参数。 数组也可以是集合

2014年3月

Visual Basic程序设计

No.16

例: Sub Add(ParamArray a()) N=1 For each x in a
N=n*x

Next x ?N End Sub

Private Sub Form_Click() Dim a%, b%, c%, d% A=6: b=8 C=12: d=2 Add a,b,c,d End Sub
Visual Basic程序设计 No.17

2014年3月

点睛培训

2014年3月

Visual Basic程序设计

No.18


推荐相关:

0905_受益人证明03 天华学院 世格外贸

0905_受益人证明03 天华学院 世格外贸_财会/金融考试_资格考试/认证_教育专区。NANJING TANG TEXTILE GARMENT CO., LTD. HUARONG MANSION RM2901 NO.85 GUANJIAQI...


钻芯法检测混凝土强度规程CECS03_2011

工程建设标准化协会标准 钻芯法检测混凝土强度规程 CECS03:2011 、 主编单位:中国建筑科学研究院 批准单位:中国工程建设标准化协会 施行日期:2011 年 1 月 1 日...


水泥厂设备安装验收规范JCJ-03-90

水泥厂设备安装验收规范JCJ-03-90_建筑/土木_工程科技_专业资料。第一章 总则 第一节 主题内容与适用范围及一般规定 第 1.1.1 条 主题内容与适用范围 一、本...


0912_装运通知03

暂无评价 1页 免费 0912 5页 免费 XZ04-03矿石装运须知 暂无评价 2页 1下载券 0912 暂无评价 14页 1下载券喜欢此文档的还喜欢 ...


《工程项目管理》第03章在线测试

《工程项目管理》第 03 章在线测试《工程项目管理》第 03 章在线测试 剩余时间:54:32 答题须知:1、本卷满分 20 分。 2、答完题后,请一定要单击下面的“...


公共关系学任务03_0001

公共关系学任务03_0001_管理学_高等教育_教育专区。电大公共关系学任务03_0001答案公共关系学任务 03_0001 试卷总分:100 测试时间:60 分钟 正确率 76% ?单项选择...


政治经济学(社)》第03章在线测试

政治经济学(社)》第03章在线测试_经济学_高等教育_教育专区。政治经济学(社)》第 03 章在线测试 答题须知:1、本卷满分 20 分。 剩余时间:58:35 2、答完...


word2003的三种页码设置方法

word2003 的三种页码设置方法 在使用 Word 时,经常要根据实际情况来编排页码,那么只要掌握了下面列出的 几种常见页码的编排方法,就可以做到 word 页码随意定: 一...


《建筑工程定额与预算》第03章在线测试

《建筑工程定额与预算》第03章在线测试_工学_高等教育_教育专区。郑大网络教育、习题、答案《建筑工程定额与预算》第 03 章在线测试《建筑工程定额与预算》第 03 ...


云南省03定额计价规则

(%) 3.30 3.24 3.12 计算系数 0.0341 0.0335 0.0322 第四章 单位工程拦标价的确定 在建设工程招投标活动中,为达到合理确定工程造价的目的,充分体现...

网站首页 | 网站地图
All rights reserved Powered by 学霸学习网 www.tceic.com
copyright ©right 2010-2021。
文档资料库内容来自网络,如有侵犯请联系客服。zhit325@126.com