VB第一章练习题.pdf

《VB第一章练习题.pdf》由会员分享，可在线阅读，更多相关《VB第一章练习题.pdf（70页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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.Name C.ForeColor D.Text5.对于窗体，可改变窗体的边框性质

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

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

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

5、frm 窗体文件C.该可执行文件有病毒D,以上原因都不对16.对初学者而言，调试程序方便,有效的手段是（A）。A.在可疑的代码处设置断点，逐语句跟踪B.查看资料C.通过“立艮I”窗口显示变量的值D.找老师问原因17.当需要上下文帮助时，选择要帮助的“难题”，然后按住（D）键，就可出现M SDN窗口及显示所需“难题”的帮助信息。A.Help B.F10 C.Esc D.Fl18.在代码窗口,代码下方有蓝色波浪线表示（B）oA.对代码设置了格式B.编译错误C.逻辑错误D.运行时错误二.填空题1.VB.NET是完全面向对象的程序设计语言，其最大的特点是 o 引入了.net框架2.技术能让编程人员不必

6、编写代码就可以创建GUI（图形用户界面）。可视化编程技术3.是由一个或几个项目组成VB.NET程序。解决方案4.当 特性设置后，浮动窗口将自动隐藏。自动隐藏5.当进入VB.NET集成环境，发现没有显示“工具箱”窗口，应选择 菜单的选项，使“工具箱”窗口显示，并 最 好 将 其 窗 口 的 属 性 设 置 为。视图、工具箱、可停靠6.新建项目时，要改变默认Option设置，应对 菜单的 的文件夹进行相应选项的选择。7.对象属性是指。对象的性质来描述和反应对象特征的参数8.对象的方法是指。对象的动作行为。9.在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对 的属性进行设置。Form fo

7、nt10.属性窗口的属性可以按照 和 顺序排列。分类顺序、字母顺序11.当对命令按钮的Image属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原因是对 属性设置为。FlatStyle、system12.若已建立了 Forml,Form 2两个窗体，默认启动窗体为Form l通过 菜单的的 选项卡，可将启动对象设置为Form2。项目菜单、属性、常规13.在文本框中，通过 属性能获得当前插入点所在的位置。Selectionstart14.要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了的属性为 True。readlony15.在窗体上已建立多个控件,如Text

8、Boxl,Labell,Buttonl,若要使程序一运行焦点就定位 在 Buttonl控件上，应对Buttonl控件设置_ _ _ tabindex 属性的值为 0。16.要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的全部保存按钮。第二章 VB.NET语言基础和顺序结构一.选择题1.在一个语句内写多条语句时，每个语句之间用（B）符号分隔。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

9、B.&0100 C.&H100 D.%1005.下面属于合法的字符常数的是（B）。A.ABC$B.“ABC C.ABC D.ABC6.下面属于合法的单精度型变量的是（A）。A.mun!B.sum%D.xinte$D.mm#7.下面属于不合法的双精度常数的是（D）。A.100#B.100.0 C.1E+2 D.100.0D+28.表达式 16/4-2-5*8/4 Mod 52 的值为（B）。A.1 4 B.4 C.2 0 D.29.数学关系表达式3 W xV IO 表示成正确的VB.NET表达式为（B）。A.3=x10 B.3=x AND x=3 OR x10 D.3=x AND=0 AND a

