vb习题含答案（大学期末复习资料）.pdf

《vb习题含答案（大学期末复习资料）.pdf》由会员分享，可在线阅读，更多相关《vb习题含答案（大学期末复习资料）.pdf（78页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一章VB.NET环境和程序设计初步一.选择题1.在Visual Sludio.NET的集成开发的环境中，下面不属于该环境编程语言的是（）。A.VB.net B.VC.net C.Pascal D.J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（）。A.工具箱窗口 B.属性窗口 C.解决方案管理器窗口 D.窗体窗口3.在VB.NET中,在窗体上显示控件的文本，用（）属性设置。A.Text B.Name C.EnabledD.Image4.不论何种控件，共同具有的属性是（）。A.Text B.NameC.ForeColor D.Text5.对于窗体，可改变窗体的边

2、框性质的属性 是（）。A.Max Button B.FormBorderStyleC.Name D.Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要 对（）属性进行设置。A.BackColor B.BorderStyleC.ForeColor D.BackStyle7.若要使命令按钮不可操作，要 对（）属性进行设置。A.Enabled B.Visible C.BackColor D.Text8.要使文本框中的文字不能被修改，应 对（）属性进行设置。A.Locked B.Visible C.Enabled D.Readonly9.要使当前F orm l窗体的标题栏显示“欢迎使用VB.N

3、ET，以 下（）语句是正确的。A.Forml.Text=欢迎使用 VB.NET”B.Me.Text=欢迎使用 VB.NET”C.Forml.Name=欢迎使用 VB.NET”D.Me.Name=欢迎使用 VB.NET”10.当运行程序时，系统自动执行启动窗体的（）事件过程。A.Load B.Click C.UnLoad D.GolFocus11.当 文 本 框 的ScrollBars属性设置了非None值，却没有效果，原 因 是（）。A.文本框没有内容B.文本框的MulitLine属性为FalseC.文本框的MulitLine属性为TrueD.文本框的Locked属 性True12.要判断在文

4、本框中是否按了 Enter键，应在 文 本 框 的（）事件中判断。A.TextChanged B.LostFocusC.Click D.KeyPress13.在VB.NE集成环境中创建VB.NET应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（）。A.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口14.当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在（）文件夹下。A.My DocumentsB.VB.NETC.引例D.Windows15.将调试通过后生成的.exe可执行文件放到其他机器上不能运行的主要原因是（）。A.运行的机器上面无VB.NET系统B.缺少

5、.frm窗体文件C.该可执行文件有病毒D,以上原因都不对16.对初学者而言,调试程序方便，有效的手段 是（）。A.在可疑的代码处设置断点，逐语句跟踪B.查看资料C.通过“立即”窗口显示变量的值D.找老师问原因17.在代码窗口，代码下方有蓝色波浪线表示（）。A.对代码设置了格式B.编译语法错误C.逻辑错误D.运行时错误二.填空题1 .VB.NET是完全面向对象的程序设计语言，其最大的特点是。2.技术能让编程人员不必编写代码就可以创建GUI（图形用户界面）。3.是由一个或几个项目组成的VB.NET程序。4.当_ _ _ _ _ _ _ _ _ 特性设置后，浮动窗口将自动隐藏。5.当进入VB.NET

6、集成环境，发现没有显示“工具箱”窗口，应选择 菜单的 选项，使“工具箱”窗口显 示，并 最 好 将 其 窗 口 的 属 性 设 置 为6.要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的 按钮。7.对象属性是指。8.对象的方法是指。9.在刚建立项目时，使窗体上的所有控件具 有 相 同 的 字 体 格 式，应 对 的属性进行设置。10.属性窗口的属性可以按照和 顺序排列。11.当对命令按钮的Im age属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原 因 是 对 属 性 设 置 为12.若已建立了 Forml,Form2两个窗体，默认启动窗体为F o rm k 通过 菜单的

