vb第一章练习题

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

2、tyle C. Name D. Left6. 若要使标签控件显示时不要覆盖窗体的背景图案，. TextB）。要对（C）。D）。A）属性进行设置。A. BackColor B. BorderStyle C. ForeColor7. 若要使命令按钮不可操作，要对（A）属性进行设置。A. EnabledC. BackColor D. Text8. 要使文本框中的文字不能被修改，应对（D）属性进行设置。A. Locked B. Visible C. Enabled D. ReadOnly9. 要使当前Formi窗体的标题栏显示“欢迎使用”，以下（B）语句是正确的。 欢迎使用”. Text= “欢迎使用

3、” 欢迎使用”.Name= “欢迎使用”10. 当运行程序时，系统自动执行启动窗体的（A）事件过程。A. Load B. Click C. UnLoad D. GotFocusB）。11. 当文本框的ScrollBars 属性设置了非 None值，却没有效果，原因是（A. 文本框没有内容MulitLine 属性为FalseB. 文本框的C.文本框的MulitLine 属性为TrueD. 文本框的Locked 属性 True12要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。A. Change B. KeyDown C. Click D. KeyPress13. 在集成环境中

4、创建应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的 窗口是（ C）。A. 窗体布局窗口B 立即窗口C 代码窗口D.监视窗口C)文件夹14. 当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在( 下。A . My Documents B . C . 引例 D . WindowsA)。15. 将调试通过后生成的 .exe 可执行文件放到其他机器上不能运行的主要原因是(运行的机器上面无系统缺少. frm 窗体文件C.该可执行文件有病毒D.以上原因都不对16. 对初学者而言 , 调试程序方便 , 有效的手段是 ( A) 。B.C.D.A.查看资料在可疑的代码处设置断点，逐语

5、句跟踪通过”立即”窗口显示变量的值找老师问原因MSDN窗 口17. 当需要上下文帮助时 ,选择要帮助的 “难题” ,然后按住 ( D ) 键,就可出现 及显示所需 “难题”的帮助信息。A .Help B .F10 C .Esc D. F118. 在代码窗口 , 代码下方有蓝色波浪线表示 ( B) 。A . 对代码设置了格式B. 编译错误C. 逻辑错误D. 运行时错误二. 填空题是完全面向对象的程序设计语言，其最大的特点是。引入了框架技术能让编程人员不必编写代码就可以创建GUI （图形用户界面）。可视化编程技术是由一个或几个项目组成程序。解决方案4.当特性设置后，浮动窗口将自动隐藏。自动隐藏5.

6、 当进入集成环境， 发现没有显示 “ 工具箱”窗口，应选择 _ 选项，使 “工具箱”窗口显示，并最好将其窗口的属性设置为 箱、可停靠菜单的 。 视图、工具6. 新建项目时， 要改变默认 Option 设置， 应对 文件夹进行相应选项的选择。菜单的7对象属性是指。对象的性质来描述和反应对象特征的参数8对象的方法是指。对象的动作行为。9在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对 属性进行设置。 Form font10属性窗口的属性可以按照顺序排列。分类顺序、字母顺序11.当对命令按钮的Image属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原Formi。通过因是对 属性设

7、置为 。 FlatStyle 、 system12 .若已建立了Formi, Form2两个窗体，默认启动窗体为Formi。通过菜单的的选项卡，可将启动对象设置为Form2。项目菜单、属性、常规13在文本框中，通过属性能获得当前插入点所在的位置。SelectionStart14要对文本框中已有的内容进行编辑，按下键盘上的按钮， 就是不起作用，原因是设置了的属性为 True 。 readlony15在窗体上已建立多个控件，如 TextBox1 ，Label1 ，Button1 ，若要使程序一运行焦点就 定位在 Button1 控件上，应对 Button1 控件设置 tabindex 属性的值为

8、0全部保存16要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的 按钮。第二章 语言基础和顺序结构一. 选择题1在一个语句内写多条语句时，每个语句之间用（B）符号分隔。A，B.C.D. ;2. 一语句要在下一行继续写，用（C）符号作为续行符。C. _3. 下面属于合法的变量名的是（A ）。A .X_yz B. 123abc C .Integer4. 下面属于不合法的整常数的是A .100 B. &O100 C. &H100 D. %1005. 下面属于合法的字符常数的是 （ B ）。A .ABC$ B.“ABC” C. ABC6. 下面属于合法的单精度型变量的是（A）。A. mun ！

9、 B. sum% D. xinte$ D. mm#7. 下面属于不合法的双精度常数的是（D）。A .100#+2表达式16/4-2人5 * 8/4 Mod 52 的值为（B）。A . 14 B . 49 .数学关系表达式3W x 10表示成正确的表达式为（B ） OA 3=x10 B. 3=x AND x=3 OR x10 =x AND =0 AND a+cb+3 OR NOT d 的值是5. I nt、Int、Fix、Fix、Rou nd 的值分别是6. 表达式 UCase（Mid（“abcdefgh ”， 3， 4）的值是7. 在直角坐标系中， x、 y 是坐标系中任意点的位置，用 x 和

10、 y 表示在第一象限或第三象限 的表达是10. 要显示当前机器内日期，函数为11. 计算离你毕业（假定 2008 年 6 月 30 日毕业）还有多少个星期的函数表达式是12. 表示 s 字符变量是字母字符（大小写字母不区分）的逻辑表达式为1 3.下面程序随机产生一个三位正整数， 然后逆序输出， 产生的数与逆序数同时显示。 例如， 产生 246，输出是 642。Sub Button1_Click() HandlesDim x, y As Integerx=Int (y=(x Mod 10)*100+x100MsgBox(“ x=” & x & x“ y=” &y)End Sub第三章 选择结构.

11、 选择题1提供了结构化程序设计的三种基本结构，三种基本结构是（D）。A递归结构，选择结构，循环结构B选择结构，过程结构，顺序结构C过程结构，输入输出结构，转向结构D选择结构，循环结构，顺序结构2按照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。Aif 语句 B. For语句C. GoTo语句 D. Select Case语句3.面程序段运行后，显示的结果是（A)。4A.BCD5Dim x%If x Then MsgBox(x) Else MsgBox(x+1)D.显示出错信息语句“ If x=1 Then y=1” 下列说法正确的是（ C）。a / ”x=1”a , ?x=1”a

12、 , ?x=1”a / ”x=1”和“ y=1” 均为赋值语句和“ y=1” 均为关系表达式为关系表达式“ y=1” 为赋值语句为赋值语句“ y=1” 为关系表达式面程序段显示的结果是（A)。Dim x%x=Int(Rnd)+5Select Case xCase 5MsgBox(优秀”If lang4=优秀”Then langf=8Case 4MsgBox(良好”Case 3MsgBox(通过”Case ElseMsgBox(不通过”End SelectA. 优秀B.良好C.通过D.不通过6. 下面 If 语句统计满足性别（ 岁条件的人数，正确的语句是（sex ）男、职称D）。duty )为副

13、教授以上、年龄（ age ）小于 40sex=男”And age0 Then n=n+1sex=男”And age40 And duty= “教授”or duty= “副教授” Then n=n+1sex=男”And age40 And Right(duty,2)=教授 Then n=n+1sex=男”And agey, x, y) B. If xy Then Max1=x Else Max1=yC. Max1=(x, y) C. If y=x Then Max1=y Max=x8. 下面三个程序设计段计算学生外语附加分：外语 6级（ lang6 ）为“优秀”加 15 分，“通 过”加10分；

14、外语4级（la ng4 ）为“优秀”力P 8分，“通过”加4分。外语附加分只能计 一次最高的分数。（A）能正确计算。A. If lang6=优秀”Thenlangf=15ElseIf lang6=合格”Thenlangf=10ElseIf lang4= “优秀”Thenlangf=8ElseIf lang4=合格”Thenlangf=4End ifB If lang4=合格”Thenlangf=4ElseIf lang4=优秀”Thenlangf=8ElseIf lang6=合格”Thenlangf=10ElseIf lang6=优秀”Thenlangf=15End ifC. If lang6

15、= “优秀”Then langf=15If lang6=合格”Then langf=10If lang4=合格”Then langf=4langf=0D. If lang4=合格”Then langf=4If lang6=Elselangf=0End ifIf lang4=If lang6=优秀”Thenlangf=159. 下面语句执行后，变量优秀”合格”w中的值是Then langf=8Then langf=10B）。w= Choose (Weekday(“2005,5,1 ”),Red” ,“Green” ,“Blue” , “Yellow ” )A. NothingB.Red”C.Gr

16、een”D.“ Yellow ”二. 填空题1当C字符串变量中第三个字符是“IfC”时，利用 MsgBox显示“ Yes”，否则显示“ NO。Then MsgBox( “yas” ) Else MsgBox(“No” ) Mid(c ， 3， 1) =“C”2程序运行后输出的结果是 x=Int(Rnd)+3If x28 Then y=x2+1If x2=9 The n y=x2-2If x20 ThenMsgBox(ElseMsgBox(右括号多于左括号” &count1& “个” )Dim CountY% , CountC%Dim c As CharEnd IfExit SubEnd IfE

17、nd Sub 该题中统计括号个数的变量 count1 若在过程内声明，程序会产生什么结果5输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按Enter 键结束，显示结果，大、小写不区分。其中Count Y 中放元音字母个数， Count C 中放其他字符数。Sub TextBox1_KeyPress () Handlesc=If “ A” =c And c20y= sqrt(3x)-2当 10=x=201/2+|x|当 x10Sub Button1_Click() Handlesx=Valy=x*x+3*x+2ElseIfTheny=1/2+(x)Elsey=(3*x)-2End

18、IfMsgBox(“ y=” & y)End SubSub Button1_Click() Handlesx=ValSelect Case xCasey=x*x+3*x+2Casey=1/2+(x)Case Elsey=(3*x)-2End SelectMsgBox(“ y=” & y)End Sub 7输入三角形的三边 a、b、c 的值，根据其数值，判断能否构成三角形。若能，还要显示 三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。Sub Button1_Click() HandlesDim x%, y%, z%x= Val(InputBox(input x” )y= Val(

19、InputBox(input x” )z= Val(InputBox(“t”input x ”)IfThenMsg（ “能构成三角形” ）IfThenMsg(是等边三角形”ThenElseIfMsg（ “是等腰三角形”）ElseIf (x*x+y*y)=z Or (y*y+z*z)=x Or (x*x+z*z)=y ThenMsg(是直角三角形” ）ElseEnd IfElseMsgBox （ “不能构成三角形” ）End IfEnd Sub8输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被 4 整除但不能被 100 整除，或能被 400 整除。同时请用日

20、期型变量的 IsLeepYear 成员来验证。Sub Button1_Click() HandlesDim d As Dated=NowIfOrMod 400=0 ThenMsgBox &是闰年” )ElseMsgBox &是平年” )End IfIf () ThenMsgBox &是闰年” )ElseMsgBox &是平年” )End IfEnd Sub第四章循环结构 一. 选择题1以下()是正确的 For.Next 结构。x=1 To Step 10Next xx=3 To -3 Step -3Next xx=1 To 10re:.Next xIf i=10 Then GoTo rex=3

21、 To 10 Step 3Next y2. 下列循环体能正常结束的是（C）。A. i=5Doi=i+1Loop Until i0D. i=6Doi=i-2Loop Until i=13. 下面程序段的运行结果为（）a ?For i=3 To 1 Step -1&=Space(5-i)For j=1 To 2*i-1Next j&=vbCrLfNext iA. *B. *C.*D. *a*4. 当在文本框输入ABCD四个字符时，窗体上显示是（Sub TextBox1_TextChanged() Handles&=End SubA. ABCD B. AABABCABCD5. 下列程序段不能分别正确

22、显示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 jMsgBox(n)Next iC.n=1For j=1 To 4n=n*jD. n=1j=1MsgBox(n)Next jDo While j=4n=n*jMsgBox(n)j=j+1Loop二. 填空题1要使下列 For 语句循环执行 20 次，循环变量的初值应当是：For k=33 To -5 Step -22. 下面程序段显示个“ * ”。For i=

23、1 To 5For j=2 To iMsgBox(“* ”)Next jNext i3.下列第 40 句共执行了4 次，第 41 句共执行了 _12_次。30For j=1 To 12 Step 340For k=6 To 2 Step -241MsgBox(j &” & k)42 Next kABCDEFG变换成43 Next j 4. 输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“GFEDCB”A。Sub Button1_Click() HandlesDim a$, I%, c$, d$, n%a=InputBox$( “输入字符串” )n=d=”For I=1 Toc=Mid

24、(a,I,1)d=d & cNext IMsgBox(d)End Sub 5找出被 3、 5、 7除，余数为 1 的最小的 5个正整数。Sub Button1_Click() HandlesDim CountN% , n%CountN=0n=1Don=n+1IfThenEnd IfLoopMsgBox(n)countN=CountN+1End Sub6.有个长阶梯，如果每步跨 2 阶最后剩 1 阶，如果每步跨 阶最后剩 3 阶,如果每步跨 5 阶最后剩 4 阶,如果每步跨 阶时恰好走完,显示这个阶梯至少要有多少阶。3 阶最后剩 2 阶，如果每步跨 46 阶最后剩 5 阶，只有当每步跨 7利用其

25、肯定是 7 的倍数这个条件，然后根据同时满足除 2，3，4，5)的逻辑关系即可。n 余 m(n=2，3，4， 5，6；m=1，Sub Button1_Click() HandlesDim n%, m%For n=7 To 10000 Step 7If n Mod 2=1 AndThenMsgBox(n)End IfNextEnd Sub8规定一天只能考一门，先考 列出满足条件的方案数。某班在一周中 6 天内考三门分别为 x、 y、z 的考试课程，x，后考y,最后考Z最后一门最早周五考。用计算机排考试，Sub Button1_Click() HandlesDim x%, y%, z%, n%n=

26、0a ?For x=1 To 4For y=To 5For z=5 To 6IfAnd yz ThenFor i=1 To 7mark=InputBox(输入第” & i & “位评委的打分” )&=x & space(9) & y & Space(9) & z & vbCrlfEnd IfNextNextNext满足条件的方案为； ” & nEnd Sub9某次大奖赛， 有 7个评委打分，以下程序是针对一名参赛者，输入7 个评委的打分分数，去掉一个最高分、一个最低分，求出平均分，为该参赛者的得分。Sub Button1_Click() HandlesDim mark!,aver!,max1!

27、,min1!aver=0If i=1 Thenmax1=mark:ElseIf markmax1 ThenEnd IfEnd IfNext iaver=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 Integer2. 如下数组声明语句中正确的是（B。A. Dim (9) As Single=1,2,3,4,5,6,7,8,9,10B. Dim a( ) As Single=1,2

28、,3,4,5,6,7,8,9,10C. Dim a( ) As Single=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包含元素的个数有（CoDim a(3,0,5)4. 如下程序输出的结果是（） oDim 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)C.不确定 D. 程序出错For i=1 To 3For j=i To35如下程序输出的结果是（） o

29、Sub Button1_Click(. .) HandlesDim i%, j%Dim a( ) As Integer=0,1,2,3,4,5,6,7,8,9,b(3,3) As Integera ?&=Space(i*3)b(i,j)=a(i*j)&=Space(6-Len(b(i,j) & b(i,j)Next j&=vbCrLfNext iEnd SubD. 1 2 3二. 填空题1在一维数组中利用移位的方法显示如图所有的结果。Sub Button1_Click() HandlesDim a(7) As Integer, i%, t%, j%a ?For i=1 To 7a(i)=i&=

30、a(i) & “ ”Next i &=vbCrLft=For i=1 To 7For j=6 To 1 Step -1Next ja(1)=For j=1 To 7=a(j) &“ ”Next j&=Next iEnd Sub2. 下面程序对已知数组 a (),删除数组中某个元素。Sub Button1_Click(. .) HandlesDim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Val(InputBox( “输入要删除的值” )For i=0 To UBound(a)IfThenFor j=i+1 To UBound(a

31、)Next jReDimEnd IfMsgBox(删除完成” )Exit SubNext iMsgBox（ “找到不要删除的元素”）End Sub3. 矩阵相乘AX B的结果C矩阵为n X m,即:B为k X m的矩阵,两个矩阵能相乘的必要条件是:前一个矩阵的列数等于后一个矩阵的行数。例如，已知 为 nX k 的矩阵，5 10 155 20350800A=B=10 25C=20 25 3015 308001925Sub Button1_Click() HandlesDim a%(2,3),b%(3,2),c%(2,2),i%, j%, n%, k%n=5For i=1 To 2For j=1

32、To 3a(i,j)=nn=Next jNext ic(i,j)=0For k=1 To 3c(i,j)=c(i,j)+Next k&=c(i,j) & “ ”Next j&=vbCrLfNext iEnd Sub4. 下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。Sub Button1_Click() HandlesDim i% , n% ,m%Dim a() As Integer=9,17,15,13,11,9,7,5,3,1n=UBound(a)ReDimEnd Ifm= Val(InputBox(输出欲插入的数” )For i=UBound(a) -1 To

33、Step -1If m=a(i) ThenIf i=0 Then a(i)=mElseExit ForNext iFor i=0 To&=a(i) & “ ”Next iEnd Sub5. 改进的冒泡法排序。在教材中已介绍选择法、冒泡法。上例使用了插入法排序。本例使用改进的冒泡法排序， 冒泡法排序在每一轮排序时将相邻的两个数比较， 当次序不对就交换位置， 出了内循环，最 大数已沉底，小数上浮；每一轮仅使沉底的数确定了位置，有个n个数，外循环要进行 n-1轮排序。为了提高效率， 若在某一轮排序时，未发生排序位置交换，说明欲排序的序列已有 序，排序就可以结束。在程序中增加一个逻辑变量来进行判断即可

34、。程序如下：Sub Button1_Click(. .) HandlesDim 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=FalseFor j=0 To n-1-iIf a(j)a(j+1) Thena(j+1)=tNext jIf Not Tag ThenNext iFor i=0 To UBound(a)&=a(i) & “ ”Next iEnd Sub6. 随机产生 15 个不重复的 A-Z 之间的字母（包括 A，Z 的大写字

35、母） ，存放在字符数组中。实现的思想是， 每产生一个字母， 在数组中查找已产生的字母。 若找到， 刚产生的字母作废， 重新产生；如果找不到，则产生字母放入数组中。Sub Button1_Click() HandlesDim 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 ThenNext js(n)=没有重复的加入数组中Next nFor j=0 To 14&=s(j) & “ ”Next jEnd Sub7. 随机产生1

36、5个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显 示。例如，连续5个H字母显示为5*H，如图所示。数组 a ()用于存储随机产生字母。Sub Button1_Click()Const N=14Dim a(N) As Char ,c As CharDim count%, i%, k%For i=0 To Na(i)=&=a(i) & “ ”Next i&=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输出排序的结果&=a (i) &a ?

37、Next i&=vbCrLfi=0Do While i=N压缩显示相同元素count=1If iN Then j=i+1Do While a(i)=a(j)count=If jN Then j=j+1 Else Exit DoLoopIf count=1 Then&=a(i) & “ ”Else&=End Ifi=LoopEnd Sub第六章 过 程 一选择题1设有如下说明：Public Sub F1(ByRef n%)n=3 * n+4End SubSub Button1_Click () HandlesDim n%, m% n=3 m=4调用 F1 语句End Sub则在 Button1_

38、Click 事件中有效的调用语句是（） 。A. F1(n + m) (m) (5) (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. Sub f2(ByVal n%, ByVal m%) B. Sub f1(ByRef n%, ByVal m%)B. Sub f1(ByRef n%, ByRef m%) D. Sub

39、 f1(ByVal n%, ByRef m%)则应使用4. 在过程中定义的变量， 若希望在离开该过程后还能保存过程中的局部变量的值， （）关键字在过程中定义过程级变量。5. 下面过程运行后显示的结果是（） 。Public Sub F1(ByRef n%, ByVal m%)n=n Mod 10m=m10End SubSub Button1_Click(. .) Handles Button1_ClickDim x%, y%x=12: y=34Call F1(x, y)MsgBox(x & “ ” & y)End SubA. 2 34B. 12 34 3 36. 如下程序，运行的结果是（） 。S

40、ub Button1_Click() HandlesMsgBox(p1,7)End SubPublic Function p1!(ByVal x!, ByVal n%)If n=0 Thenp1=1E_se_fMod 2巴 ThenPHX*P(X 22)E_sepl HP 1(X7 n一2)xEnd FunctionDim a%y b%c%() opub=c Sub p二ByRefx%&yRefy%)Dim cfxh2*x- yHy+2 - CHX+yEnd Subpub=c Sub p2(ByRef x%&yva一 y%)Dim cfxh2*x- yHy+26HX+yEnd SubSub B

41、u存ordlc-ick() Hand-esca=PHP b)MsgBox (aa=& a & “ b=” & b &c=”& c)Call p2(a, b)MsgBox (aa=& a & “ b=” & b &c=”& c)End SubA. a=2 b=4 c=6B. a=4 b=6 c=10a=4 b=6 c=10a=8 b=8 c=16C. a=4 b=6 c=6D. a=4 b=6 c=14a=8 b=6 c=6a=8 b=8 c=68如下程序，运行后各变量的值依次为（）Public Sub Proc (ByRef a%()Static i%Doa(i)=a(i)+a(i+1) i=i+1Loop While i2End SubSub Button1_Click() HandlesDim m%, i%, x%(10)For i=0 To 4x(i)=i+1Next iFor i=1 To 2Call Proc(x)Next iFor i=0 To 4MsgBox(x(i)Nex