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


推荐相关:

国际公法03--0001

国际公法03--0001_法学_高等教育_教育专区。电大2010春法学本科,国际公法形成性考核作业国际公法 03_0001 一、 1. 单项选择题(共 25 道试题,共 50 分。 ) ...


浙江03定额综合解释及补充定额

为推进“计价规范”及 03 版计价依据的贯彻,根据《浙江省建设工程造价计价管理办法》(省 政府第 173 号令)的规定,经研究,现将综合解释(一)、(二)印发给你们,...


国际公法03_0004

国际公法03_0004_其它考试_资格考试/认证_教育专区。国际公法03_0004 国际公法 03_0004 试卷总分:100 测试时间:60 分钟 ? ? ? 单项选择题 多项选择题 案例...


中央电大《医学免疫学与微生物学》答案---03任务

中央电大《医学免疫学与微生物学》答案---03任务_药学_医药卫生_专业资料。电大 医学免疫学与微生物学 03 任务一、填空选择题(共 12 道试题,共 100 分。) ...


电大现代汉语专题形成性考核03任务答案

电大现代汉语专题形成性考核03任务答案_文学_高等教育_教育专区。电大现代汉语专题形成性考核 03 任务一、判断题(共 20 道试题,共 20 分。) “他看书”这个句子...


一部电脑同时装了office03和07,如何更改office03和07的默认打开方式

一部电脑同时装了office03和07,如何更改office03和07的默认打开方式_电脑基础知识_IT/计算机_专业资料。更改office03和07的默认打开方式同时...


WINDOWS SERVER 2003安装序列号

文档贡献者 孟塬小学 贡献于2011-03-09 1/2 相关文档推荐 Tecal V2服务器安装Wind... 30页 3下载券 Windows Server 2003 x6... 3页 1下载券 Windows ...


电大建设监理03任务0001-0008、0024、0017、22

电大建设监理03任务0001-0008、0024、0017、22_建筑/土木_工程科技_专业资料。今日推荐 157份文档 2015国家公务员考试备战攻略 2015国考行测模拟试题及历年真题 2015...


劳动与社会保障法03任务001

劳动与社会保障法03任务001_司法考试_资格考试/认证_教育专区。03 任务_0001 一、单选题 1. 对担任营级职务的军队转业干部按照计划分配工作,但军龄的年限要求是(...


2013年《电算化会计》03任务-总账初始化

2013年《电算化会计》03任务-总账初始化_经济学_高等教育_教育专区。考核03总账初始设置 参考【考核要求】 以账套主管“11 王方”的身份进行总账初始设置。 操作...

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