7、的 选项卡，可将启动对象设置为Form213.在文本框中，通过 属性能获得当前插入点所在的位置。14.要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了 的属性为True。15.在窗体上已建立多个控件，如 TextBoxl,Label 1,B uttonl,若要使程序一运行焦点就定位在Buttonl控件上，应 对 Button 1 控件设置 属性的值为。第二章 VB.NET语言基础和顺序结构一.选择题1.在一个语句内写多条语句时，每个语句之 间 用（）符号分隔。A.,B.：C.、D.;2.一语句要在下一行继续写，用（）符号作为续行符。A.+B.-C._D.3.下面属于

8、合法的变量名的是（）oA.X_yz B.123abcC.Integer D.X-Y4.下面属于不合法的整常数的是（）.A.100 B.&0100 C.&H100D.%1005.下面属于合法的字符常数的是（）。A.ABC$B.“ABC C.ABCD.ABC6.下面属于合法的单精度型变量的是（）。A.mun!B.sum%D.xinte$D.m m#7 .下面属于不合法的双精度常数的是（）。A .1 0 0#B.1 0 0.0 C.1 E+2D.1 0 0.0 D+28 .表达式 1 6/4-2 -5 *8/4 M o d 5 2 的值为（）。A .1 4 B .4 C .2 0D.29 .数学关系

9、表达式3 WxVIO表示成正确的 V B.N E T 表达式为（）。A.3 =x 1 0 B.3 =x A N D x =3 O R x 1 0 D.3 =x A N D =0 AN D a+c b+3 O R N O T d的值是5 .I n t(-3.5)、I n t(3.5)、F i x (-3.5).F i x (3.5)、R o u n d(3.5)的 值 分 别 是_ _ _ _、_ _ _ _、_ _、_ _、_ _ _、_ _ _o6.表达式 U C a s e(M i d (a b c d e f g h”,3,4)的值是。7.在直角坐标系中，x、y是坐标系中任意点的位置，用

10、 x 和 y 表示在第一象限或第三象限的表达是。8.要 显 示 当 前 机 器 内 日 期，函数为9.计算离你毕业(假定20 0 8年 6 月 3 0 日毕业)还有多少个星期的函数表达式是10 .表示s 字符变量是字母字符(大小写字母 不 区 分)的 逻 辑 表 达 式 为。11.下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例 如,产 生 24 6,输出是64 2。S u bB u tto n l C l i c k(.)H a n d l e sB u tto n l.C l i c kD i m x,y AsI n te g e rx=I n t()y=(x M

11、 o d1 0)*1 00+x 10 0M s g B o x(x=&x&x y=&y)E n d S u b第 三 章 选择结构选择题1.V B.N E T 提供了结构化程序设计的三种基本结构，三种基本结构是()。A.递归结构，选择结构，循环结构B.选择结构，过程结构，顺序结构C.过程结构，输入输出结构，转向结构D.选择结构，循环结构，顺序结构2.按照结构化程序设计的要求，下 面()语句是非结构化程序设计语句。A.if语句 B.F o r 语句C.G o T o 语句 D.S e l e c t C a s e 语句3.下面程序段运行后，显示的结果是()。D i m x%I f x T h

12、e n M s g B o x (x)E l s eM s g B o x(x+1)A.1B.0C.-1 D.显示出错信息4 .语 句 I f x=l T h e n y=l”下列说法正确 的 是()。A.“x=l”和 均 为 赋 值 语 句B.和“y=l”均为关系表达式C.为关系表达式“y=1”为赋值语句D.“x=1”为赋值语句“y=l”为关系表达式5 .下面程序段显示的结果是()。D i m x%x=I n t(R n d)+5S e l e c t C a s e xC a s e 5M s g B o x (优 秀)C a s e 4M s g B o x (“良好”)C a s e

13、3M s g B o x (“通过”)C a s e E l s eM s g B o x (不通过”)E n d S e l e c tA.优秀 B.良好C.通过 D.不通过6.下 面 I f 语句统计满足性别(s e x)男、职 称(d u ty)为副教授以上、年 龄(a g e)小于4 0 岁条件的人数，正确的语句是()。A.I f s e x=男 An d a g e 0 T h e nT h e nn =n+1l a n g f=8B.I f s e x=男 An d a g e 4 0 An dE l s e l f l a n g 6=“合格”d u ty=教 授 o r d u

14、 ty=副教T h e n授 T h e n n=n+ll a n g f=10C.I f s e x=男 An d a g e 4 0 An dE l s e l f l a n g 6=优秀R i g h t(d u ty,2)=教 授 T h e nT h e nn=n+ll a n g f=15D.I f s e x=男 An d a g e y,x,y)B.I fI f l a n g 4=“优 秀”x y T h e n M a x l=x E l s e M a x l=yT h e n l a n g f=8C.M a x i 二 M a th.M a x (x,y)D.I f

