VB复习题

11.当发现了死循环，如何终止循环 答：按ctrl+break键中断程序

12.如何在程序中设置断点？如何去除断点？

答：设置断点的方法是将光标移到要设置断点的代码行，按F9或单击调试工具栏的”切换断点”按钮。设置断点后，代码窗口将以粗体形式突出显示选定行，并在该行显示一个圆点符号，以指出该代码行使一个断点。

清除断点的方法是将光标移到要删除断点的代码行，按F9或单击调试工具栏的”切换断点”按钮，代码左侧的大圆点消失，表示该断点清除。 12.当在编辑程序时，程序代码以红色显示，是什么错误？ 答：编辑错误。

二、填空题

1.下面程序运行后的结果是22和484该程序的功能是用相减法求x,y的最大公约数和最小公倍数

Private Sub Command1_Click() Dim x%, y%, z% x = 242 ：y = 44 z = x * y

Do Until x = y

If x > y Then x = x - y Else y = y - x Loop

Print \最大公约数\最小公倍数\End Sub

2.给定年份，下列程序用来判断该年是否为闰年。（提示：闰年的条件是年号可以被4整除但不能被100整除，或者被400整除） Private Sub Command1_Click() Dim y%

Y=inputbox(“请输入年号”)

If (y mod 4=0 and y mod 100 <>0) or (y mod 400=0) then Print “是闰年” Else

Print “是普通年份” End if End sub

3.下列程序完成如下功能：以文本框Text1的值为n，计算1！+2！+3！?n!的

…. Loop while <条件>

值。

Private Sub Command1_Click()

N=val(text1) Sum=1:t=1 For i=1 to n

T=t*i

Sum=sum+t Next i

Print “1！+2！+3！?+”;n;”!的值为”；sum End sub

4.找出被3、5、7除，余数均为1的最小的5个正整数。 Private Sub Command1_Click() Dim countn%,n% Countn=0 N=1 Do

N=n+1

If n mod 3=1 and n mod 5=1 and n mod 7=1 then Print n

Countn=countn+1 End if

Loop untilcountn=5 (或Loop while countn<5) End sub

5.某次大奖赛，有7个评委打分，下列程序对每一位参赛者输入7个评委的分数，去掉一个最高分，去掉一个最低分，求出的平均分就是该参赛者的最后得分。 Private Sub Command1_Click()

Dim mark!,aver!,i%,max1!, min1! Aver=0

For i=1 to 7

Mark=inputbox(“输入第” & I & “位评委的打分”) If i=1 then

Max1=mark:min1=mark Else

If mark

Min1=mark Elseif mark>max1

Max1=mark End if End if

Aver=aver+mark Next i

Aver=(aver-max1-min1)/5

Print aver

End sub

6.有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。（提示：阶梯数一定是7的倍数）

Private Sub Command1_Click()

Dim n%,m%

For n=7 to 10000 step 7

If n mod 2=1 and n mod 3=2 and n mod 4=3 and n mod 5=4 and n mod 6=5 then

Print n Exit for End if Next n End sub

一、问答题

1.在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组默认下界？ 答：Option Base 语句。

2. 要分配存放12个元素的整型数组，下列数组声明（下界若无，按默认规定）哪些符合要求？（见P124） 答：（2）、（4）、（7）、（8）

3.程序运行时显示“下标越界” 可能产生的错误有哪几种情况？ 答：下标比下界小或者比上界大。

4.已知下面的数组声明，写出它的数组名、数组类型、维数、各维上下界、数组的大小、并按行的顺序列出个元素。 Dim a(-1 to 2,3) as single

答：数组名：a，数组类型：单精度型，维数：二维，一维下界-1，上界2，二维下界0， 上界3 ，数组大小4×4共16个元素，各元素为：（-1，0）（-1，1）（-1，2）（-1，3）（0，0）（0，1）（0，2）（0，3）（1，0）（1，1）（1，2）（1，3）（2，0）（2，1）（2，2）（2，3） 3.简述静态数组与动态数组的区别。 答：静态数组的下标必须是常数且程序运行中数组大小不可改变。动态数组的下标则可以是已赋值的变量，动态数组声明时不给大小，以后用redim语句指定数组大小。 4.简述使用课件数组的优点和方法。

答：优点是多个控件数组元素共享同一事件过程，程序简洁；方法是在程序运行过程中添加（Load）或删除（Unload）数组控件数组元素 5.已声明了静态数组A（3,4），能否在下面再用重新定义动态数组A（4,4）来重定义A数组的大小？ 答：不能

6.使用Redim语句可以改变数组类型吗？

答：Redim语句可以反复地改变数组的元素以及维数的数目，但是不能将一个数组定义为某

种数据类型之后，再用redim将该数组改为其它类型。 8、简述列表框和组合框的异同处。

答：相同之处都是可以存放字符串；不同处在于组合框是文本框和列表框的组合，可以输入内容，但要通过AddItem方法添加；列表框只能选择项目，不能直接输入内容。 9.列表框或组合框中选中的项目、总项目数的属性分别是什么？ 答：表示选中的内容，属性有：Text; 总项目数的属性是Listcounts 10.声明一个有20个元素的一维字符类型数组，要求：（见P124习题五-6） 答：见已给资源（实验代码参考2的习题五-6）

二、填空题

（1）在VB中，若要设定每个数组默认的下界固定为1，其声明语句是 Option Base 1 （2）程序中自动测试数组的下界用Lbound 函数来实现，上界用Ubound 函数实现

（3）在运行时load 语句可以为控件数组增加控件元素；unload 语句删除一个存在的控件元素

（4）当数组首次被声明时，对所有的数值型数组默认初值是 0 ；字符数组默认初值是空串 （5）当用Redim语句改变动态数组大小时，数组元素的值会丢失；用Preserve 关键字可以保留数组元素原来的值。

（6）已知建立了5个元素的Command1控件数组，用Index 参数可识别用户单击了某控件数组元素

（7）下面程序的功能是从键盘输入6个整数，找出最大数和最小数所在位置，并将两者对调，然后输出调整后的6个数。 Private Sub Form_Click()

Dim a%(5), max%, min%, imin%, imax%, i%, t%

For i = 0 To 5 ?从键盘上输入6个数 a(i) = InputBox(\输入\Next i imin = 0 ?第一个数组元素的下标（0）为最小数下标 imax = 0 ?第一个数组元素的下标（0）为最大数下标 For i = 1 To 5 ?找出最小数和最大数所在位置的下标 If a ( I ) < a (imin) Then imin = i If a ( I ) > a (imax) Then imax = i

Next i

t = a(imax) ?进行两数互换 a(imax) = a(imin) a(imin) = t For i = 0 To 5 ?输出调整后的6个数 Print a(i);

Next i End Sub

（8）下面程序对已知数组a，删除数组中数组元素中某个元素 Private Sub Command1_Click()

Dim a(), key%, j%

A=array(1,6,8,3,5,9,10,2,7,4)