VB第一章练习题讲解学习

1、精品文档第一章VB.NET环境和程序设计初步一.选择题1 .在 Visual Studio.NET 的集成开发的环境中，下面不属于该环境编程语言的是（C） 。A.VB B.C+ C. Pascal D. J#2 .在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D） 。A.工具箱窗口B.属性窗口C.立即窗口D.窗体窗口3 .在VB.NET中，在窗体上显示控件的文本，用（ A ）属性设置。A. Text B. Name C. Caption D. Image4 .不论何种控件，共同具有的是什么属性（ D ）。A. Text B. NameC ForeColor D Tex

2、t5 对于窗体，可改变窗体的边框性质的属性是（B） 。A.MaxButton B. FormBorderStyle C. Name D. Left6 .若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。A BackColor B. BorderStyle C ForeColor D.BackStyle7 .若要使命令按钮不可操作，要对（ A）属性进行设置。A. EnabledB.Visible C. BackColor D. Text8 .要使文本框中的文字不能被修改，应对（ D）属性进行设置。A. LockedB. Visible C. Enabled D. ReadOnl

3、y9 .要使当前Forml窗体的标题栏显示“欢迎使用VB.NET,以下（B）语句是正确的。A.Form1.Text= "欢迎使用 VB.NET5B.Me. Text= "欢迎使用 VB.NETC.Form1.Name= "欢迎使用 VB.NETD.Me. Name= “欢迎使用VB.NET”10.当运行程序时，系统自动执行启动窗体的（A）事件过程。A. LoadB. ClickC. UnLoad D. GotFocus11. 当文本框的 ScrollBars 属性设置了非None 值，却没有效果，原因是（ B） 。A.文本框没有内容B.文本框的 MulitLine

4、属性为FalseC.文本本g的 MulitLine属性为TrueD.文本框的Locked属性True12 .要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。A. ChangeB. KeyDown C. Click D. KeyPress13 .在VB.NE集成环境中创建 VB.NET应用程序时，除了工具箱窗口、窗体窗口和属性窗口外, 必不可少的窗口是（C） 。A.窗体布局窗口B 立即窗口C 代码窗口D.监视窗口14 .当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在(C)文件夹下。A My Documents B VB.NET C 引例D Windows15

5、 将调试通过后生成的.exe 可执行文件放到其他机器上不能运行的主要原因是( A) 。A .运行的机器上面无 VB.NET系统B .缺少 . frm 窗体文件C. 该可执行文件有病毒D. 以上原因都不对16. 对初学者而言,调试程序方便,有效的手段是( A)。A. 在可疑的代码处设置断点，逐语句跟踪B. 查看资料C. 通过”立即”窗口显示变量的值D. 找老师问原因17. 当需要上下文帮助时,选择要帮助的 “难题” ,然后按住 ( D )键 ,就可出现 MSDN 窗口及显示所需 “难题”的帮助信息。A .Help B .F10 C .Esc D. F118. 在代码窗口 ,代码下方有蓝色波浪线表

6、示( B) 。A .对代码设置了格式B. 编译错误C. 逻辑错误D. 运行时错误二.填空题1 .VB.NET 是完全面向对象的程序设计语言， 其最大的特点是。 引入了 .net 框架2 .技术能让编程人员不必编写代码就可以创建GU（I 图形用户界面） 。 可视化编程技术3 . 是由一个或几个项目组成 VB.NET程序。解决方案4 .当特性设置后，浮动窗口将自动隐藏。自动隐藏5 .当进入 VB.NET 集成环境，发现没有显示 “工具箱”窗口，应选择 菜单的选项，使 “工具箱”窗口显示，并最好将其窗口的属性设置为 。视图、工具箱、可停靠6 .新建项目时，要改变默认Option 设置，应对 菜单的

7、的文件夹进行相应选项的选择。7 对象属性是指 。对象的性质来描述和反应对象特征的参数8 对象的方法是指 。对象的动作行为。9 在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对 的 属性进行设置。 Form font10 属性窗口的属性可以按照 和顺序排列。 分类顺序、字母顺序11 当对命令按钮的 Image 属性装入 .bmp 图形文件后，按钮上并没有显示所需的图形，原因是对 属性设置为 。 FlatStyle 、 system12 若已建立了Form1 ， Form2 两个窗体，默认启动窗体为 Form1 。通过 菜单的的 选项卡，可将启动对象设置为Form2 。项目菜单、属性、常

