VBnet重点学习的练习练习习题集

1、VBnet要点学习的练习练习习题集VBnet要点学习的练习练习习题集VBnet要点学习的练习练习习题集优选文档第一章VB.NET环境和程序设计初步一.选择题1.在VisualStudio.NET的集成开发的环境中，下面不属于该环境编程语言的是（C）。A.VBB.C+C.PascalD.J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。A.工具箱窗口B.属性窗口C.马上窗口D.窗体窗口3.在VB.NET中，在窗体上显示控件的文本，用（A）属性设置。4.不论何种控件，共同拥有的是什么属性(D)。CForeColorDText5关于窗体，可改变窗体的边框性质的属性

2、是（B）。D.Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。ABackColorB.BorderStyleCForeColorD.BackStyle7若要使命令按钮不能够操作，要对（A）属性进行设置。D.Text8.要使文本框中的文字不能够够被更正，对付（D）属性进行设置。9.要使当前Form1窗体的标题栏显示“欢迎使用VB.NET”，以下（B）语句是正确的。A.Form1.Text=“欢迎使用VB.NET”B.Me.Text=“欢迎使用VB.NET”C.Form1.Name=“欢迎使用VB.NET”D.Me.Name=“欢迎使用VB.NET”10.当运行程序

3、时，系统自动执行启动窗体的（A）事件过程。A.LoadB.ClickC.UnLoadD.GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有奏效，原因是（B）。文本框没有内容文本框的MulitLine属性为False文本框的MulitLine属性为True文本框的Locked属性True12要判断在文本框中可否按了Enter键，应在文本框的（D）事件中判断。D.KeyPress13.在VB.NE集成环境中创办VB.NET应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不能够少的窗口是（C）。A窗体布局窗口B马上窗口C代码窗口D监察窗口14当创办一个项目名为“引

4、例”的项目时，该项目的全部代码文件将保留在（C）文件夹下。AMyDocumentsBVB.NETC引例DWindows15将调试通过后生成的.exe可执行文件放到其他机器上不能够够运行的主要原因是（A）。A.运行的机器上面无VB.NET系统B.缺少.frm窗体文件该可执行文件有病毒.优选文档以上原因都不对16.对初学者而言,调试程序方便,有效的手段是(A)。在可疑的代码处设置断点，逐语句追踪查察资料经过”马上”窗口显示变量的值找老师问原因当需要上下文帮助时,选纲领帮助的“难题”,此后按住(D)键,即可出现MSDN窗口及显示所需“难题”的帮助信息。在代码窗口,代码下方有蓝色波浪线表示(B)。.对

5、代码设置了格式编译错误逻辑错误运行时错误二.填空题是圆满面向对象的程序设计语言，其最大的特点是_。引入了.net框架2._技术能让编程人员不用编写代码就可以创办GUI（图形用户界面）。可视化编程技术3._是由一个或几个项目组成VB.NET程序。解决方案4.当_特点设置后，浮动窗口将自动隐蔽。自动隐蔽5.当进入VB.NET集成环境，发现没有显示“工具箱”窗口，应选择_菜单的_选项，使“工具箱”窗口显示，并最好将其窗口的属性设置为_。视图、工具箱、可停靠6.新建项目时，要改变默认Option设置，对付_菜单的_的_文件夹进行相应选项的选择。7对象属性是指_。对象的性质来描述和反响对象特点的参数8对

6、象的方法是指_。对象的动作行为。9在刚建立项目时，使窗体上的全部控件拥有相同的字体格式，对付_的_属性进行设置。Formfont10属性窗口的属性能够依照_和_次序排列。分类次序、字母次序11当对命令按钮的Image属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原因是对_属性设置为_。FlatStyle、system12若已建立了Form1，Form2两个窗体，默认启动窗体为Form1。经过_菜单的_的_选项卡，可将启动对象设置为Form2。项目菜单、属性、常例13在文本框中，经过_属性能获得当前插入点所在的地址。SelectionStart14要对文本框中已有的内容进行编写，按下键

7、盘上的按钮，就是不起作用，原因是设置了_的属性为True。readlony15在窗体上已建立多个控件，如TextBox1，Label1，Button1，若要使程序一运行焦点就定位在Button1控件上，对付Button1控件设置_tabindex_属性的值为_0_。16要同时保留解决方案中的每个文件，最方便的方法是单击工具栏的_全部保留_按钮。第二章VB.NET语言基础温次序结构一.选择题1在一个语句内写多条语句时，每个语句之间用（B）符号分开。A，B.：C.、D.;一语句要在下一行连续写，用（C）符号作为续行符。A.+B.-C._D.优选文档下面属于合法的变量名的是（A）。D.X-Y下面属于