15、I f l a n g 4=“合 格”y=x T h e n M a x i 二 yT h e n l a n g f=4Ma x=xD.I f l a n g 4=“合格”8.下面三个程序设计段计算学生外语附加T h e n l a n g f=4分：外语6 级(l a n g 6)为“优秀”加 15 分，I f l a n g 4=“优秀”“通过”加 10 分；外语4级(l a n g 4)为T h e n l a n g f=8“优秀”力 口 8 分，“通过”力 口 4分。外语附I f l a n g 6=“合格”加分只能计一次最高的分数。()能正确计T h e n l a n g f=

16、10算。I f l a n g 6=“优秀”T h e nA.I f l a n g 6=优 秀 T h e nl a n g f=15l a n g f=15E l s eE l s e l f l a n g 6=“合格”l a n g f=0T h e nE n d i fl a n g f=109.下面语句执行后，变量w中的值是()。E l s e l f l a n g 4=优秀”w=C h o o s e (W e e k d a y(“20 0 5,5,1”),T h e n“R e d”，“G r e e n ，“B l u e”，l a n g f=8“Ye l l o w

17、)E l s e l f l a n g 4=“合格”A.N o th i n g B.“R e d”T h e nC.G r e e n”D.“Ye l l o w”i a n g f=4E n d i f二.填空题1.当 c字符串变量中第三个字符是“c”时,B I f l a n g 4=“合 格”利用M s g B o x 显 示“Ye s”，否则显示“No”。T h e nIf _ _ _ _ _ _ _ _ _ T h e n Ms g Bo x(y a s )El s el a n g f=4Ms g Bo x(“No”)El s e l f l a n g 4=“优秀”2.程 序

18、 运 行 后 输 出 的 结 果 是x=In t(R n d)+3If x 28 T h e n y=x 2+lIf x 2=9 T h e n y=x 2-2If x _ 20 T h e nMs g Bo x ()El s eMs g Bo x(右括号多于左括号&c o u n t l&“个”)En d IfEn d IfEn d S u b注意)该题中统计括号个数的变量c o u n t l 若在过程内声明，程序会产生什么结果？5.输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按En t e r 键结束，显示结果，大、小写不区分。其中Co u n t Y中放元音字母个数，C

19、o u n t C中放其他字符数。Di m Co u n t Y%,Co u n t C%S u b T e x t Bo x l _ Ke y P r e s s (.)Ha n d l e s T e x t Bo x l.Ke y P r e s sDi m c As Ch a rc=_ _ _ _ _ _ _ _If A”=c An d c 20当 10=x=20当 x 10S u b Bu t t o n l _ Cl i c k(.)Bu t t o n l.Cl i c kDi m x!,y!x=V a l(T e x t Bo x l.T e x t)If T h e ny=x

20、*x+3*x+2El s e l f T h e ny=l/2+Ma t h.Ab s(x)El s ey=Ma t h.S q r t(3*x)-2En d IfMs g Bo x(y二”&y)En d S u bHa n d l e sS u b Bu t t o n l _ Cl i c k(.)Ha n d l e sBu t t o n l.Cl i c kx=V a l(T e x t Bo x l.T e x t)S e l e c t Ca s e xCa s e _ _ _ _ _ _ _ _ _ _ _y=x*x+3*x+2Ca s e _ _ _ _ _ _ _ _ _