8、规13 在文本框中，通过属性能获得当前插入点所在的位置。 SelectionStart14 要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了的属性为 True。 readlony15 在窗体上已建立多个控件，如TextBox1， Label1， Button1 ，若要使程序一运行焦点就定位在 Button1 控件上，应对Button1 控件设置 tabindex 属性的值为0。16 要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的 全部保存 按钮。第二章 VB.NET语言基础和顺序结构一.选择题1 .在一个语句内写多条语句时，每个语句之间用（ B）符号分隔

9、。A ， B. ：C.、D. ;2 . 一语句要在下一行继续写，用（C）符号作为续行符。A . + B . - C. _ D.3 . 下面属于合法的变量名的是（ A ） 。A .X_yz B. 123abc C .Integer D.X-Y4 .下面属于不合法的整常数的是（ D ）.A .100 B. &O100 C. &H100 D. %1005 .下面属于合法的字符常数的是（ B ） 。A.ABC$ B. "ABC C. 'ABC'D.ABC6 . 下面属于合法的单精度型变量的是（ A） 。A. mun ！ B. sum% D. xinte$ D.

10、 mm#7 .下面属于不合法的双精度常数的是（D） 。A .100# B.100.0C.1E+2D.100.0D+28 .表达式 16/4-2 人 5 * 8/4 Mod 52 的值为（B）。A. 14 B . 4 C.20 D.29 .数学关系表达式3 & xv 10表示成正确的 VB.NET表达式为（B ）。A 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D.3<=x AND <10、 /、 Mod 、 * 四个算术运算符中，优先级别最低的是（ C）。A.B. / C. ModD.*11 . 与数

11、学表达式 ab/（3cd） 对应，VB.NET 的不正确表达式是（）。 A. a*b/（3*c*d）B.a/3*b/c/d C. a*b/3/c/d D. a*b/3*c*d12 .Rnd函数不可能为下列（B）值。A. 0B.1C.0.1234 D. 0.000513.Int（198.555*100+0.5）/100 的值是（C） 。A. 198B.199.6C.198.56D.20014 . 已知 A$=“ 12345678” ，则表达式Val（Mid（A,1,4）+Mid（A,4,2） 的值为（B） 。A.123456B.123445C.8D.615 .MsgBox（DateAdd（ “

12、m” ,2 ， #1/28/2005#）语句显示结果是（A） 。A. 2005-3-28B.2005-1-30 C. 2007-1-28 D. 2003-1-2816 .表达式 DateDiff（ “y” ,#12/30/1999#,#1/13/2000#）的结果是（C）。A. 1B. 11C.14D.9917 .表达式 Len（“ 123 程序设计ABC” ）的值是（A） 。A 10B.14C.20D.1718 下面正确的赋值语句是（C） 。A. x+y=30B .y=n *r*r;C. y=x+30 D. 3y=x19 . 为了给x、 y、 z 三个变量赋初值1 ，下面正确的赋值语句是（

13、A） 。A.x=1:y=1:z=1B.x=1,y=1,z=1 C. x=y=z=1 D.xyz=120 .赋值语句“ a=123+MID（ “123456” ,3,2）”执行后，a 变量中的值是（D）。A. “ 12334 ” B.123C.12334D.15721 赋值语句“ a=123 & MID( “123456” ,3,2)”执行后， a 变量中的值是(A) 。A. “ 12334 ” B.123C.12334D.15722.已知a=12, b=20,复合赋值语句“ a*=b+10”执行后，a变量中的值是(D)。A.50B.250C.30D.360二.填空题1 .在 VB.NE