8、不合法的整常数的是(D).A.100B.&O100C.&H100D.%100下面属于合法的字符常数的是(B)。.ABC$B.“ABC”C.ABCD.ABC下面属于合法的单精度型变量的是（A）。A.mun！B.sum%D.xinte$D.mm#7.下面属于不合法的双精度常数的是（D）。.100#B.100.0C.1E+2D.100.0D+28.表达式16/4-25*8/4Mod52的值为(B)。.数学关系表达式x10表示成正确的VB.NET表达式为(B)。A3=x10B.3=xANDx=3ORx10D.3=xAND=0ANDa+cb+3ORNOTd的值是_。5Int(-3.5)、Int(3.5)

9、、Fix(-3.5)、Fix(3.5)、Round(3.5)的值分别是_、_、_、_、_、_。6表达式UCase（Mid（“abcdefgh”，3，4）的值是_。7在直角坐标系中，x、y是坐标系中任意点的地址，用x和y表示在第一象限或第三象限的表达是_。要显示当前机器内日期，函数为_。11.计算离你毕业（假定2008年6月30日毕业）还有多少个星期的函数表达式是_。12.表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为_。下面程序随机产生一个三位正整数，此后逆序输出，产生的数与逆序数同时显示。比方，产生246，输出是642。SubButton1_Click(.)HandlesButt

10、on1.ClickDimx,yAsIntegerx=Int(_)y=(xMod10)*100+_+x100MsgBox(“x=”&x&x“y=”&y)EndSub第三章选择结构一.选择题1VB.NET供应了结构化程序设计的三种基本结构，三种基本结构是（D）。A递归结构，选择结构，循环结构B选择结构，过程结构，次序结构C过程结构，输入输出结构，转向结构D选择结构，循环结构，次序结构2依照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。Aif语句B.For语句C.GoTo语句D.SelectCase语句3.下面程序段运行后，显示的结果是（A）。Dimx%IfxThenMsgBox(x)

11、ElseMsgBox(x+1)A.1B.0C.-1D.显示出错信息4语句“Ifx=1Theny=1”以下说法正确的选项是（C）。“x=1”和“y=1”均为赋值语句B“x=1”和“y=1”均为关系表达式C“x=1”为关系表达式“y=1”为赋值语句D“x=1”为赋值语句“y=1”为关系表达式5下面程序段显示的结果是（A）。Dimx%x=Int(Rnd)+5SelectCasexCase5MsgBox(“优秀”)Case4MsgBox(“优秀”)Case3MsgBox(“经过”)CaseElse.优选文档MsgBox(“不经过”)EndSelectA.优秀B.优秀C.经过D.不经过6.下面If语句统

12、计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（D）。A.Ifsex=“男”Andage0Thenn=n+1B.Ifsex=“男”Andage40Andduty=“教授”orduty=“副教授”Thenn=n+1C.Ifsex=“男”Andage40AndRight(duty,2)=“教授Thenn=n+1D.Ifsex=“男”Andagey,x,y)B.IfxyThenMax1=xElseMax1=yC.Max1=Math.Max(x,y)C.Ify=xThenMax1=yMax=x8.下面三个程序设计段计算学生外语附加分：外语6级（l

13、ang6）为“优秀”加15分，“经过”加10分；外语4级（lang4）为“优秀”加8分，“经过”加4分。外语附加分只能计一次最高的分数。（A）能正确计算。A.Iflang6=“优秀”Thenlangf=15ElseIflang6=“合格”Thenlangf=10ElseIflang4=“优秀”Thenlangf=8ElseIflang4=“合格”Thenlangf=4EndifBIflang4=“合格”Thenlangf=4ElseIflang4=“优秀”Thenlangf=8ElseIflang6=“合格”Thenlangf=10ElseIflang6=“优秀”Thenlangf=15End

14、ifC.Iflang6=“优秀”Thenlangf=15Iflang6=“合格”Thenlangf=10Iflang4=“优秀”Thenlangf=8Iflang4=“合格”Thenlangf=4langf=0D.Iflang4=“合格”Thenlangf=4Iflang4=“优秀”Thenlangf=8Iflang6=“合格”Thenlangf=10Iflang6=“优秀”Thenlangf=15Elselangf=0.优选文档Endif下面语句执行后，变量w中的值是（B）。w=Choose(Weekday(“2005,5,1”),“Red”,“Green”,“Blue”,“Yellow”)

