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任务

03任务_教育学_高等教育_教育专区。电大,《金融理论前沿》 03 任务试卷总分:100 测试时间:-? 案例分析题 一、案例分析题(共 1 道试题,共 100 分。) 1. ...


翻译练习03

翻译练习03_英语考试_外语学习_教育专区。CATTI教材文章翻译 The football code 橄榄球比赛准则 Football is an aggressive, rugged contact sport. Only the highest...


商标注册03类细分

除指甲油制剂 030088, 熏衣草水 030090, 带香味的水 030091, 花露水 030092, 脱毛剂 030096, 脱毛制剂 030096, 除汗毛用蜡 030097, 化妆品 030102, 化妆...


03任务

03任务_军事/政治_人文社科_专业资料。03 任务_0007 试卷总分:100 1. 测试总分:94 一、不定项选择题(共 30 道试题,共 60 分。) 我国劳动力市场体系已...


03版论文

前轴轮缘的转矩为 Ma= (4) =857.5 0.2 217 =9303.875N (e)由于机器人的速度为 0.03 ,据线速度公式求前轮的转速。 (5) n= n=2.642 上求的转速...


ENC03使用心得

陀螺仪 ENC03 使用心得 上次做小平衡车的时候用了个陀螺仪(ENC03) ,我把测角度串口调试视屏放网上分享 了,几天前有朋友看过想要那个算法,我就把自己的心得...


土木工程力学03任务_0021

土木工程力学03任务_0021_IT认证_资格考试/认证_教育专区。03任务-002103任务_0021 土木工程力学任务三 一、单项选择题(共 10 道试题,共 30 分。 ) 1. 超静...


福利彩票双色球历史号码2003 - 2013年最新

25+03 04 04 06 15 17 30 31+16 04 01 03 10 21 26 27+06 01 01 09 19 21 23 26+07 01 05 08 09 14 17 23+08 05 05 09 18 20 22 30+...


0912_装运通知03

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


JSY2000-03型数字程控交换机(256型)使用说明书

49 3 第一章 系统介绍 JSY2000—03 型数字程控交换机是我公司采用国际先进技术, 自行开发研制的新一代通 信产品。 设计时充分考虑到我国多数用户资金有限, ...

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