21、_ _y=l/2+Ma t h.Ab s(x)Ca s e El s ey=Ma t h.S q r t(3*x)-2En d S e l e c tMs g Bo x(y=&y)En d S u b7.输入三角形的三边a、b、c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。S u b Bu t t o n l _ Cl i c k(.)Ha n d l e sBu t t o n 3.Cl i c kDi m x%,y%,z%x=V a i (In p u t Bo x(u i n p u t x,f)y=V a i(In

22、p u t Bo x(i n p u t x”)z=V a i (In p u t Bo x(ai n p u t x)If T h e nMs g b o x (能构成三角形”)If T h e nMs g b o x (是等边三角形”El s e l f T h e nMs g b o x (是等腰三角形”)El s e l f S q r t(x*x+y*y)=z OrMa t h.S q r t(y*y+z*z)=x OrMa t h.S q r t(x*x+z*z)=y T h e nMs g b o x (是直角三角形”)El s eEn d IfEl s eMs g Bo x (

23、不能构成三角形”)En d IfEn d S u b8 .输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或 能 被4 0 0整除。同时请用日期型变量的Is Le e p Y e a r成员来验证。S u b Bu t t o n l _ Cl i c k(.)Ha n d l e sBu t t o n 3.Cl i c kDi m d As Da t ed 二 No wIf Or d.y e a r Mo d 4 00=0T h e nMs g Bo x(d.Y e a r&是 闰 年 )El s eMs g Bo x (d.

24、Y e a r&是平年”)En d IfIf d.Is Le e p Y e a r ()T h e nMs g Bo x (d.Y e a r&是 闰 年 )El s eMs g Bo x (D.Y e a r&是平年”)En d IfEn d S u b第四章循环结构*一.选择题1.以 下（）是正确的Fo r.Ne x t结构。*A.Fo r x=l T o S t e p 10*Ne x t x4.当在文本框输入“ABCD”四个字符时，窗B.Fo r x=3 T o -3 S t e p -3体上显示是（）。S u bT e x t Bo x l _ T e x t Ch a n g e

25、 d (.)Ne x t xHa n d l e s T e x t Bo x l.T e x t Ch a n g e dC.Fo r x=l T o 10La b e l 1.T e x t&=T e x t Bo x.T e x tr e:.En dS u bNe x t xA.ABCD B.AIf i=10 T h e n Go T o r eC.AABABCABCD D.AD.Fo r x=3 T o 10 S t e p 3BABNe x t yC2.下列循环体能正常结束的是（）。ABCA.i=5DDoABCDi=i+l5.下列程序段不能分别正确显示1!、2!、Lo o p U n

26、 t i l i 0B.F or i=l T o 4D.i=6F or j=l T o iD on=li=i-2n =n*jL oop Un ti l i=lN e xt j3.下面程序段的运行结果为（）。M sg B ox(n)l a b e l l.te xt=N e xt iF or i=3 T o 1 S te p-1C.n=lL a b e l l.T e xt&=S pa c e(5-i)F or j=l T o 4F or j=l T o 2*i-ln=n*jL a b e l l.T e xt&=*M sg B ox(n)N e xt jN e xt jL a b e l l.

27、T e xt&=vb C r L fD.n=lN e xt ij=lD o W h i l e j=4A.*B.*n=n*jM sg B ox(n)C.*D.*j=j+lL oop二.填空题1 .要使下列F or 语句循环执行20 次，循环变量的初值应当是：F or k=T o-5 S te p-22.下面程序段显示 个F or i=l T o 5F or j=2 T o iM sg B ox(“*”)N e xt jN e xt i3.下 列 第 4 0 句共执行了 次，第41 句共执行了 次。30 F or j=l T o 1 2 S te p 340 F or k=6 T o 2 S t

28、e p-241 M sg B ox(j&“&k)42 N e xt k43 N e xt j4.输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“A B C D E F G”变换成“G F E D C B A”。S ub B utton l _ C l i c k (.)H a n d l e s B utton l.C l i c kD i m a$,1%,c$,d$,n%I n putB ox$(输入字符串”)n=d 二”F or 1=1 T oc=M i d (a,I,1)d=c&dN e xt IM sg B ox(d)E n d S ub5.找 出 被 3、5、7 除，余数为

29、1的最小的5 个正整数。S ub B utton l _ C l i c k (.)H a n d l e s B utton l.C l i c kD i m C oun tN%,n%C oun tN=On=lD on=n+lI f T h e nM sg B ox(n)c oun tN=C oun tN+1E n d I fL oop_ _ _ _ _ _ _ _E n d S ub6.有个长阶梯,如果每步跨2 阶最后剩1 阶,如果每步跨3 阶最后剩2 阶，如果每步跨4阶最后剩3 阶,如果每步跨5 阶最后剩4 阶,如果每步跨6 阶最后剩5 阶，只有当每步跨7 阶时恰好走完，显示这个阶梯至少

30、要有多少阶。提示)利用其肯定是7 的倍数这个条件，然后根据同时满足除n余 m (n=2,3,4,5,6；m=l,2,3,4,5)的逻辑关系即可。S ub B utton l _ C l i c k(.)H a n d l e sB utton l.C l i c kD i m n%,m%F or n=7 T o 1 0 0 0 0 S te p 7I f n M od 2=1 A n d_ _ _ _ _ _ _ _ _ _ T h e nM sg B ox(n)E n d I fN e xtE n d S ub7.某班在一周中6 天内考三门分别为x、y、z 的考试课程，规定一天只能考一门，先

31、考x,后考y,最后考z,最后一门最早周五考。用计算机排考试，列出满足条件的方案数。S ub B utton l _ C l i c k(.)H a n d l e s B utton l.C l i c kD i m x%,y%,z%,n%n=0L a b e l l.T e xt=F or x=l T o 4F or y=_ _ _ _ _ _ T o 5F or z=5 T o 6I f _ _ _ _ _ _ _ A n d yz T h e nL a b e l 1.T e xt&=x&spa c e(9)&y&S pa c e(9)&z&vb C r l fE n d I fN e

32、xtN e xtN e xt“满足条件的方案为；”&nE n d S ub8.某次大奖赛，有7个评委打分，以下程序是针对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分，求出平均分，为该参赛者的得分。S ub B utton l _ C l i c k（.）H a n d l e s B utton l.C l i c kD i m m a r k!,a ve r!,m a xi!,m i n i!a ve r=0F or i=l T o 7m a r k=I n putB ox（“输入第&i&“位评委的打分”）I f i=l T h e nm a xl=m a r k:E l

33、seI f m a r k m a xl T h e nE n d I fE n d I fN e xt ia ve r=M sg B ox(a ve r)E n d S ub第五章 数组一.选择题1.如下数组声明语句中正确的是（）。A.D i m a 3,4 A s I n te g e rB.D i ma(3,4)A s I n te g e rC.D i m a 3,4 A s I n te g e rD.D i m a (3 4)A s I n te g e r2.如下数组声明语句中正确的是()。A.D i m (9)A sS i n g l e=1,2,3,4,5,6,7,8,9,1

34、 0)B.D i m a()A sS i n g l e=1,2,3,4,5,6,7,8,9,1 0)C.D i m a()A s S i n g l e=l,a”，“b e”2,4,5,6,7,8,9,1 0 D.D i m a(,)A sI n te g e r=1,2,3,4,5,6,7,8,9,1 0)3.如下数组声明语句中，数组a包含元素的个 数 有()。D i m a(3,0,5)A.1 5 B.8 C.24D.1 64.如下程序输出的结果是()。D i m a()A s I n te g e r=l,2,3,4,5,6,7F or i=0 T o UB oun d (a)a(i)