15、A.NothingB.“Red”C.“Green”D.“Yellow”二.填空题1当C字符串变量中第三个字符是“C”时，利用MsgBox显示“Yes”，否则显示“No”。If_ThenMsgBox(“yas”)ElseMsgBox(“No”)Mid(c，3，1)=“C”2程序运行后输出的结果是_。x=Int(Rnd)+3Ifx28Theny=x2+1Ifx2=9Theny=x2-2Ifx20ThenMsgBox(_)ElseMsgBox(“右括号多于左括号”&count1&“个”).优选文档EndIfExitSubEndIfEndSub该题中统计括号个数的变量count1若在过程内声明，程序会

16、产生什么结果？5输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按Enter键结束，显示结果，大、小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。DimCountY%,CountC%SubTextBox1_KeyPress()HandlesTextBox1.KeyPressDimcAsCharc=_If“A”=cAndc20y=sqrt(3x)-2当10=x=201/2+|x|当x10SubButton1_Click(.)HandlesButton1.ClickDimx!,y!x=Val(TextBox1.Text)If_Theny=x*x+3*x+2El

17、seIf_Theny=1/2+Math.Abs(x)Elsey=Math.Sqrt(3*x)-2EndIfMsgBox(“y=”&y)EndSub.优选文档SubButton1_Click(.)HandlesButton1.Clickx=Val(TextBox1.Text)SelectCasexCase_y=x*x+3*x+2Case_y=1/2+Math.Abs(x)CaseElsey=Math.Sqrt(3*x)-2EndSelectMsgBox(“y=”&y)EndSub7输入三角形的三边a、b、c的值，依照其数值，判断可否组成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、