10、+cb+3 OR NOT d 的值是。5.lnt(-3.5)lnt(3.5)、Fix(-3.5)、Fix(3.5)、Round(3.5)的 值 分 别 是、_、o6.表达式 UCase(Mid(abcdefgh”,3,4)的值是。7.在直角坐标系中，x、y 是坐标系中任意点的位置，用 x 和 y 表示在第象限或第三象限的表达是。10.要显示当前机器内II期，函数为.11.计算离你毕业(假定2008年6 月30日 毕 业)还 有 多 少 个 星 期 的 函 数 表 达 式 是。12.表示s 字 符 变 量 是 字 母 字 符(大 小 写 字 母 不 区 分)的 逻 辑 表 达 式 为。13.下面

11、程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生2 4 6,输出是642。Sub Buttonl_Click(.)Handles Buttonl.ClickDim x,y As Integerx=lnt()y=(x Mod 1 0)*1 0 0+x100MsgBox(x=&x&x“v=&Y)End Sub第三章选择结构一.选择题1.VB.NET提供了结构化程序设计的三种基本结构，三种基本结构是（D）,A.递归结构，选择结构，循环结构B.选择结构，过程结构，顺序结构C.过程结构，输入输出结构，转向结构D.选择结构，循环结构，顺序结构2.按照结构化程序设计的要求，下

12、面（C）语句是非结构化程序设计语句。A.if 语句 B.For 语句 C.GoTo 语句 D.Select Case 语句3.下面程序段运行后，显示的结果是（A）。Dim x%If x Then MsgBox（x）日 se MsgBox（x+l）A.l B.O C.-l D.显示出错信息4.语 句“lfx=lTheny=l”下列说法正确的是（C）。A.“x=l”和“y=l”均为赋值语句B.“x=l”和“y=l”均为关系表达式C.“x=l”为关系表达式“y=l”为赋值语句D.“x=l”为赋值语句“y=l”为关系表达式5.F 面程序段显示的结果是（A）。Dim x%x=lnt（Rnd）+5Sele

13、ct Case xCase 5MsgBox（“优秀”）Case 4MsgBox（“良好”）Case 3MsgBox（“通过”）Case ElseMsgBox（“不通过”）End SelectA.优秀B.良好 C.通过 D.不通过6.下面I f 语句统计满足性别（sex）男、职 称（duty）为副教授以上、年 龄（age）小 于 40岁条件的人数，正确的语句是（D）。A.lf s e x=男 And age0 Then n=n+lB.lf s e x=男 And age40 And duty=“教授 or duty=副 教 授 Then n=n+lC.lf s e x=男 And age40 A

14、nd Right（duty,2）=教授 Then n=n+lD.lf s e x=男 And agey/x,y）C.Maxl=Math.Max（xz y）B.If xy Then Maxl=x Else Maxl=yC.If y=x Then Maxl=y Max=x8.下面三个程序设计段计算学生外语附加分：外语6 级（Iang6）为“优秀”加 15分，“通过”加 10分；外语4 级（Iang4）为“优秀”加 8 分，“通过”加 4 分。外语附加分只能计一次最高的分数。（A）能正确计算。A.If Iang6=优秀 Thenlangf=15Elself Iang6=合格 Thenlangf=10

15、Elself Iang4=“优秀”Thenlangf=8Elself Iang4=合格 Thenlangf=4End ifB If Ian g4=合格 Thenlangf=4Elself Iang4=优秀 Thenlangf=8日 selflang6=“合格 Thenlangf=10日 selflang6=“优秀 Thenlangf=15End ifC.If Iang6=“优秀 Then langf=15Iflang6=合格 Then langf=10Iflang4=“优秀 Then langf=8If Ian g4=合格 Then langf=4langf=OD.If Iang4=“合格”T

16、hen langf=4If Iang4=“优秀 Then langf=8If Iang6=合格 Then langf=10If Iang6=优秀”Thenlangf=15Elselangf=OEnd if9.下面语句执行后，变量w 中的值是(B)ow=Choose(Weekday(/2005z5,r),Red Green,Blue,Yellow)A.Nothing B.Red C.Green D.Yellow”二.填空题1.当 C 字符串变量中第三个字符是“C”时,利 用 MsgBox显 示“Yes”，否则显示“No”。If Then MsgBox(“yas”)Else MsgBox(No”)

17、Mid(c,3,1)=C2.程序运行后输出的结果是 ox=lnt(Rnd)+3If xA28 Then y=xA2+lIf xA2=9 Then y=xA2-2If xA20 ThenMs g Box()ElseMsgBox(右括号多于左括号&countl&个”)End IfExit SubEnd IfEnd Sub 注意该题中统计括号个数的变量countl若在过程内声明，程序会产生什么结果？5.输入若干个字符，统计有多少个元音字母，有多少个其他字母，直 到 按 Enter键结束,显示结果，大、小写不区分。其中Count Y 中放元音字母个数，Count C 中放其他字符数。Dim Count

18、Y%,CountC%Sub TextBoxl_KeyPress(.)Handles Text Box 1.Key P ressDim c As Charc=_If W=c And c20y=sqrt(3x)-2 当 10=x=201/2+|x|当 x10Sub Buttonl_Click(.)Handles Buttonl.ClickDim x!,y!x=Val(TextBoxl.Text)If Theny=x*x+3*x+2Elself Theny=l/2+Math.Abs(x)日sey=Math.Sqrt(3*x)-2End IfMsgBox(y=&y)End SubSub Buttonl

19、_Click(.)Handles Buttonl.Clickx=Va l(TextBox l.Text)Select Case xCase_y=x*x+3*x+2Case_y=l/2+Math.Abs(x)Case Elsey=Math.Sqrt(3*x)-2End SelectMsgBox(y;&y)End Sub7.输入三角形的三边a、b、c 的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。Sub Buttonl_Click(.)Handles Button3.ClickDim x%,y%,z%x=Val(lnputBox(

20、/input x)y=Val(lnputBox(/zinput x)z=Val(lnputBox(/zinput x)IfThenMsg(“能构成三角形”)IfThenMsg(是等边三角形”Elself ThenMsg(是等腰三角形”)Elself 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

21、 整除但不能被100整除，或能被400整除。同时请用日期型变量的IsLeepYear成员来验证。Sub Buttonl_Click（.）Handles 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.Fo

22、rx=lToStep 10Next xB.For x=3 To-3 Step-3Next xC.For x=l To 10re:.Next xIf i=10 Then GoTo reD.For x=3 To 10 Step 3Next y2.下列循环体能iE常结束的是(C)oA.i=5Doi=i+lLoop Until i0D.i=6Doi=i-2Loop Until i=l3.下面程序段的运行结果为()。labell.text=For i=3 To 1 Step-1La be 11.Text&=Space(5-i)Forj=lTo2*i-lLabell.Text&二 *Next jLabel

23、l.Text&=vbCrLfNext iA.*B*Q *D*4.当在文本框输入“ABCD”四个字符时，窗体上显示是(C)。Sub TextBoxl_TextChanged(.)Handles TextBoxl.TextChangedLa be 11.Text&=TextBox.TextEnd SubA.ABCD B.A C.AABABCABCD D.AB ABC ABCD ABCD5.下列程序段不能分别正确显示1!、2!、3!、4!的值的是()。A.For i=l To 4n=lFor j=l To in=n*jNext jMsgBox(n)Next iB.For i=l To 4For j=

24、l To in=ln=n*jNext jMsgBox(n)Next iC.n=lFor j=l To 4n=n*jMsgBox(n)Next jD.n=lj=lDo While j=4n=n*jMsgBox(n)j=j+lLoop二.填空题1.要使下列For语句循环执行20次，循环变量的初值应当是：For k=_33_To-5 Step-22.下面程序段显示 个For i=l To 5For j=2 To iMsgBox(”)Next jNext i3.下列第40句共执行了 4 次，第 41句共执行了_ 1 2 一 次。30 Forj=lTol2Step340For k=6 To 2 Step

25、-241 MsgBox(j&k)42 Next k43 Next j4.输入任意长度的字符串，要求将字符顺序倒置。例如，将 输 入 的“ABCDEFG”变换成“GFEDCBA”。Sub Buttonl_Click(.)Handles Buttonl.ClickDim a$,1%,c$,d$,n%a=lnputBox$(输入字符串”)n=_d二 For 1=1 To_c=Mid(aJ,l)d=d&cNext IMsgBox(d)End Sub5.找出被3、5、7 除，余数为1 的最小的5 个正整数。Sub Buttonl_Click(.)Handles Buttonl.ClickDim Coun

26、tN%,n%CountN=0n=lDon=n+lIf ThenMsgBox(n)countN=CountN+lEnd IfLoop_End Sub6.有个长阶梯，如果每步跨2 阶最后剩1 阶，如果每步跨3 阶最后剩2 阶，如果每步跨4 阶最后剩3 阶，如果每步跨5 阶最后剩4 阶，如果每步跨6 阶最后剩5 阶，只有当每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。提 示 利用其肯定是7 的倍数这个条件，然后根据同时满足除n 余 m(2,3,4,5,6；m=l,2,3,4,5)的逻辑关系即可。Sub Buttonl_Click(.)Handles Buttonl.ClickDim n%,m%F

27、or n=7 To 10000 Step 7If n Mod 2=1 And ThenMsgBox(n)End IfNextEnd Sub8.-某班在一周中6 天内考三门分别为x、y、z 的考试课程，规定一天只能考一门，先考X,后考y,最后考z,最后一门最早周五考。用计算机排考试，列出满足条件的方案数。Sub Buttonl_Click(.)Handles Buttonl.ClickDim x%,y%,z%,n%n=0Labell.Text=For x=l To 4For y=To 5For z=5 To 6If And yz ThenLa be 11.Text&=x&space(9)&y&S

28、pace(9)&z&vbCrlfEnd IfNextNextNext“满足条件的方案为；”&nEnd Sub9.某次大奖赛，有 7 个评委打分，以下程序是针对一名参赛者，输入7 个评委的打分分数,去掉一个最高分、一个最低分，求出平均分，为该参赛者的得分。Sub Buttonl_Click(.)Handles Buttonl.ClickDim mark!,aver!,maxi!,mini!aver=0For i=l To 7mark二 InputBox(输 入 第&i&位评委的打分”)If i=l Thenmaxl=mark:_ElseIf markmaxl ThenEnd IfEnd IfNe

29、xt iaver=_MsgBox(aver)End Sub第五章数组一.选择题1.如下数组声明语句中正确的是(B。A.Dim a3;4 As Integer B.Dim a(3,4)As IntegerC.Dim a3,4 As Integer C.Dim a(3 4)As Integer2.如卜数组声明语句中正确的是（B。A.Dim(9)As Single=l,2,3,4,5,6,7,8,9,10B.Dim a()As Single=l,2,3,4,5,6,7,8,9,10C.Dim a()As Single=l,a,bc2.,4,5,6,7,8,9,10D.Dim a(,)As lnteg

30、er=l,2,3,4,5,6,7,8,9,103.如下数组声明语句中，数组a 包含元素的个数有(C。Dim a(3,0,5)A.15 B.8 C.24 D.164.如下程序输出的结果是()。Dim a()As Integer二 1,2,3,4,5,6,7For i=0 To UBound(a)a(i)a=(i)*a(i)Next iMsgBox(a(i)A.49 B.O C.不确定 D.程序出错5.如下程序输出的结果是()。Sub Buttonl_Click(.)Handles Buttonl.ClickDim i%,j%Dim a()As Integer=0,1,2,3,4,5,6,7,8,

31、9,b(3,3)As IntegerLa be 11.Text=For i=l To 3La be 11.Text&=Space(i*3)For j=i To3b(i,j)=a(i*j)La be 11.Text&=Space(6-Len(b(iJ)&b(i,j)Next jLa be 11.Text&=vbCrLfNext iEnd SubA.12 3B.lC.14 7D.12 345 645246467897893699二.填空题1.在维数组中利用移位的方法显示如图所有的结果。Sub Buttonl_Click(.)Handles Buttonl.ClickDim a(7)As Integ

32、er,i%,t%,j%Labell.Text=For i=l To 7a(i)=iLabell.Text&=a(i)&”Next iLabell.Text&=vbCrLfFor i=l To 7t=_For j=6To 1 Step-1Next ja(l)=_Forj=lTo7Labell.Text&=a(j)&Next jLabell.Text&=Next iEnd Sub2,下面程序对已知数组a(),删除数组中某个元素。Sub Buttonl_Click(.)Handles Buttonl.ClickDim a()As Integer=1,6,8,3,5,9,10,2,7,4,Key%,i

33、%,j%Key=Val(lnputBox(“输入要删除的值”)For i=0 To UBound(a)If ThenFor j=i+l To UBound(a)Next jReDim_MsgBox(“删除完成”)Exit SubEnd IfNext iMsgBox（“找到不要删除的元素”）End Sub3.矩阵相乘两个矩阵能相乘的必要条件是：前一个矩阵的列数等于后一个矩阵的行数。例如，已 知 A为 n X k 的矩阵，B 为 k X m 的矩阵，A X B 的结果C 矩阵为n X m,即：5 10 15 5 20 350 800A=B=10 25 C=20 25 30 15 30 800 19

34、25Sub Buttonl_Click(.)Handles Buttonl.ClickDim a%(2,3),b%(3,2),c%(2,2),i%,j%,n%,k%Labell.Text=/,zn=5For i=l To 2Forj=lTo3a(ij)=nn=_Next jNext iFor i=l To 2Forj=lTo2c(i,j)=OFor k=l To 3c(i,j)=c(i,j)+_Next kLa be 11.Text&=c(i,j)&Next jLa be 11.Text&=vbCrLfNext iEnd Sub4.下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序

35、列仍有序。Sub Buttonl_Click()Handles Buttonl.ClickDim i%，n%,m%Dim a()As Integer=9,17,15,13,11,9,7,5,3,1n=UBound(a)ReDim_m二 Val(lnputBox(输出欲插入的数”)For i=UBound(a)-1 To Step-1If m=a(i)ThenIf i=0 Then a(i)=mElseExit ForEnd IfNext iFor i=0 To_Labell.Text&=a(i)&Next iEnd Sub5.改进的冒泡法排序。在教材中已介绍选择法、冒泡法。上例使用了插入法排序

36、。本例使用改进的冒泡法排序，冒泡法排序在每轮排序时将相邻的两个数比较，当次序不对就交换位置，出了内循环，最大数一沉底，小数上浮；每一轮仅使沉底的数确定了位置，有个n 个数，外循环要进行n-1轮排序。为了提高效率，若在某一轮排序时，未发生排序位置交换，说明欲排序的序列已有序，排序就可以结束。在程序中增加一个逻辑变量来进行判断即可。程序如下：Sub Buttonl_Click(.)Handles Buttonl.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=

37、0 To n-1Tag=FalseFor j=0 To n-l-iIf a(j)a(j+l)Thena(j+l)=tEnd IfNext jIf Not Tag ThenNext iFor i=0 To UBound(a)Labell.Text&=a(i)&Next iEnd Sub6.随机产生15个不重复的A-Z之间的字母(包括A,Z 的大写字母)，存放在字符数组中。实现的思想是，每产生一个字母，在数组中查找已产生的字母。若找到，刚产生的字母作废,重新产生；如果找不到，则产生字母放入数组中。Sub Buttonl_Click(.)Handles Buttonl.ClickDim s(14)A

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

39、14Dim a(N)As Char,c As CharDim count%,i%,k%Labell.Text=For i=0 To Na(i)=_Labell.Text&=a(i)&Next iLabell.Text&=vbCrLfFor i=0 To N-lk=iFor j=i+l To NIf a(j)a(k)ThenNext jc=a(i):a(k)=cNext iFor i=0 To N 输出排序的结果Labell.Text&二a(i)&Next iLabell.Text&=vbCrLfi=0Do While i=N 压缩显示相同元素count=lIf iN Then j=i+lDo

40、While a(i)=a(j)co u nt=_If jN Then j=j+l Else Exit DoLoopIf count=l ThenLabell.Text&=a(i)&ElseLabell.Text&=End Ifi=_LoopEnd Sub第六章过程一.选择题1.设有如下说明：Public Sub Fl(ByRef n%)n=3*n+4End SubSub Buttonl_Click(.)Handles Buttonl.ClickDim n%z m%n=3m=4 调用F l语句End Sub则在Buttonl_Click事件中有效的调用语句是()。A.Fl(n+m)B.Fl(m)

41、C.F1(5)D.Fl(m,n)2,下面子过程语句说明最合理的是()。A.Sub fl(ByVal n%()B.Sub fl(ByRef n%)As IntegerC.Function fl%(ByRef fl%)C.Function fl(ByVal n%)3.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（）。A.Sub f2(ByVal n%,By Vai m%)B.Sub f 1(By Ref n%,By Vai m%)B.Sub f 1(By Ref n%,By Ref m%)D.Sub fl(ByVal n%,By Ref m%)4.在过程中定义的变量，若希望在离开该过

42、程后还能保存过程中的局部变量的值，则应使用()关键字在过程中定义过程级变量。A.Dim B.Private C.Public D.Static5,下面过程运行后显示的结果是()。Public Sub Fl(By Ref n%z By Vai m%)n=n Mod 10m=m10End SubSub Buttonl_Click(.)Handles Buttonl_ClickDim x%,y%x=12:y=34Call Fl(x,y)MsgBox(x&y)End SubA.2 34 B.12 34 C.2 3 D.12 36.如下程序，运行的结果是()。Sub Buttonl_Click(.)Ha

43、ndles Buttonl.ClickMsgBox(pl(3.0,7)End SubPublic Function pl!(ByVal x!,By Vai n%)If n=0 Thenpl=l日 seIf Mod 2=1 Thenpl=x*pl(x,n2)Elsepl=pl(x,n2)xEnd IfEnd IfEnd FunctionA.18 B.7 C.14 D.277.如下程序，运行的结果是()。Dim a%,b%,c%Public Sub pl(ByRef x%,ByRef y%)Dim c%x=2*x:y=y+2:c=x+yEnd SubPublic Sub p2(ByRef x%,B

44、y Vai y%)Dim c%x=2*x:y=y+2:c=x+yEnd SubSub Buttonl_Click(.)Handles Buttonl.Clicka=2:b=4:c=6Call pl=(a,b)MsgBox(/za=&a&b=&b&c=&c)Call p2(a,b)MsgBox(a=&a&b&c=&c)End SubA.a=2 b=4 c=6a=4 b=6 c=10C.a=4 b=6 c=6a=8 b=6 c=6B.a=4 b=6 c=10a=8 b=8 c=16D.a=4 b=6 c=14a=8 b=8 c=68.如下程序，运行后各变量的值依次为()。Public Sub Pr

45、oc(ByRef a%()Static i%Doa(i)=a(i)+a(i+l)i=i+lLoop While i2End SubSub Buttonl_Click(.)Handles Buttonl.ClickDim m%,i%,x%(10)For i=0 To 4x(i)=i+lNext iFori=l To 2Call Proc(x)Next iFor i=0 To 4MsgBox(x(i)Next iEnd SubA.347 5 6 B.3 5 74 5C.2 3 4 4 5 D.4 5 6 7 8二.填空题1.如下程序，运行显示的值是，函数过程的功能是Public Function

46、f(ByVal n%,By Vai r%)If n0 Thenf=f(nr,r)MsgBox(n Mod r)End IfEnd FunctionSub Buttonl_Click(.)Handles Buttonl.ClickMsgBoxf(f(100,8)End Sub2.如下程序，运 行 显 示 的 值 是,函数过程的功能是一Public Function f(ByVal m%,By Vai n%)Do While monIf mn Thenm=m-n日 sen=n-mEnd IfLoopf=mEnd FunctionSub Buttonl_Click(.)Handles Buttonl

47、_ClickMsgBox(f(24,18)End Sub3.两个质数的差为2,称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m 是否为质数。Public Function IsP(ByVai m)As BooleanDim i%For i=2 To lnt(Math.Sqrt(m)If Then lsP=FalseNext iEnd FunctionSub Buttonl_Click(.)Handles Buttonl.ClickDim i%,pl,pa As Booleanpl=lsP(3)For i=5 To 100 Step 2p2=lsP

48、(i)If Then Labell.Text&=i-2&ip l_Next iEnd Sub4.子过程MoveStr。是把字符数组移动m 个位置。当Tag为 Tru e,左移，则前m 个字符移到字符数组尾，例如，“abcdefghij”左移三个位置后，结果为“defghijabc；当 Tag为 False,右移，则后m 个字符移到字符数组前，如“abcdefghij”右移三个位置后，结果为“hijabcdefg”。子过程如下：Public Sub MoveStr(ByRef a$(),ByVal m%,By Vai Tag As Boolean)Dim i%z j%z t$If ThenFor

49、 i=l To mFor j=0 Id _a(j)=a(j+l)Next jNext iElseFor i=l To mFor j=UBound(A)a(j)=a(j-l)Next jNext iEnd IfEnd Sub5.子过程CountN用来统计字符串中各数字字符(“o”9”)出现的个数；主调程序实现在TextBoxl框输入的文本，每次单击“统计”按钮，调用该子过程，在 Labell框中显示结果，运行界面如图所示Sub Buttonl_Click()Handles Buttonl.ClickDim n(9)As Integer,i%Call Cou nt N(n,Text Box 1.T

50、ext)Label2.Text=For i=0 To 9If n(i)ThenLabel2.Text&=&vbCrLfEnd IfNext iEnd SubSub CountN()Dim c As Char,i%,m%,j%For i=0 To 9num(i)=0Next im=Len(s)For i=l To mc=_Ifo=0 And c0m=求的n 的逆序列LoopIf m Mod n=0 And mnl Then 是否是倍数tag=_End IfEnd Sub7.下列程序中的子过程Mysplit(s,sAarry(),n)用于实现函数Split()的功能(字符分离到数组)，即将数字字符