35、a=(i)*a(i)N e xt iM sg B ox(a(i)A.49 B.0定 D.程序出错5.如下程序输出的结果是S ub B utton l _ C l i c k(.B utton l.C l i c kD i m i%,j%D i m a(I n te g e r=0,1,2,3,4,5,6,7,8,9),b (3,3)A s I n te g e rL a b e l l.T e xt=F or i=l T o 3L a b e l 1.T e xt&=S pa c e(i*3)F or j=i T o3b(i,j)=a(i*j)L a b e l 1.T e xt&=S pa

36、c e(6-L e n(b(i,j)&b(i,j)N e xt jL a b e l 1.T e xt&=vb C r L fN e xt iE n d S ubA.1 2 3C.1 4 74 5 6C.不确()o.)H a n d l e s)A sB.1D.1 2 34 52 4 6 4 67 8 9 7 8 93 6 9 9二.填空题1 .在一维数组中利用移位的方法显示如图所有的结果。S ub B utton l _ C l i c k(.)H a n d l e sB utton l.C l i c kD i m a(7)A s I n te g e r,i%,t%,j%L a b e

37、 l l.T e xt=F or i=l T o 7a(i)=iL a b e l 1.T e xt&=a(i)&”N e xt iL a b e l 1.T e xt&=vb C r L fF or i=l T o 7t=_ _ _ _ _ _ _ _F or j=6 T o 1 S te p-1N e xt ja(l)=_ _ _ _ _ _ _ _ _ _ _ _F or j=l T o 7L a b e l 1.T e xt&=a(j)&a，N e xt jL a b e l 1.T e xt&二N e xt iE n d S ub2.下面程序对已知数组a (),删除数组中某个元素。S

38、 u b Bu tto n l _ Cl i ck (.)Ha n d l es Bu tto n l.Cl i ckDi m a()AsIn teg er=1,6,8,3,5,9,10,2,7,4),Key%,i%,j%Key=V a l(In p u tBo x(输入要删除的值”)Fo r i=0 T o U Bo u n d(a)If T h enFo r j=i+l T o U Bo u n d (a)N ex t jR eDi mM sg Bo x（“删除完成”）Ex i t S u bEn d IfN ex t iM sg Bo x（“找 到 不 要 删 除 的 元素”）En d

39、S u b3.矩阵相乘两个矩阵能相乘的必要条件是：前一个矩阵国 Forml1 2 3 4 5 6 7矩 7 1 2 3 4 5 66 7 1 2 3 4 55 6 7 1 2 3 44 5 6 7 1 2 3知 3 4 5 6 7 1 2刈 2 3 4 5 6 7 1k 1 2 3 4 5 6 7k矩|1BC矩阵为n X i n,即：歹U数等后一个阵的行数。例如，己A为n X的 矩阵，B为X m的阵，A X的结果51015350580020A=C=B二 10252025301530800 1925S u b Bu tto n l _ Cl i ck(.)Ha n d l esBu tto n

40、l.Cl i ckDi ma%(2,3),b%(3,2),c%(2,2),i%,j%,n%,k%L a b el 1.T ex t=”n=5Fo r i=l T o 2Fo r j=l T o 3a(i,j)=nn=_ _ _ _ _ _ _ _ _ _ _ _ _ _N ex t jN ex t iFo r i=l T o 2Fo r j=l T o 2c(i,j)=0Fo r k=l T o 3c(i,j)=c(i,j)+N ex t kL a b el 1.T ex t&=c(i,j)&“，N ex t jL a b el 1.T ex t&=v b CrL fN ex t iEn d

41、S u b4.下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。S u b Bu tto n l _ Cl i ck(.)Ha n d l esBu tto n l.Cl i ckDi m i%,n%,m%Di m a()AsIn teg er=9,17,15,13,11,9,7,5,3,1)n=U Bo u n d(a)R eDi m _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _m=V a i (In p u tBo x(“输出欲插入的数”)Fo r i=U Bo u n d (a)-1 T o 0 S tep -1If

42、 m =a(i)T h enIf i=0 T h en a(i)=mEl seEx i t Fo rEn d IfN ex t iFo r i=0 T oL a b el 1.T ex t&=a(i)&u，N ex t iEn d S u b5.改进的冒泡法排序。在教材中已介绍选择法、冒泡法。上例使用了插入法排序。本例使用改进的冒泡法排序，冒泡法排序在每一轮排序时将相邻的两个数比较，当次序不对就交换位置，出了内循环，最大数已沉底，小数上浮；每一轮仅使沉底的数确定了位置，有个n个数，外循环要进行n-1轮排序。为了提高效率，若在某一轮排序时，未发生排序位置交换，说明欲排序的序列已有序，排序就可以结

43、束。在程序中增加一个逻辑变量来进行判断即可。程序如下：S u b Bu tto n l _ Cl i ck(.)Ha n d l esBu tto n l.Cl i ckDi m T a g As Bo o l ea n ,n%,j%,i%,t%Di m a()AsIn teg er=1,5,6,7,4,13,23,26,31,51)n=U Bo u n d(a)Fo r i=0 T o n-lT a g=Fa l seFo r j=0 T o n-l-iIf a(j)a(j+l)T h ena(j+l)=tEn d IfN ex t jIf N o t T a g T h enN ex t

44、iFo r i=0 T o U Bo u n d(a)L a b el 1.T ex t&=a(i)&a ，N ex t iEn d S u b6.随机产生1 5个不重复的A-Z之间的字母(包括A,Z的大写字母)，存放在字符数组中。实现的思想是，每产生一个字母，在数组中查找已产生的字母。若找到，刚产生的字母作废，重新产生；如果找不到，则产生字母放入数组中。S u b Bu tto n l _ Cl i ck(.)Ha n d l esBu tto n l.Cl i ckDi m s(14)As Ch a r,c As Ch a r,n%,j%,f l a g a s b o o l ea ns

45、(0)=Ch r(In t(R n d()*26+65)Fo r n=l T o 14f l a g=tru eDoc=_ _ _ _ _ _ _ _ _ _ _Fo r j=0 T o 若找到有重复字母,重新产生If s(j)=c T h enEx i t f o rEn d i fN ex t jL o o p w h i l e f l a g=f a l ses(n)=_ _ _ _ _ _ _ _ _ _ _ _没有重复的加入数组中N ex t nFo r j=0 T o 14L a b el 1.T ex t&=s(j)&N ex t jEn d S u b7.随机产生15个A-J

46、的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。例如，连续5个H字母显示为5*H,如图所示。数组a ()用于存储随机产生字母。S u b Bu tto n l _ Cl i ck(.)Ha n d l es.Cl i ckCo n st N=14Di m a(N)As Ch a r,c As Ch a rDi m co u n t%,i%,j%,k%L a b el 1.T e x t=”Fo r i=0 T o Na(i)=_ _ _ _ _ _ _L a b e11.T ex t&=a(i)&”N ex t iL a b el 1.T ex t&=v b CrL fFo r

47、 i=0 T o N-1k=iFo r j=i+l T o NIf a(j)a(k)T h enN ex t jc=a(i):a(k)=cN ex t iFo r i=0 T o N 输出排序的结果L a b el 1.T ex t&=a(i)&”N ex t iL a b el 1.T ex t&二v b CrL fi=0Do W h i l e i =N 压缩显示相同元素co u n t=lIf i N T h en j=i+lDo W h i l e a(i)=a(j)co u n t=_ _ _ _ _ _ _ _ _ _ _ _If j N T h en j=j+l El se Ex

48、 i tDoL o o pIf co u n t=l T h enL a b el 1.T ex t&=a(i)&“”El seL a b el 1.T ex t&=En d Ifi=_ _ _ _ _ _ _ _ _L o o pEn d S u b第 六 章 过 程选择题1.设有如下说明：P ub l i c S ub F l(ByR e f n%)n=3 *n+4E n d S ubS ub But t o n l _ C l i c k (.)Ha n d l e sBut t o n l.C l i c kD i m n%,m%n=3m=4调用F l语句E n d S ub则 在Bu

49、t t o n l _ C l i c k事件中有效的调用语句是()。A.F l(n +m)B.F l (m)C.F l (5)D.F l(m,n)2.下面子过程语句说明最合理的是()。A.S ub f l (ByV a i n%0)B.S ub f l(ByR e f n%)As In t e g e rC.F un c t i o n f l%(ByR e f f l%)C.F un c t i o n f l(ByV a i n%)3 .要想从子过程调用后返回两个结果，下面子过程语句说明合法的是()。A.S ub f 2(ByV a i n%,ByV a i m%)B.S ub f l(

50、ByR e f n%,ByV a i m%)B.S ub f l (ByR e f n%,ByR e f m%)D.S ub f l(ByV a i n%,ByR e f m%)4 .在过程中定义的变量，若希望在离开该过程后还能保存过程中的局部变量的值，则应使 用()关键字在过程中定义过程级变量。A.D i m B.P r i va t eC.P ub l i c D.S t a t i c5.下面过程运行后显示的结果是()。P ub l i c S ub F l(ByR e f n%,ByV a i m%)n=n M o d 10m=m 10E n d S ubS ub But t o n