18、直角三角形、任意三角形。SubButton1_Click(.)HandlesButton3.ClickDimx%,y%,z%x=Val(InputBox(“inputx”)y=Val(InputBox(“inputx”)z=Val(InputBox(“inputx”)If_ThenMsg(“能组成三角形”)If_ThenMsg(“是等边三角形”ElseIf_ThenMsg(“是等腰三角形”)ElseIfMath.Sqrt(x*x+y*y)=zOrMath.Sqrt(y*y+z*z)=xOrMath.Sqrt(x*x+z*z)=yThenMsg(“是直角三角形”)Else_EndIfElseMs

19、gBox(“不能够够组成三角形”)EndIfEndSub8输入一个年份，判断它可否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。同时请用日期型变量的IsLeepYear成员来考据。SubButton1_Click(.)HandlesButton3.ClickDimdAsDated=NowIf_Ord.yearMod400=0ThenMsgBox(d.Year&“是闰年”)ElseMsgBox(d.Year&“是平年”)EndIfIfd.IsLeepYear（_）Then.优选文档MsgBox(d.Year&“是闰年”)ElseMsgB

20、ox(D.Year&“是平年”)EndIfEndSub第四章循环结构一.选择题1以下（）是正确的For.Next结构。Forx=1ToStep10.NextxForx=3To-3Step-3.NextxForx=1To10re:.NextxIfi=10ThenGoToreForx=3To10Step3.Nexty2.以下循环体能正常结束的是（C）。i=5Doi=i+1LoopUntili0i=6Doi=i-2LoopUntili=1下面程序段的运行结果为（）。label1.text=“”Fori=3To1Step-1Label1.Text&=Space(5-i)Forj=1To2*i-1.优选

21、文档Label1.Text&=”*”NextjLabel1.Text&=vbCrLfNextiA.*B.*C.*D.*当在文本框输入“ABCD”四个字符时，窗体上显示是（C）。SubTextBox1_TextChanged(.)HandlesTextBox1.TextChangedLabel1.Text&=TextBox.TextEndSubD.ABABCABCDABCD以下程序段不能够够分别正确显示1！、2！、3！、4！的值的是（）。A.Fori=1To4n=1Forj=1Toin=n*jNextjMsgBox(n)NextiB.Fori=1To4Forj=1Toin=1n=n*jNextj

22、MsgBox(n)Nextin=1Forj=1To4n=n*jMsgBox(n)Nextjn=1j=1DoWhilej=4n=n*jMsgBox(n)j=j+1Loop二.填空题1要使以下For语句循环执行20次，循环变量的初值应该是：Fork=_33_To-5Step-2.优选文档下面程序段显示_个“*”。Fori=1To5Forj=2ToiMsgBox(“*”)NextjNexti以下第40句共执行了_4_次，第41句共执行了_12_次。30Forj=1To12Step340Fork=6To2Step-241MsgBox(j&“”&k)42Nextk43Nextj4.输入任意长度的字符串，

23、要求将字符次序倒置。比方，将输入的“ABCDEFG”变换成“GFEDCBA”。SubButton1_Click(.)HandlesButton1.ClickDima$,I%,c$,d$,n%a=InputBox$(“输入字符串”)n=_d=”ForI=1To_c=Mid(a,I,1)d=d&cNextIMsgBox(d)EndSub5找出被3、5、7除，余数为1的最小的5个正整数。SubButton1_Click(.)HandlesButton1.ClickDimCountN%,n%CountN=0n=1Don=n+1If_ThenMsgBox(n)countN=CountN+1EndIfLo

24、op_EndSub6.有个长阶梯，若是每步跨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）的逻辑关系即可。SubButton1_Click(.)HandlesButton1.ClickDimn%,m%Forn=7To10000Step7.优选文档IfnMod2=1And_ThenMsgBox(n)_EndIfNextEndSub8-某班在一周中6天内考三门分别为x

25、、y、z的考试课程，规定一天只能考一门，先考x，后考y，最后考z，最后一门最早周五考。用计算机排考试，列出满足条件的方案数。SubButton1_Click(.)HandlesButton1.ClickDimx%,y%,z%,n%n=0Label1.Text=“”Forx=1To4Fory=_To5Forz=5To6If_AndyzThenLabel1.Text&=x&space(9)&y&Space(9)&z&vbCrlf_EndIfNextNextNext_“满足条件的方案为；”&nEndSub9某次大奖赛，有7个评委打分，以下程序是针对一名参赛者，输入7个评委的打分分数，去掉一个最高分、

26、一个最低分，求出平均分，为该参赛者的得分。SubButton1_Click(.)HandlesButton1.ClickDimmark!,aver!,max1!,min1!aver=0Fori=1To7mark=InputBox(“输入第”&i&“位评委的打分”)Ifi=1Thenmax1=mark:_ElseIfmarkmax1Then_EndIfEndIf_Nextiaver=_MsgBox(aver)EndSub.优选文档第五章数组一.选择题1以下数组声明语句中正确的选项是（B。A.Dima3,4AsIntegerB.Dima(3,4)AsIntegerC.Dima3,4AsIntege

27、rC.Dima(34)AsInteger2.以下数组声明语句中正确的选项是（B。A.Dim(9)AsSingle=1,2,3,4,5,6,7,8,9,10B.Dima()AsSingle=1,2,3,4,5,6,7,8,9,10C.Dima()AsSingle=1,“a”,“bc”2.,4,5,6,7,8,9,10D.Dima(,)AsInteger=1,2,3,4,5,6,7,8,9,10以下数组声明语句中，数组a包括元素的个数有（C。Dima(3,0,5)以下程序输出的结果是（）。Dima()AsInteger=1,2,3,4,5,6,7Fori=0ToUBound(a)a(i)a=(i)

28、*a(i)NextiMsgBox(a(i)A.49B.0C.不确定D.程序出错5以下程序输出的结果是（）。SubButton1_Click(.)HandlesButton1.ClickDimi%,j%Dima()AsInteger=0,1,2,3,4,5,6,7,8,9,b(3,3)AsIntegerLabel1.Text=“”Fori=1To3Label1.Text&=Space(i*3)Forj=iTo3b(i,j)=a(i*j)Label1.Text&=Space(6-Len(b(i,j)&b(i,j)NextjLabel1.Text&=vbCrLfNextiEndSubA.123B.1

29、C.147D.12345645246467897893699.填空题1在一维数组中利用移位的方法显示如图全部的结果。SubButton1_Click(.)HandlesButton1.ClickDima(7)AsInteger,i%,t%,j%Label1.Text=“”Fori=1To7.优选文档a(i)=iLabel1.Text&=a(i)&“”NextiLabel1.Text&=vbCrLfFori=1To7t=_Forj=6To1Step-1_Nextja(1)=_Forj=1To7Label1.Text&=a(j)&“”NextjLabel1.Text&=_NextiEndSub下面

30、程序对已知数组a（），删除数组中某个元素。SubButton1_Click(.)HandlesButton1.ClickDima()AsInteger=1,6,8,3,5,9,10,2,7,4,Key%,i%,j%Key=Val(InputBox(“输入要删除的值”)Fori=0ToUBound(a)If_ThenForj=i+1ToUBound(a)_NextjReDim_MsgBox(“删除完成”)ExitSubEndIfNextiMsgBox(“找到不要删除的元素”)EndSub矩阵相乘两个矩阵能相乘的必要条件是：前一个矩阵的列数等于后一个矩阵的行数。比方，已知A为nk的矩阵，B为km的

31、矩阵，AB的结果C矩阵为nm，即：51015520350800A=B=1025C=20253015308001925SubButton1_Click(.)HandlesButton1.ClickDima%(2,3),b%(3,2),c%(2,2),i%,j%,n%,k%Label1.Text=“”n=5Fori=1To2Forj=1To3a(i,j)=n.优选文档_n=_NextjNextiFori=1To2Forj=1To2c(i,j)=0Fork=1To3c(i,j)=c(i,j)+_NextkLabel1.Text&=c(i,j)&“”NextjLabel1.Text&=vbCrLfNe

32、xtiEndSub下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。SubButton1_Click(.)HandlesButton1.ClickDimi%,n%,m%Dima()AsInteger=9,17,15,13,11,9,7,5,3,1n=UBound(a)ReDim_m=Val(InputBox(“输出欲插入的数”)Fori=UBound(a)-1ToStep-1Ifm=a(i)Then_Ifi=0Thena(i)=mElse_ExitForEndIfNextiFori=0To_Label1.Text&=a(i)&“”NextiEndSub改进的冒泡法排序。在

33、教材中已介绍选择法、冒泡法。上例使用了插入法排序。本例使用改进的冒泡法排序，冒泡法排序在每一轮排序时将相邻的两个数比较，当次序不对就交换地址，出了内循环，最大数已沉底，小数上浮；每一轮仅使沉底的数确定了地址，有个n个数，外循环要进行n-1轮排序。为了提高效率，若在某一轮排序时，未发生排序地址交换，说明欲排序的序列已有序，排序就可以结束。在程序中增加一个逻辑变量来进行判断即可。程序以下：SubButton1_Click(.)HandlesButton1.ClickDimTagAsBoolean,n%,j%,i%,t%Dima()AsInteger=1,5,6,7,4,13,23,26,31,51

34、n=UBound(a)Fori=0Ton-1.优选文档Tag=FalseForj=0Ton-1-iIfa(j)a(j+1)Then_a(j+1)=tEndIfNextjIfNotTagThen_NextiFori=0ToUBound(a)Label1.Text&=a(i)&“”NextiEndSub6.随机产生15个不重复的A-Z之间的字母（包括A，Z的大写字母），存放在字符数组中。实现的思想是，每产生一个字母，在数组中查找已产生的字母。若找到，刚产生的字母作废，重新产生；若是找不到，则产生字母放入数组中。SubButton1_Click(.)HandlesButton1.ClickDims(

35、14)AsChar,cAsChar,n%,j%s(0)=Chr(Int(Rnd()*26+65)Forn=1To14re:c=_Forj=0To_若找到有重复字母,重新产生Ifs(j)=cThen_Nextjs(n)=_没有重复的加入数组中NextnForj=0To14Label1.Text&=s(j)&“”NextjEndSub7.随机产生15个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。比方，连续5个H字母显示为5*H，以以下列图。数组a（）用于积蓄随机产生字母。SubButton1_Click(.)Handles.ClickConstN=14Dima(N)AsC

36、har,cAsCharDimcount%,i%,k%Label1.Text=“”Fori=0ToN.优选文档a(i)=_Label1.Text&=a(i)&“”NextiLabel1.Text&=vbCrLfFori=0ToN-1k=iForj=i+1ToNIfa(j)a(k)Then_Nextjc=a(i):_:a(k)=cNextiFori=0ToN输出排序的结果Label1.Text&=a(i)&“”NextiLabel1.Text&=vbCrLfi=0DoWhilei=N压缩显示相同元素count=1IfiNThenj=i+1DoWhilea(i)=a(j)count=_IfjNThe

37、nj=j+1ElseExitDoLoopIfcount=1ThenLabel1.Text&=a(i)&“”ElseLabel1.Text&=_EndIfi=_LoopEndSub第六章过程一选择题1设有以下说明：PublicSubF1(ByRefn%).n=3*n+4.EndSubSubButton1_Click(.)HandlesButton1.ClickDimn%,m%n=3m=4.优选文档.调用F1语句.EndSub则在Button1_Click事件中有效的调用语句是（）。A.F1(n+m)B.F1(m)C.F1(5)D.F1(m,n)下面子过程语句说明最合理的是（）。A.Subf1(B

38、yValn%()B.Subf1(ByRefn%)AsIntegerC.Functionf1%(ByReff1%)C.Functionf1(ByValn%)3.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（）。A.Subf2(ByValn%,ByValm%)B.Subf1(ByRefn%,ByValm%)B.Subf1(ByRefn%,ByRefm%)D.Subf1(ByValn%,ByRefm%)在过程中定义的变量，若希望在走开该过程后还能够够保留过程中的局部变量的值，则应使用（）要点字在过程中定义过程级变量。下面过程运行后显示的结果是（）。PublicSubF1(ByRefn%

39、,ByValm%)n=nMod10m=m10EndSubSubButton1_Click(.)HandlesButton1_ClickDimx%,y%x=12:y=34CallF1(x,y)MsgBox(x&“”&y)EndSubA.234B.1234C.23D.123以下程序，运行的结果是（）。SubButton1_Click(.)HandlesButton1.ClickMsgBox(p1(3.0,7)EndSubPublicFunctionp1!(ByValx!,ByValn%)Ifn=0Thenp1=1ElseIfMod2=1Thenp1=x*p1(x,n2)Elsep1=p1(x,n2

40、)xEndIfEndIfEndFunctionA.18B.7C.14D.27以下程序，运行的结果是（）。Dima%,b%,c%.优选文档PublicSubp1(ByRefx%,ByRefy%)Dimc%x=2*x:y=y+2:c=x+yEndSubPublicSubp2(ByRefx%,ByValy%)Dimc%x=2*x:y=y+2:c=x+yEndSubSubButton1_Click(.)HandlesButton1.Clicka=2:b=4:c=6Callp1=(a,b)MsgBox(“a=“&a&“b=”&b&Callp2(a,b)MsgBox(“a=“&a&“b=”&b&EndSu

41、bA.a=2b=4c=6B.a=4b=6c=10a=4b=6c=10a=8b=8c=16C.a=4b=6c=6D.a=4b=6c=14a=8b=6c=6a=8b=8c=68以下程序，运行后各变量的值依次为（）。PublicSubProc(ByRefa%()Statici%Do“c=”&c)“c=”&c)a(i)=a(i)+a(i+1)i=i+1LoopWhilei2EndSubSubButton1_Click(.)HandlesButton1.ClickDimm%,i%,x%(10)Fori=0To4x(i)=i+1NextiFori=1To2CallProc(x)NextiFori=0To4

42、MsgBox(x(i)NextiEndSubA.34756B.35745C.23445D.45678二填空题以下程序，运行显示的值是_，函数过程的功能是_PublicFunctionf(ByValn%,ByValr%)Ifn0Then.优选文档f=f(nr,r)MsgBox(nModr)EndIfEndFunctionSubButton1_Click(.)HandlesButton1.ClickMsgBoxf(f(100,8)EndSub以下程序，运行显示的值是_，函数过程的功能是_。PublicFunctionf(ByValm%,ByValn%)DoWhilemnIfmnThenm=m-nE

43、lsen=n-mEndIfLoopf=mEndFunctionSubButton1_Click(.)HandlesButton1_ClickMsgBox(f(24,18)EndSub3.两个质数的差为2，称此对质数为质数对，以下程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m可否为质数。PublicFunctionIsP(ByValm)AsBooleanDimi%_Fori=2ToInt(Math.Sqrt(m)If_ThenIsP=FalseNextiEndFunctionSubButton1_Click(.)HandlesButton1.ClickDimi%,p1,

44、paAsBooleanp1=IsP(3)Fori=5To100Step2p2=IsP(i)If_ThenLabel1.Text&=i-2&“”&ip1_NextiEndSub4.子过程MoveStr()是把字符数组搬动m个地址。当Tag为True，左移，则前m个字符移到字符数组尾，比方，“abcdefghij”左移三个地址后，结果为“defghijabc”；当Tag为False，右移，则后m个字符移到字符数组前，如“abcdefghij”右移三个地址后，结果为“hijabcdefg”。子过程以下：PublicSubMoveStr(ByRefa$(),ByValm%,ByValTagAsBool

45、ean)Dimi%,j%,t$.优选文档If_ThenFori=1Tom_Forj=0To_a(j)=a(j+1)Nextj_NextiElseFori=1Tom_Forj=UBound(A)_a(j)=a(j-1)Nextj_NextiEndIfEndSub5.子过程CountN用来统计字符串中各数字字符（“0”“9”）出现的个数；主调程序实现在TextBox1框输入的文本，每次单击“统计”按钮，调用该子过程，在Label1框中显示结果，运行界面以以下列图SubButton1_Click(.)HandlesButton1.ClickDimn(9)AsInteger,i%CallCountN(

46、n,TextBox1.Text)Label2.Text=“”Fori=0To9Ifn(i)ThenLabel2.Text&=_&vbCrLfEndIfNextiEndSubSubCountN(_)DimcAsChar,i%,m%,j%Fori=0To9num(i)=0Nextim=Len(s)Fori=1Tomc=_Ifc=“0”Andc0m=_求的n的逆序列i=_LoopIfmModn=0Andmn1Then是否是倍数tag=_EndIfEndSub7.以下程序中的子过程Mysplit（s,sAarry（），n）用于实现函数Split()的功能（字符分别到数组），马上数字字符串s按分开符“，

47、”分别到sArray数组中，分其他个数为n,主调程序将文本框输入的数字字符串进行分别，结果在TextBox2控件显示，以以下列图。SubButton1_Clink(.)HandlesButton1.ClickDimstr1AsString,num(100)AsInteger,n%,i%Str1=Tim(TextBox1.Text)CallMySplit(Str1,num,n)TextBox2.Text=“”Fori=0TonTextBox2.Text&=num(i)&vbCrLfNextEndSubSubMySplit(ByValstr1AsString,ByRefsn()AsInteger,

48、ByRefnAsInteger)Dimi%,j%,ch$i=0j=InStr(str1,”,”)DoWhilej0sn(i)=Val_.优选文档str1=Mid(str1,j+1)i=i+1j=_Loopsn(i)=Val(str1)n=_EndSub8.以下过程将一个有序数组中重复出现的数进行删除，删得只剩一个。主调程序运行后结果以以下列图。解题思想是从数组最右边往左边两两比较，若相同，右边的数依次往左移，数组上界元素减1，实现删除。SubButton1_Clink(.)HandlesButton1.ClickDimb()AsInteger=23,45,45,60,70,70,70,90,i

49、%,n%Label1.Text=“”Callp(b,n)Fori=0TonLabel1.Text&=b(i)&“”NextiEndSubSubp(_)Dimm%,k%n=UBound(a)m=nDoWhile(_)从右往左比较，压缩Ifa(m)=a(m-1)ThenFork=_a(k-1)=a(k)Nextkn=_EndIfm=_LoopReDimPreservea(n)EndSub9.在教材中介绍的选择法、冒泡法排序都是在欲排序的数组元素全输入后，再进行排序。而插入排序是每输入一个数，马上插入到数组中，数组在输入过程中总是有序，界面如图6.11所示。在插入排序中，涉及到查找、数组内数的搬动和

50、元素插入等算法。提示此例要点编一个插入排序过程，插入排序法的思路是：数组中已有n个有序数，当输入某数x时：（1）找x应在数组中的地址j；.优选文档2）n-j在数依次此后移，使地址为j的数让出；（3）将数x放入数组中应有的地址j，一个数插入完成。关于若干个数输入，只要调用插入排序过程即可。DimnAsIntegerSubTextBox1_KeyPress()HandlesTextBox1.KeyPrssStaticbb!(20)Dimi%Ifn20ThenMsgBox(“数据太多！，1，“”警告“)EndEndIfIfe.KeyChar=Chr(13)Thenn=n+1insert(_)Labe

51、l4.Text&=TextBox1.Text&vbCrLf显示刚输入的数Fori=1Ton显示插入后的有序数Label5.Text&=bb(i)&“”NextiLabel5.Text&=_TextBox1.Text=“”EndIfEndSubSubinsert(ByRefa()AsSingle,ByValx!)Dimi%,j%j=1查找x应插入的地址jDoWhile_j=j+1LoopFori=n-1TojStep-1n-j个元素往又移_Nextia(j)=xx插入数组中的第j个地址EndSub.优选文档第七章用户界面设计一选择题1以下控件中，没有Text属性的是（）。A框架B.列表框C.复选

52、框D.准时器2复选框的CheckState属性为CheckState.Indeterminate时，表示（）。A复选框未被选定B.复选框被选中C复选框被选定并有灰色的勾D.复选框不能够够够操作3在以下关于单项选择按钮和复选框的说法中，错误的选项是（）。A某个单项选择按钮被单击必定会触发它的CheckedChangedB一个单项选择按钮状态发生变化，同一组中必有另一个单项选择按钮的状态也发生变化C某个复选框被单击必定会触发它的CheckedChangedD一个复选框的状态发生变化，不会影响其他复选框的状态4在设计状态，列表框中的选项能够经过（）属性设置。D.Items在下面对列表框（ListBo

53、x1）的操作中，正确的语句是（）。B.ListBox1.Items.Remove(4)C.ListBox1.Items.Remove(“计算机”)D.ListBox1.Items.Add(1,“打印机”)6.引用列表框（ListBox1）最后一个数据项应使用（）。A.ListBox1.Items(ListBox1.Items.Count)B.ListBox1.Items(ListBox1.Items.Count-1)D.ListBox1.Items(ListBox1.SelectedIndex)在以下说法中，正确的选项是（）。A在程序运行时期，能够经过适合的设置让时钟控件显示在窗体上B若单击某

54、个单项选择按钮，则该单击按钮的CheckedChanged事件必定被触发C在列表框中能够将项目按字母排序大到小排列D框架也有Click和DoubleClick事件8在以手下性和事件中，属于转动条和进度条共有的是（）。D.Maximum以下关于准时器的说法中，正确的选项是（）。A当Enabled属性为False时，不产生Tick事件B在程序运行时不能够见，这是由于Visible属性为FalseC当Interval属性为0，则Tick事件不会发生D经过适合的设置能够将Interval属性的单位改为秒10以下正确的语句是（）。A.OpenFileDialog1.Filter=AllFiles|*.*

55、|Pictures(*.Bmp)|*.BmpB.OPenFileDialog1.Filter=“AllFiles”|”*.*“|”Pictures(*.Bemp)”|”*.BmpC.OPenFileDialog1.Filter=“AllFiles|*.*|Pictures(*.Bmp)|*.Bmp”D.OpenFileDialog1.Filter=AllFiles|*.*|Pictures(*.Bmp)|*.Bmp11.在以下关于通用对话框的说法中错误的选项是（）。A能够用ShowDialog方法打开B.能够用Show方法打开C当选择了“取消“按钮后，ShowDialog方法的返回值是Dial

56、ogResult.Cancel.优选文档通用对话框是非用户界面控件12在以下关于菜单的说法中，错误的选项是（）。A每个菜单项都是一个对象，也有自己的属性、事件和方法B除了Click事件之外，菜单项还能够够响应DoubleClick等事件C菜单中的分开符也是一个对象D在程序执行时，若是菜单项的Enabled属性为False，则该菜单项变成灰色，不能够够被用户选择。13假定有一个窗体类Form2，则将它实例化并显示的正确语句为（）。C.Dimf2asForm2D.Dimf2asNewForm2假定Form2中有一个文件框（TextBox1），则另一个窗体接见用户在该文本框中输入的数据的正确代码段是

57、（）。（假定s为字符串变量）C.Dimf2asNewForm2D.Dimf2asNewForm2以下关于键盘事件的说法中，正确的选项是（）。A按下键盘上的任意一个键都会惹起KeyPress事件B按下大键盘上的“1“键和数字键盘的“1”键的e.KeyCode的值相同CKeyDown/KeyUp事件过程中可使用e.KeyCharD.大键盘上“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时，Keypress事件过程中的e.KeyChar为“$”16.在KeyDown/KeyUp的事件过程中，能用来检查Ctrl和F3可否同时按下的表达式为（）。C.e.KeyChar=Keys.F

58、3Ande.KeyCode=Keys.Control填空题1复选框_属性设置为Indeterminate，则变成灰色，并显示一个选中标记。2在程序运行时，若是将框架的属性设置为False，则框架呈灰色，表示框架内的全部对象均被障蔽，不一样样意用户对它们操作。3列表框中选项的序号是从开始的。4表示列表框中最后一项的序号。5方法可除去列表框中的全部选项。6组合框是组合了文本框和列表框的特点而形成的一种控件。风格的组合框不一样样意用户输入列表框中没有的项。7转动条响应的重要事件有和ValueChanged。8当用户单击转动条中的空白时，滑块搬动的增量值由属性决定。9转动条产生ValueChanged

59、事件是由于值改变了。若是要每隔15秒产生一个计时器事件，则Interval属性应设置为。使用方法可打开指定的网页。在LinkLabel控件中，经过属性能够设置超级链接。13若菜单项中的某个字符从前加一个，则该字符成为热键。14在菜单项中Text中，若输入，则菜单项成了分开符。15弹出菜单是经过控件创办的。.优选文档16可经过设置控件的属性将控件与一个弹出菜单建立关系。17隐蔽窗体的方法是。18在多重窗体中，除了能够指定某个窗体作为启动对象外，还能够够够指定作为启动对象。19当用户单击鼠标又键时，在MouseDown、MouseUp、MouseMove事件过程中e.Button的值为。20若同时

60、按下Shift键和其他键，则KeyDown/KeyUp事件过程中为True。21下面程序段是将列表框ListBox1中重复的项目删除，只保留一项。Dimi,jAsIntegerStep-1IfListBox1.Items(i)=ListBox1.Items(j)ThenEndIfNextjNexti下面是一个学生成绩录入程序。它拥有以下的功能：1）文本框中能输入09之间的数字字符。（2）当焦点走开文本框时，能检查录入的成绩可否有效。若成绩不在0100之间，则除去原数据，并且要求重新输入。（3）若文本框左边的复选框未被选定，则文本框不能够够够输入成绩并且不参加计算总分和平均成绩。SubForm1