《Visual Basic程序设计》第二章任务练习

《Visual Basic程序设计》第二章任务练习

任务五：改变窗体的颜色

知识点：

Visual Basic 6.0的选择语句包括单行形式和块形式 （1）单行形式的IF语句格式：

If 条件 Then [语句组1][Else 语句组2] 功能是：如果条件成立时（为True），执行Then后面的语句组1，否则，执行Else后面的语句组2。“Else 语句组2”可以省略 （2）块形式的IF语句格式： 格式一：（针对双分支） If 条件 Then

语句块1 ［Else

语句块2］ End If

分支过多时可以用格式2 If <条件1> Then [语句块1]

[ElseIf <条件2> Then [语句块2] .

[ElseIf <条件3> Then [语句块3] . . . [Else

[语句块n]] End If

块形式的IF语句的执行流程是：如果“条件1”为真，则执行“语句块1；否则，如果”条件2“为真时，则执行”语句块2“；……；如果条件都为假，则执行”语句块N。

提醒：一定注意格式，不要出错 （3）IIf函数

格式：Result=IIf(条件,True部分,False部分) 功能：

变量Result用于保存IIF的返回值，条件为逻辑表达式：当条件为True时，计算并返回True-部分的值；当条件为False时，计算并返回False-部分的值 课堂练习：

1、下列程序段的执行结果为 A=2 B=5

If A * B < 1 Then B=B - 1 Else B=-1 Print B - A > 0

A、 True B、 False C、 –1 D、1

1

2、下列字符中，____字符最大，____字符最小。

A、 1 B、 Z C、 * D、a 3、X$=iif(“123”<”abc”,”123”,”abc”)执行后，X$的值是______ 4、在块结构的If语句中，必须以一个End If语句结束。 二、用VB语句来描述下列的命题 1、用行IF的单分支语句

1）、如果A大于B则Y的值是A+B

2）、如果A大于等于0就把A的平方赋给B

2、用块IF语句来描述 1）、如果X小于0，那么Y的值是-1，如果X等于0，那么Y的值是0，如果X大于0，那么Y的值是1

2）、如果X等于0，那么Y的值是0，如果X小于0，那么Y的值是-1，否则Y的值是1

二、下列程序的运行结果是？ 1、Private Sub Form_click() a = 1: b = 3 c = 2 * a - b

a = IIf(c < a, a - 1, b) + 1

If a * 2 - 1 <= 10 Then b = 2 * b + c If 3 * b > a Then a = a + 1 c = c - 1 Else

a = a - 1 End If

Print a, b, c End Sub

2、Private Sub Form_click() Show

a = 1: b = 3

If a * 4 - 1 >= b Then

If b > 5 Then b = b + 1 ElseIf b > 2 Then b = b - 1 Else

b = b + 2 End If

b = IIf(a = b, b + 1, b - 1) Print b

2

End Sub

任务六 值班情况查询

Select Case语句根据测试表达式的值，从多个语句块中选择一个符合条件的语句块执行。语法格式如下： Select Case <测试表达式> Case 表达式列表1 语句块1

[Case 表达式列表2 语句块2] . . . [Case Else 语句块n] End Select 说明：

（1） 其中测试表达可可以是数值或字符串表述式，每个“表达式列表”可以是

一个表达式，一组用逗号分隔的枚举值（如1,2,3）、表达式1 to表达式2（如1 TO 5），IS 关系运算符表达式（如IS<3）

（2） Select Case语句执行的流程是：对测试表达式进行测试并检查表达式列表

1,若为真，则执行语句块1并结束选择，若为假，继续检查下一个条件，如果都不为真，则执行语句块N，如果没有语句块N，则什么也不做就结束选择。 课后练习：

(1) 下列程序段的执行结果为 a=1 b=0

Select Case a Case 1

Select Case b Case 0

Print \ Case 1

Print \ End Select Case 2

Print \End Select

A、 * *0* * B、 * * 1* * C、 * *2* * D、 0 2、下面程序段执行结果为

x=4

Select Case x Case 5

Print \ Case 4

Print \

3

Case 3

Print \ Case Else Print \End Select

A、 excellent B、 good C、 pass D、 fail 3、下面程序段执行结果为

x=3

Select Case x Case 5

Print \ Case 4

Print \ Case 3

Print \ Case Else Print \End Select

A、 excellent B、 good C、 pass D、 fail 4、以下Case语句中错误的是

A、Case 0 To 10 B、 Case Is>10

C、 Case Is>10 And Is<50 D、 Case 3, 5, Is>10

任务7 棋盘上的麦粒数

1. For循环结构

For循环用于重复执行一行或数行代码，语法格式如下： For 循环变量=初值 To 终值 [ Step 步长 ] [ 循环体 ] [ Exit For ] [ 循环体 ] Next [ 循环变量 ] 说明： （1）、For与Next必须成对出现，Next后面的循环控制变量可省略，但必须与For中的循环控制变量一致。 （2）、For与Next之间的语句行被称为循环体。 （3）、初值、终值和步长为数值型表达式。 （4）、For 语句首先计算初值、终值和步长的值，并将初值赋给循环控制变量。 （5）、判断循环控制变量是否超过终值。

是：跳过循环体及Next语句，执行NEXT后面的语句序列。（不执行循环体） 否：执行循环体一次。 （6）、上述超过的概念包含两种情况。

初值 <= 终值时：步长应为正值，当循环控制变量大于终值即为超过。 初值 >= 终值时：步长应为负值，当循环控制变量小于终值即为超过。 （7）、［Exit For］通常用在选择语句中，用于提前结束循环，即跳过Next语句，

4

执行next后面的语句序列。 （8）、 Next语句将（循环控制变量+步长）的值再次赋给循环控制变量，然后回到步骤（5）。 （9）、步长是循环变量的增量，其值可为正可为负，但不能为0。步长为1时，Step步长部分可省略。 补充：

循环次数

?Int(终值?初值步长?1)

示例1 求S = 1 + 2 + 3 + … + 8 Private sub form_click() Dim s as integer, k as integer

s = 0

For k = 1 To 8 s = s + k Next k

Print \End sub

程序运行结果如下： s＝36

例2 计算1~100的奇数和，程序段如下： Dim i %, s%

s=0 For i = 1 To 100 step 2

s = s + i Next i

print “s=“;s 二、while循环形式 （1）格式

While 条件 [语句块] Wend (2)功能：

当条件成立(为真)时，执行循环体；当条件不成立(为假)时，终止循环 （3）功能及说明

While与Wend必须成对出现。

While与Wend之间的语句块是循环体。 条件用逻辑表达式描述。

While语句计算描述条件的用逻辑表达式，当其为True时，执行循环体。 遇到Wend 语句，返回对应的While语句。

当条件为False，结束循环，跳过Wend语句，执行后续语句。 练习：

1、FOR循环可以没有循环体。

5

2、FOR和NEXT必须成对出现，缺一不可

3、在某种情况下，FOR语句中的“循环变量”与NEXT语句中的“循环变量”可以不是同一变量

4、在FOR/NEXT语句中，当步长为正时，终止循环的条件是__________,当步长为负时,终止循环的条件是__________. 5、“For k=________To -11 Step -3”的循环体循环50次。 6、假设有以下程序段： For I = 1 To 10 Step 3 For j = 15 To 3 Step -4 Print i*j Next j

Print s，i，j

则语句Print i*j 的执行次数是 ，执行后i的值为 ，j的值为 。

7、写出下列程序的输出结果 for j=1 to 15

a=a+j mod 3 next j print a

____________________ 8、写出下列程序的输出结果 for k=1 to 3

if k<=1 then a=2*k if k<=2 then a=2*k+1 if k<=3 then a=k print k;a next k

____________________

任务8 计算阶梯问题

Do循环语句 格式一

Do [While|Until<循环条件>]

[ 语句块 ] [ Exit Do ]

[ 语句块 ]

Loop

格式二 Do

6

执行过程：先检查循环条件，如果 循环条件符合执行循环的要求（选用WHILE时条件为true;选用until时条件为false），则执行语句块，否则（选用WHILE时条件为false;选用until时条件为true ），退出循环。

[ 语句块 ]

[ Exit Do ] 环条件，如果循环条件符合执行循环 [ 语句块 ] 的要求（选用WHILE时条件为true;Loop [While|Until<循环条件>] 选用until时条件为false），则执行语 句块，否则（选用WHILE时条件为 false;选用until时条件为true ），退出执行过程：先执行语句块，后检查循循环。

说明：

（1）当使用While<条件>构成循环时，当条件为“真”，则反复执行循环体，当条件为“假”，则退出循环。

（2）当使用Until <条件>构成循环时，当条件为“假”，则反复执行循环体，直到条件成立，即为“真”时，则退出循环。

3）在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立（或成立），最后达到退出循环。

（4）语句Exit Do的作用是退出它所在的循环结构，它只能用在DO/Loop结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。 练习：

1、执行下列程序段后，变量t 的值是______。 t = 0 For x = 2 To 3 n = 1

Do While n<=x t = t + n n = n + 1 Loop Next x A、 8 B、 9 C、10 D、 11 2、执行下列程序段后，显示的结果是______ s = 0

For m = 1 To 4 Step 2 n = 1

Do While n<=m s = s + n n = n + 1 Loop Next m

Print s + m + n

3、运行下面程序后，循环体执行了______次。 i = 0: n = 1

Do While i < 32

i = (i + 1) * (i + 1) n = n + 1 Loop

7

Print n

A、 2 B、 3 C、4 D、5

4、在窗体上画两个文本框Text1 和Text2，一个命令按钮Command1,请阅读以下程序段

Private sub Command1_click() X=0

Do until x>=30 X=(x+2)*(x+4) N=n+1 Loop

Text1.text=str(n) Text2.text=str(x) End sub

运行程序后，单击命令按钮，在两个文本框中显示的值分别为______ A、1 和0 B、2 和120 C、2 和240 D、4 和168 5、 设有下面的循环：

i=0

While i <=1 i=i + 3 Print i Wend

则运行后的输出结果是

A、 1 B、 2 C、 3 D、 4

任务9 分析蛋糕销售情况

知识点：

一、数组的概念 1、数组、数组元素

数组：使用同一名字、不同下标表示的、顺序存储的一组变量。

数组名就是这个区域的名称，区域的每个单元都有自己的地址，下标指出每个单元在该区域的位置。在实际应用中，可以使用数组来处理同一类型的成批数据，例如商品的零售记录等

2、数组的类型：基本数据类型，对象类型

3、数组的维数：数组的下标个数，几个下标为几维数组，最多60维。 4、 定长数组

Dim 数组名([下标下界 To ]下标上界[,下标下界 To 下标上界 ]) [ As 数据类型] dim private static

在窗体模块、标准模块或过程 在窗体模块、标准模块或过程 在过程中声明定长数组 8

public 在标准模块声明全局数组 下标：[下界 To ] 上界 省略下界为0 ,必须为常数。 每一维大小：上界－下界+1 数组大小（元素个数）： 每一维大小的乘积 5、 默认数组

在Visual Basic中，允许声明默认数组，即数据类型为Variant的数组： Static Vari(1 To 100) 6、数组的初始化

数组名 = Array(数组元素值)

使用Array函数给数组赋初值时，数组变量只能是Variant类型。Array只适用于一维数组，不能对二维或多维数组赋值。 7、数组的清除

Erase 数组名[,数组名]…… 二、说明：

1、DIM语句必须放在使用数组之前，遵循先声明后使用的原则 2、格式中的数组名可是任意合法的变量名

3、数据类型可以是基本的数据类型，也可是变体型，若省略AS子句，则定义的数组为变体型。

4、定义的数组，数组中的全部元素初始化为0，字符型数组初始化为空字符串 5、下标下界和下标上界表示该维的最小和最大下标值，通过关键字TO连接起来，代表下标的取值范围，下标的范围可以是不超过Long数据类型的范围，如果省略下界默认为0，如果希望下标下界为1，可以通过option base 1该语句必须出现在窗体层或模块层的说明部分。

6、数组有一个下标为一维数组，有两个或多个下标，称为二维数组或多维数组，数组的维数最多为60

7、不能使用DIM语句对已声明了的数组进行重新声明 8、在同一过程中，数组名不能和变量名同名

9、在声明数组时，每一维元素的个数必须是常数，不能是变量和表达式 10、数组的下界必须小于数组的上界 例1：Dim mark(1 to 100) As Integer

例2：Dim lArray( 0 To 3， 0 To 4) As Long 共有 4×5个元素 等价于: Dim lArray(3， 4) As Long 三、数组元素的赋初值 (1)用循环

For i = 1 To 10 iA(i)=0

Next i (2) Array函数

Dim ib As Variant

ib = Array(\

9

For i = 0 To UBound(ib) Print ib(i); \ Next i 注意：

1、利用Array对数组各元素赋值，其类型只能是variant。 2、数组的下界Lbound，上界通过函数Ubound获得。 四、数组的清除

Erase 数组名[，数组名]……

用来重新初始化定长数组的元素，或者释放动态数组的储存空间 五、数组中常见错误和注意事项 1.静态数组声明下标出现变量

n = InputBox(\输入数组的上界\ Dim a(1 To n) As Integer 2．数组下标越界

引用的下标比数组声明时的下标范围大或小。 Dim a(1 To 30) As Long, i% a(1) = 1: a(2) = 1

For i = 2 To 30

a(i) = a(i - 2) + a(i - 1) ‘a(0)不存在 Next i 3．数组维数错

数组声明时的维数与引用数组元素时的维数不一致。 Dim a(3, 5) As Long a(i)=10 练习：

一、 选择

1、语句Dim Arr(-3 to 5) as integer定义的数组的元素个数是______ A、6 B、7 C、 8 D、9 2、语句dim arr(3 t0 5 , -2 to 2) 定义的数组的元素个数是______ A、20 B、15 C、12 D、24

3、设有数组定义语句： Dim a(5)as integer,并设List1为列表框控件，下列给数组元素赋值的语句错误的是______

A、a(4)=3 B、 a(4)=inputbox(“输入一个数”) C、 a(4)=List1.listindex D、 a=array(1,2,3,4,5,6,)

4、使用数组声明语句Dim Y(1 to 12) as integer后，以下说法正确的是______ A、Y数组中的所有元素值均为0 B、Y数组中的所有元素值不确定 C、Y数组中的所有元素值均为Empty

D、运行Erase Y后，Y数组中的所有元素值均empty 5、、使用Array函数给某X赋值时，X必须是______ A、已经声明的静态数组 B、Variant类型变量 C、已经声明的动态数组

D、已经声明的动态数组且该动态数组的类型为Variant

10

6、、可以通过______ 的方法来输出一个二维数组中的各个元素 A、引用数组的一个下标 B、引用数组的两个下标 C、将数组名赋值给变量 D、以上都不正确 7、以下______是VB合法的数组元素表示

A、X[10] B、X（I+1） C、X10 D、 X（1 to 10） 8、执行以下语句过程，在窗体上显示的内容是

Option Base 0

Private Sub Command3_Click() Dim d

d=Array(\Print d(1) ; d(3) End Sub A、 ab B、 bd C、ac D、 出错

9、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option Base1

Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0

For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5

For i=1 To 5

If a(i)>x Then Print a(i); Next i End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A、1 2 B、1 2 3 C、3 4 5 D、4 5 二、填空

1、在VB中，把一组具有相同 、不同 的变量称为数组。 2、在计算机中，数组占据一块连续的内存区域， 就是这个区域的名称，区域的每个单元都有自己的地址， 指出每个单元在该区域的位置。 3、在VB中，用来声明数组的语句有 、 、 和 。 4、在定义数组时，下标的范围可以是不超过 数据类型的范围。如果省略了“下标下界To”，数组默认下界为 ，如果希望下标从1开始，可以通过 语句来设置。

5、数组的维数最多可以有 维。

6、用Dim声明数组时，在默认情况下，数组下界为 ，如果需要数组下界为1，可以在通用声明中，使用 项加以说明。

7、我们利用函数 及 能分别求出数组的下、上界。

8、假设Dim a（8）As Double，则该数组声明了9个元素可供使用。如果设Dim b（4，1 to 9）As Single，则它声明了一个具有 个元素的 维数组。

11

9、用Dim语句定义数组时，数值数组中的全部元素初始化为 ，字符串数组中的全部元素初始化为 。

10、利用Array（）函数给数组元素输入初值，数组应该声明为 数组，数组的数据类型为 类型。 三、判断

1、可以使用Lbound和Ubound这两个函数确定数组的大小。 2、Array只适用于一维数组和二维数组赋值，不适合多维数组赋值。 3、使用Array函数给数组赋初值时，数组变量只能是Variant类型。

4、把Erase语句用于定长数组时，不释放数组的所有空间，只是清除数组的内容。

任务10 统计家庭支出情况

知识点：

1. 动态数组（概念）

动态数组是指计算机在执行过程中才给数组开辟存储空间的数组，可以用ReDim语句再次分配动态数组占据的存储空间，也可以用Erase语句删除它，收回分配给所占存储空间。动态数组可以用变量作为下标值，在程序运行过程中完成声明，动态数组可以在任何时候改变大小。 2、创建动态数组通常分为两步：

首先在窗体级别、标准、模块或过程中，用Dim语句（模块级数组）、Public语句（公用数组）、Private或Static（局部数组）声明一个没有下标的数组（括号不能省略），然后在过程中用ReDim语句定义带下标的数组。 3、ReDim语句：

ReDim [Preserve] 变量(下标,下标) As 数据类型名称 说明：

1、可以用redim语句在过程内直接声明数组，用redim重新声明只能修改数组中元素的个数，不能修改数组的维数

2、用private、public或dim语句声明过的已经用带空圆括号（没有维数下标）的动态数组，在一个程序中，可以根据需要使用redim语句修改数组的维数或元素的个数，但不能修改数据的类型

3、重新分配动态数组时数组中的内容将被清除，如果在redim语句中使用了Preserve选择项，则保留数组内容

4、redim语句只能出现在事件过程或通用过程中，用它定义的数组是一个临时数组，即在执行数组所在的过程时为数组开辟一定的内存空间，当过程结束时，这部分内存立即被释放 4、区别静态数组和动态数组

1、 两种形式的数组：静态数组和动态数组

静态数组(前面介绍的)是指数组元素的个数固定不变；动态数组的元素个数，在程序运行时可以改变

动态数组可以在运行过程中改变数组的大小，提高存储区的使用效率 2、 建立动态数组

12

用ReDim语句重新定义带下标的动态数组 3、 数组刷新语句

Erase语句用来清除静态数组的内容，或者释放动态数组占用的内存空间 5、访问数组的方法

建立一个数组之后，可以对数组或数组元素进行操作，数组的基本操作包括输入、输出及复制，这些操作都是对数组元素进行的。

I、数组的引用。引用数组元素的方法是，在数组名后面的括号中指定下标，引用数组时应注意以下几点 （1）、引用数组元素是在数组名后的括号内指定下标 （2）、在引用数组元素时，数组名，类型和维数必须与声明数组时一致 （3）、如果建立的是二维或多维数组，那么在引用时必须给出两个或多个下标

（4）、引用数组元素时，要注意下标值要在声明的范围之内 II、访问数组的常用方法 （1）、当数组较小或者只需要对数组中的指定元素操作时，可以通过直接引用数组来实现对数组指定元素的操作 （2）、对于元素较多的一维数组，通常采用一重循环来实现对数组各个元素的遍历 （3）、对于元素较多的二维数组，通常采用二重循环来实现对数组各个元素的遍历 （4）、对于多维数组，通常采用多重循环来实现对数组各个元素的遍历 课后练习

一、 填空

1、创建动态数组通常分为两步：首先在窗体级别、标准模块或过程中 ，然后在过程中 。

2、如果用ReDim重新声明动态数组只能修改 ，不能修改 。 3、使用ReDim语句重新分配动态数组时，数组中的内容将被清除，如果在ReDim语句中使用了 选择项，则保留数组内容。

4、使用Redim语句 改变数组类型，在Redim语句中加了Preserve关键字，对重定义数组的限制是 。

5、如果想释放动态数组的存储空间或清除定长数组的内容，可以用 语句来实现，语法格式为： 。

6、Erase语句的功能是： 或 。

7、.当把Erase语句用于动态数组时，将删除整个数组结构并释放该数组所占有的内存，下一次使用需要重新用 语句定义。 二、选择

1、使用Redim Preserve语句，可以______

A、改变数组最后一维的大小 B改变数组第一维的大小

C、改变数组所有维的大小 D、改变数组维数和所有维的大小 2、下列哪个声明的数组不是动态数组______

A、 Dim x() B、 dim x(8)

C、redim x(8) D、 Redim Preseerve X(8) 3、可以通过______ 的方法来输出一个二维数组中的各个元素 A、引用数组的一个下标 B、引用数组的两个下标

13

C、将数组名赋值给变量 D、以上都不正确 4、使用ReDim Preserve语句可以 A、 改变数组第一维的大小 B、 清除数组的内容 C、 保留数组的内容 D、 改变数组的维数 5、设有如下程下段：

x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x的值是

A、26 B、27 C、38 D、57 6、下列程序段的执行结果为

a=1 b=2

For I=1 To 3 f=a * b a=b b=f Print f Next I

A、 2 B、2 C、2 D、2 3 4 3 2 6 8 4 8 二判断

（ ）1、动态数组在程序运行过程中完成声明，动态数组可以在任何时候改变大小。

( )2、动态数组是指计算机在执行过程中才给数组开辟存储空间的数组。 ( )3、动态数组可以用ReDim语句再次分配动态数组占据的存储空间。 ( )4、动态数组可以用Erase语句删除，收回分配给它的存储空间。

( 5、创建动态数组时，因为没有维数下标，所以数组名后的括号是可以省略的。

( )6、ReDim语句只能出现在事件过程或通用过程中。

( 7、ReDim语句定义的数组是一个临时数组，即在执行数组所在的过程时为数组开辟一定的内存空间，当过程结束时，这部分内存即被释放。

( )8、使用Array函数给数组赋初值时，数组变量只能是Variant类型。 ( )9、把Erase语句用于定长数组时，不释放数组的所有空间，只是清除数组的内容。

任务11 编写猜宝游戏

知识点：

为了简化程序设计，通常将程序分割成较小的逻辑部件，这些部件称为过程，在VB中过程分为SUB过程（没有返回值）和Function过程（具有返回值）。所有的可执行代码都必须属于某个过程。Sub过程可以放在标准模块或窗体模块中。过程的定义是平行的，不能在过程中定义其他过程

14

1. 事件过程 窗体事件过程：

Private Sub Form_事件名 [(参数列表)] 语句块 End Sub

控件事件过程：

Private Sub 控件名_事件名 [(参数列表)] 语句块 End Sub 2. 通用过程

[Private | Public ] [Static] Sub 过程名 [(参数列表)] [语句块] [Exit Sub] [语句块] End Sub

说明：public公用，用于声明在所有模块中都可以使用的过程

private局部，用于声明只能在包含该声明的模块中使用的过程 static静态，表示在调用SUB过程之间，保留 SUB过程内局部变量的值。

语句块是完成特定功能的程序，可以没有一行，也可以有许多行 EXIT Sub语句可以使程序在一定条件下有一个过程中退出，接着执行调用语句的后继语句

过程名遵循标识符命名规则 3. 参数传递

概念：指主调过程的实参传递给被调过程的形参。 形参和实参对应关系：

1）对应变量名不必相同，但变量个数相等；

2）各实参的书写顺序必须和对应的形参顺序一致，且类型相符。 3）参数表的语法格式：

[Optional] [ByVal | ByRef] [ParamArray] 变量名[( )] [As 数据类型名称] （1）按值传递参数。

形参得到的是实参的值，形参值的改变不会影响实参的值 （2）按地址传递参数。

形参得到的是实参的地址，当形参值的改变同时也改变实参的值。 4. Sub过程的调用

方法一：Call 过程名 [(实际参数)] 方法二：过程名 [实际参数]

5、练习：

一、填空

1、在VB中，过程分为 过程和 过程。

2、使用 声明在所有模块中都可以使用的过程；使用 声明只能在包含该声明的模块中使用的过程。

3、在使用Static关键字声明过程时表示在调用Sub过程之间 。

15

本文来源：https://www.bwwdw.com/article/ipnv.html