14、T中，1234, 123456& , 1.2346E+1.2346D 四个常数分别表示 , ， 类型。2 整型变量x 中存放了一个两位数，要将两位数交换位置，例如， 13 变成 31，实现表达式是。3 .表示x是5的倍数或是9的倍数的逻辑表达式为 。4 .已知 a=3.5, b=5.0, c=2.5, d=True,则表达式 a>=0 AND a+c>b+3 OR NOT cB勺值是5 . Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(3.5)的值分别是 、 。6 表达式 UCase( Mid (“abcdefgh” ， 3， 4)

15、的值是 。7 .在直角坐标系中，x、y是坐标系中任意点的位置，用 x和y表示在第一象限或第三象限 的表达是 。10. 要显示当前机器内日期，函数为 。11. 计算离你毕业 (假定 2008 年 6 月 30 日毕业) 还有多少个星期的函数表达式是12. 表示 s 字符变量是字母字符(大小写字母不区分)的逻辑表达式为 。13. 下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生 246 ，输出是 642。Sub Button1_Click() Handles Button1.ClickDim x, y As Integerx=Int ()y=(x Mod 10)*

16、100+x100精品文档MsgBox( “ x= ”&x & xy=” &y)End Sub第三章 选择结构. 选择题D） 。1. VB.NET提供了结构化程序设计的三种基本结构，三种基本结构是（A.递归结构，选择结构，循环结构B.选择结构，过程结构，顺序结构C.过程结构，输入输出结构，转向结构D.选择结构，循环结构，顺序结构2按照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。A if 语句B. For 语句C. GoTo语句D. Select Case 语句A） 。3.下面程序段运行后，显示的结果是（Dim x%If x Then MsgBox(x) E

17、lse MsgBox(x+1)A.1B.0C.-1D.显示出错信息4 语句“If x=1 Then y=1” 下列说法正确的是（C）。A.x=1 ”和“ y=1” 均为赋值语句Bx=1”和“ y=1 ” 均为关系表达式Cx=1”为关系表达式“ y=1 ” 为赋值语句Dx=1”为赋值语句“ y=1” 为关系表达式5卜面程序段显示的结果是（A） 。Case 4Case 3Dim x%x=Int(Rnd)+5Select Case xCase 5MsgBox(MsgBox(MsgBox(“优秀”“良好”“通过”Case ElseMsgBox( “不通过”End SelectA.优秀6.下面 If 语

18、句统计满足性别（ 岁条件的人数，正确的语句是（A.If sex=“男”B.If sex=“男”C.If sex=“男”D.If sex=“男”B. 良好C. 通过D. 不通过sex）男、耳R称（duty）为副教授以上、年龄（age）小于40 D） 。And age<40 And InStr(duty, “教授” )>0 Then n=n+1And age<40 And duty= “教授”And age<40 And Right(duty,2)=And age<40 And duty= “教授”7.下面程序段求两个数中的大数， （）不正确。A. Max1=IIf(

19、x>y, x, y)C. Max1=Math.Max(x, y)or duty= “副教授” Then n=n+1Then n=n+1And duty= “副教授” Then n=n+1B. If x>y Then Max1=x Else Max1=yC. If y>=x Then Max1=y Max=x8.下面三个程序设计段计算学生外语附加分：外语6级（lang6）为“优秀”加15分，“通过”加10分；外语4级（lang4）为“优秀”加8分，“通过”力口 4分。外语附加分只能计一次 最高的分数。（A）能正确计算。A. If lang6= “优秀”Thenlangf=15E

20、lself lang6="合格"Thenlangf=10ElseIf lang4= “优秀” Thenlangf=8Elself lang4="合格"Thenlangf=4End ifB If lang4= “合格” Thenlangf=4Elself lang4="优秀" Thenlangf=8Elself lang6="合格"Thenlangf=10Elself lang6="优秀"Thenlangf=15End ifC. If lang6="优秀"Then langf=

21、15If lang6="合格"Then langf=10If lang4="优秀"Then langf=8If lang4= “合格” Then langf=4langf=0D. If lang4= “合格” Then langf=4If lang4= “优秀”Thenlangf=8If lang6= “合格”Thenlangf=10If lang6= “优秀”Thenlangf=15Elselangf=0End if9.下面语句执行后，变量w 中的值是(B)。w= Choose (Weekday(“ 2005,5,1“”Re),d ”,“ Green

22、” ,“ Blue ” ,“ Yellow ”)A. NothingB. “ Red”C.“ Green ” D.“ Yellow ”二.填空题1 .当C字符串变量中第三个字符是“C”时，利用MsgBox显示“YeS',否则显示“ No”。IfThen MsgBox( “yas” ) Else MsgBox(“ No” ) Mid(c ， 3 ， 1) = “C”2 程序运行后输出的结果是。x=Int(Rnd)+3If xA2>8 Then y=xA2+1If xA2=9 Then y=xA2-2If xA2<8 Then y=xA3MsgBox(y)3 下面程序的功能是(

23、)。Dim n%, m%Sub TextBox1_KeyPress()Handles TextBox1.KeypressIf Asc(e.KeyChar)=13 ThenIf IsNumeric(TextBox1.Text) ThenSelect Case Val(TextBox1.Text) Mod 2Case 0n=n+Val(TextBox1.Text)Case 1m=m+Val(TextBox1.Text)End SelectEnd IfTextBox1.Text= ”TextBox1.Focus( )End IfEnd Sub4下面的程序段是检查输入的算术表达式中圆括号是否配对，并显

24、示相应的结果。本程序在文本框中输入表达式， 边输入边统计， 以输入回车符作为表达式输入结束， 然后显示结果，如下图所示。Dim count1 %Sub TextBox1_KeyPress( )Handles TextBoxl.KeyPressIf=“ ( ” Thencount1+1ElseIf =“) ” Thencount1=End IfIf Asc(e.KeyChar)=13 ThenIfThenMsgBox( “左右括号配对” )ElseIf count1>0 ThenMsgBox()ElseMsgBox( “右括号多于左括号” &count1& “个” )End

25、 IfExit SubEnd IfEnd Sub、，、.一、«<注意>该题中统计括号个数的变量count1 若在过程内声明，程序会产生什么结果？5 输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按Enter 键结束，显示结果，大、小写不区分。其中 Count Y 中放元音字母个数， Count C 中放其他字符数。Dim CountY% , CountC%Sub TextBox1_KeyPress (Handles) TextBox1.KeyPressDim c As Charc=If“ A” <=c And c<=“ Z” ThenSelect

26、 CaseCaseCountY=CountY+1Case ElseCountC=CountC+1End SelectEnd IfIf _ ThenMsgBox("元音字母有"& CountY & "个")MsgBox( "其他字母有"& CountC & "个")End IfEnd Sub6.用If语句，Select Case语句两种计算方法计算分段函数xA2+3x+2当 x>20y= sqrt(3x)-2当 10<=x<=201/2+|x|当 x<10Sub

27、 Button1_Click() Handles Button1.ClickDim x! , y!x=Val(TextBox1.Text)IfTheny=x*x+3*x+2ElseIfTheny=1/2+Math.Abs(x)Elsey=Math.Sqrt(3*x)-2End IfMsgBox( “ y= ” & y)End SubSub Button1_Click() Handles Button1.Clickx=Val(TextBox1.Text)Select Case xCasey=x*x+3*x+2Casey=1/2+Math.Abs(x)Case Elsey=Math.Sqr

28、t(3*x)-2End SelectMsgBox( “ y= ” & y)End Sub7 输入三角形的三边a、 b、 c 的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。Sub Button1_Click() Handles Button3.ClickDim x%, y%, z%x= Val(InputBox(“ input x” )y= Val(InputBox(“ input x” )z= Val(InputBox( “ input x ” )If ThenMsg( “能构成三角形”)If ThenMsg(&quo

29、t;是等边三角形”ElseIf ThenMsg( “是等腰三角形” )ElseIf Math.Sqrt(x*x+y*y)=z Or Math.Sqrt(y*y+z*z)=x Or Math.Sqrt(x*x+z*z)=y ThenMsg("是直角三角形”)ElseEnd IfElseMsgBox(“不能构成三角形”)End IfEnd Sub8 输入一个年份， 判断它是否为闰年，并显示是否是闰年的有关信息。 判断闰年的条件是：年份能被 4 整除但不能被 100 整除，或能被400 整除。同时请用日期型变量的 IsLeepYear成员来验证。Sub Button1_Click（） Ha

30、ndles Button3.ClickDim d As Dated=NowIfOr d.year Mod 400=0 ThenMsgBox（d.Year & “是闰年” ）ElseMsgBox（d.Year & “是平年” ）End IfIf d.IsLeepYear（） ThenMsgBox（d.Year & “是闰年” ）ElseMsgBox（D.Year & “是平年” ）End IfEnd Sub第四章循环结构一.选择题1 以下（）是正确的For.Next 结构。A.For x=1 To Step 10.Next xB.For x=3 To -3 Ste

31、p -3.Next xC.For x=1 To 10re:.Next xIf i=10 Then GoTo reD.For x=3 To 10 Step 3.Next y2 .下列循环体能正常结束的是（C） 。A. i=5Doi=i+1Loop Until i<0B. i=1Doi=i+2Loop Until i=10C. i=10Doi=i+1Loop Until i>0D. i=6Doi=i-2Loop Until i=13.下面程序段的运行结果为（）label1.text=For i=3 To 1 Step -1Label1.Text &=Space(5-i)For

32、j=1 To 2*i-1Label1.Text &=” *”Next jLabel1.Text &=vbCrLfNext iA. *B. *C.*D. *C） 。Label1.Text &=TextBox.TextEnd SubA. ABCDB. AC.AABABCABCD D.ABABCABCDABCD5.下列程序段不能分别正确显示1！ 、 2！、 3！、 4！的值的是()。A. For i=1 To 4n=1For j=1 To in=n*jNext jMsgBox(n)Next iB. For i=1 To 4For j=1 To in=1n=n*jNext jM

33、sgBox(n)Next iC. n=1For j=1 To 4n=n*jMsgBox(n)Next jD. n=1j=1Do While j<=4n=n*jMsgBox(n)j=j+1Loop二.填空题1 要使下列 For 语句循环执行20 次，循环变量的初值应当是：For k=33To -5 Step -22 .下面程序段显示个“ *” 。For i=1 To 5For j=2 To iMsgBox( “ * ”)Next jNext i3 .下列第40 句共执行了 4次，第 41 句共执行了_12_次。30 For j=1 To 12 Step 340 For k=6 To 2 S

34、tep -241 MsgBox(j & “” & k)42 Next k43 Next j4 .输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG变换成“ GFE” 。Sub Button1_lick() Handles Button1.ClickDim a$, I%, c$, d$, n%a=InputBox$( “输入字符串”)n=d=”For I=1 Toc=Mid(a,I,1)d=d & cNext IMsgBox(d)End Sub5 找出被3、 5 、 7 除，余数为 1 的最小的 5 个正整数。Sub Button1_lick() H

35、andles Button1.ClickDimountN% , n%ountN=0n=1Don=n+1If ThenMsgBox(n)countN=CountN+1End IfLoopEnd Sub6 .有个长阶梯，如果每步跨2 阶最后剩 1 阶，如果每步跨 3 阶最后剩 2 阶，如果每步跨4 阶最后剩 3 阶，如果每步跨 5 阶最后剩 4 阶，如果每步跨6 阶最后剩 5 阶，只有当每步跨 7阶时恰好走完，显示这个阶梯至少要有多少阶。<提示 >利用其肯定是7 的倍数这个条件， 然后根据同时满足除n 余 m( n=2 ， 3， 4 ， 5， 6 ； m=1 ，2 ， 3 ， 4， 5

36、 )的逻辑关系即可。Sub Button1_Click() Handles Button1.ClickDim n%, m%For n=7 To 10000 Step 7If n Mod 2=1 And ThenMsgBox(n)End IfNextEnd Sub8 某班在一周中 6 天内考三门分别为 x、 y、 z 的考试课程，规定一天只能考一门，先考X,后考y,最后考z,最后一门最早周五考。用计算机排考试，列出满足条 精品文档件的方案数。Sub Button1_Click() Handles Button1.ClickDim x%, y%, z%, n%n=0Label1.Text= “”F

37、or x=1 To 4For y=To 5For z=5 To 6IfAnd y<z ThenLabel1.Text &=x & space(9) & y & Space(9) & z & vbCrlfEnd IfNextNextNext “满足条件的方案为； ” & nEnd Sub9 某次大奖赛，有7 个评委打分， 以下程序是针对一名参赛者， 输入 7 个评委的打分分数，去掉一个最高分、一个最低分，求出平均分，为该参赛者的得分。Sub Button1_Click() Handles Button1.ClickDim mark!,

38、aver!,max1!,min1!aver=0mark=InputBox( “输入第” & i & “位评委的打分” )If i=1 Then max1=mark:ElseIf mark<min1 ThenElseIf mark>max1 ThenEnd IfEnd IfNext i aver=MsgBox(aver)End Sub第五章数组. 选择题1 如下数组声明语句中正确的是（B。精品文档A. Dim a3,4 As IntegerB. Dim a(3,4) As IntegerC. Dim a3,4 As IntegerC. Dim a(3 4) As In

39、teger2.如下数组声明语句中正确的是（B。精品文档A. Dim (9) As Single=1,2,3,4,5,6,7,8,9,10B. Dim a( ) As Single=1,2,3,4,5,6,7,8,9,10C. Dim a( ) AsSingle=1, “a” ,“bc” 2. ,4,5,6,7,8,9,10D. Dim a(,) As Integer=1,2,3,4,5,6,7,8,9,103 .如下数组声明语句中，数组 a包含元素的个数有(C。Dim a(3,0,5)A.15B.8C.24D.164 .如下程序输出的结果是() 。Dim a() As Integer=1,2,

40、3,4,5,6,7For i=0 To UBound(a)a(i)a=(i)*a(i)Next iMsgBox(a(i)A.49B.0C不确定D.程序出错5 如下程序输出的结果是() 。Sub Button1_Click() Handles Button1.ClickDim i%, j%Dim a( ) As Integer=0,1,2,3,4,5,6,7,8,9,b(3,3) As IntegerLabel1.Text= “”For i=1 To 3Label1.Text &=Space(i*3)For j=i To3精品文档精品文档b(i,j)=a(i*j)Label1.Text

41、&=Space(6-Len(b(i,j) & b(i,j)Next jLabel1.Text &=vbCrLfNext iEnd SubA.1 2 3B.1C.1 4 7D.1 2 34 5 64 52 4 64 67 8 97 8 93 6 99二.填空题1 在一维数组中利用移位的方法显示如图所有的结果。Sub Button1_Click() Handles Button1.ClickDim a(7) As Integer, i%, t%, j%Label1.Text= “”For i=1 To 7a(i)=iLabel1.Text &=a(i) &“

42、 ”Next iLabel1.Text &=vbCrLfFor i=1 To 7t=Next ja(1)=For j=1 To 7Label1.Text &=a(j) & “ ”Next jLabel1.Text &=Next iEnd Sub2 .下面程序对已知数组a()，删除数组中某个元素。Sub Button1_Click() Handles Button1.ClickDim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Val(InputBox( “输入要删除的值”)For i=0 To UBo

43、und(a)IfThenFor j=i+1 To UBound(a)Next jReDim MsgBox( “删除完成”)Exit SubEnd IfNext iMsgBox( “找到不要删除的元素”)End Sub3 .矩阵相乘两个矩阵能相乘的必要条件是：前一个矩阵的列数等于后一个矩阵的行数。例如，已知为nxk的矩阵，B为kxm的矩阵，Ax B的结果C矩阵为nXm,即：51015520350800A=B= 1025C=20253015308001925Sub Button1_Click() Handles Button1.ClickDim a%(2,3),b%(3,2),c%(2,2),i%

44、, j%, n%, k%Label1.Text= “”n=5For i=1 To 2For j=1 To 3a(i,j)=nn=Next jNext iFor i=1 To 2For j=1 To 2c(i,j)=0For k=1 To 3c(i,j)=c(i,j)+Next kLabel1.Text &=c(i,j) &”“Next jLabel1.Text &=vbCrLfNext iEnd Sub4 .下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。Sub Button1_Click() Handles Button1.ClickDim i

45、% , n% ,m%Dim a() As Integer=9,17,15,13,11,9,7,5,3,1n=UBound(a)ReDim m= Val(InputBox( “输出欲插入的数” )For i=UBound(a) -1 To Step -1If m>=a(i) ThenIf i=0 Then a(i)=mElseExit ForEnd IfNext iFor i=0 To Label1.Text &=a(i) &”“Next iEnd Sub5 . 改进的冒泡法排序。最n-1在教材中已介绍选择法、冒泡法。上例使用了插入法排序。本例使用改进的冒泡法排序，冒泡法排

46、序在每一轮排序时将相邻的两个数比较， 当次序不对就交换位置， 出了内循环，大数已沉底，小数上浮；每一轮仅使沉底的数确定了位置，有个n 个数，外循环要进行轮排序。为了提高效率， 若在某一轮排序时， 未发生排序位置交换，说明欲排序的序列已有序，排序就可以结束。在程序中增加一个逻辑变量来进行判断即可。程序如下：Sub Button1_Click() Handles Button1.ClickDim Tag As Boolean ,n%, j%, i%, t%Dim a( ) As Integer=1,5,6,7,4,13,23,26,31,51n=UBound(a)For i=0 To n-1Tag

47、=FalseFor j=0 To n-1-iIf a(j)>a(j+1) Then精品文档精品文档a(j+1)=tEnd IfNext jIf Not Tag Then Next iFor i=0 To UBound(a)Label1.Text &=a(i) &”“Next iEnd Sub'6 .随机产生15个不重复的A-Z之间的字母(包括 A, Z的大写字母)，存放在字符数组中。 实现的思想是， 每产生一个字母， 在数组中查找已产生的字母。 若找到， 刚产生的字母作废， 重新产生；如果找不到，则产生字母放入数组中。Sub Button1_Click() Han

48、dles Button1.ClickDim s(14) As Char ,c As Char, n%, j%s(0)=Chr(Int(Rnd()*26+65)For n=1 To 14re:c=For j=0 To 若找到有重复字母,重新产生If s(j)=c Then Next js(n)= 没有重复的加入数组中Next nLabel1.Text &=s(j) &Next jEnd Sub7 .随机产生15个 A-J 的大写字母， 按字母降序排序后， 将连续出现的字母用压缩的形式显示。例如，连续5 个 H 字母显示为5*H ，如图所示。数组a （）用于存储随机产生字母。Sub

49、 Button1_Click()Handles.ClickConst N=14Dim a(N) As Char ,c As CharDim count%, i%, k%Label1.Text= “”For i=0 To Na(i)=Label1.Text &=a(i) &Next iLabel1.Text &=vbCrLfFor i=0 To N-1k=iFor j=i+1 To NIf a(j)>a(k) ThenNext j:a(k)=cc=a(i) :Next iFor i=0 To N 输出排序的结果Label1.Text &=a(i) &

50、“ ”Next iLabel1.Text &=vbCrLfi=0Do While i<=N 压缩显示相同元素 count=1If i<N Then j=i+1Do While a(i)=a(j) count=If j<N Then j=j+1 Else Exit DoLoopIf count=1 ThenLabel1.Text &=a(i) &“ ”ElseLabel1.Text &=End Ifi=LoopEnd Sub第六章 过 程一选择题1 设有如下说明：Public Sub F1(ByRef n%).n=3 * n+4.End SubS

51、ub Button1_Click () Handles Button1.ClickDim n%, m%n=3m=4.调用 F1 语句.End Sub则在 Button1_Click 事件中有效的调用语句是() 。A. F1(n + m) B.F1(m)C.F1(5)D.F1(m,n)2 .下面子过程语句说明最合理的是()。A. Sub f1(ByVal n%()B. Sub f1(ByRef n%) As IntegerC. Function f1% (ByRef f1%) C. Function f1(ByVal n%)3 .要想从子过程调用后返回两个结果，下面子过程语句说明合法的是()A.

52、 Sub f2(ByVal n%, ByVal m%) B. Sub f1(ByRef n%, ByVal m%)B. Sub f1(ByRef n%, ByRef m%) D. Sub f1(ByVal n%, ByRef m%)4 .在过程中定义的变量，若希望在离开该过程后还能保存过程中的局部变量的值，则应使用()关键字在过程中定义过程级变量。A.DimB.Private C.Public D.Static5 .下面过程运行后显示的结果是()。Public Sub F1(ByRef n%, ByVal m%)n=n Mod 10m=m10End SubSub Button1_Click()

53、 Handles Button1_ClickDim x%, y%x=12: y=34Call F1(x, y)MsgBox(x &“ ” & y)End SubA. 2 34B. 12 34C.2 3D.12 36 .如下程序，运行的结果是()。Sub Button1_Click() Handles Button1.ClickMsgBox(p1(3.0,7)End SubPublic Function p1!(ByVal x!, ByVal n%)If n=0 Thenp1=1ElseIf Mod 2=1 Thenp1=x*p1(x, n2)Elsep1=p1(x, n2)xEnd IfEnd IfEnd FunctionA.18B.7C.14D.277 .如下程序，运行的结果是()。Dim a%, b%, c%Public Sub p1(ByRef x%, ByRef y%)Dim c%x=2*x: y=y+2: c=x+yEnd SubPublic Sub p2(ByRef x%, ByVal y%)Dim c%x=2*