VB期末复习题[1].doc

一、基本概念复习1章序言1.VisualBasic 采用了面向对象编程机制。2.以下不属于Visual Basic 工作模式的是编辑。 A 编辑 B 设计 C 运行 D 中断3.用户可以通过窗体布局窗口来直接调整程序运行时窗体现实的位置。4 企业版 版本的Visual Basic6.0 具有其他两个版本的全部功能，能够开发分布式应用程序。5.Visual Basic 不具有以下特点 面向用户的程序设计方法。A 可视化设计工具 B 结构化的升序设计语言C 支持多种数据库系统的访问D 面向用户的程序设计方法6.VB 开发的工程中不包括下列文件中的 Dbf 。A vbp B frm C Res D Dbf 7.以下不属于Visual Basic系统的文件类型是 .batA）.frm B）.bat C）.vbg D）.vbp8.以下叙述中错误的是：Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性A）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置 2章 简单程序1.以下关于窗体的描述中，错误的是：执行Unload Form1语句后，窗体Form1消失，但仍在内存中A) 执行Unload Form1语句后，窗体Form1消失，但仍在内存中B) 窗体的Load事件在加载窗体时发生C) 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D) 窗体的Height、Width属性用于设置窗体的高和宽2.以下叙述中错误的是：窗体或控件的事件的名称可以由编程人员确定A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定3.如果要改变窗体的标题，则需要设置的属性是：Caption4.以下关于焦点的叙述中，错误的是：如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 （不能输入命令）A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序5. 在设计时将属性窗口上将按钮的 Enabled 属性设置为false,则运行时按钮不起作用。6. 在设计时将属性窗口上将按钮的 Visible _ 属性设置为false,则运行时按钮不可见。7.将窗体的Enabled属性设置为False 后，运行时窗体上的 按钮、文本框等控件就不会对用户的操作作出响应。8.下列操作不能触发一个命令按钮的Click 事件 的是： BA 在按钮上单击鼠标左键 B在按钮上单击右键 C将焦点移动到按钮上按回车 D使用按钮的快捷键9.能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是：Form1.Caption=VisualBasic窗体10.能够触发文本框Change事件的操作是：改变文本框的内容11.为了把焦点移到某个指定的控件，所使用的方法是：SetFocus12.以下叙述中正确的是： AA) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的Name属性的值D) 对象的Name属性值可以为空13.在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示FormLoad事件过程模板。14.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtAKeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是：按下键盘上的某个键15.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click() Move 500，500End Sub 程序运行后，单击命令按钮，执行的操作为：窗体移动到距屏幕左边界、上边界各500的位置 3章 数据类型1 以下关于变量作用域的叙述中，正确的是： BA) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件2 设x=4,y=8,z=7，以下表达式的值是：False xz) Or zAbC B) thetheyC) VISUAL=UCase(Visual) D) IntegerInt4 设a=3,b=5，则以下表达式值为真的是 BA) a=b And b10 B) (ab)Or(b0)C) (a0) D) (-3+5a)And(b0)5 设有如下变量声明 Dim TestDate As Date为变量TestDate正确赋值的表达方式是 AA) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)6 表达式4+5 6 * 7 / 8 Mod 9 的值是 BA) 4 B) 5 C) 6 D) 77.以下语句的输出结果是：032,548.50Print Format $(32548.5,“000,000.00”)8.以下声明语句中错误的是 BA）Const var1=123 B）Dim var2 = ABCC）dim a() as integer D）Static var3 As Integer9.下列可作为Visual Basic变量名的是 DA）A#A B）4A C）?xy D) constA10.以下合法的Visual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x11.产生10，37之间的随机整数的 VB表达式是：Int(Rnd(1)*28)+10。12.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub FormLoad()Text1 Text=Text2 Text=End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为：12332113.执行语句 Dim X,Y As Integer 后, X被定义为变体类型变量,Y被定义为整型变量 4章 顺序结构1. Print方法可以输出多个表达式值，若使用标准格式输出，各表达式的分割符应是：分号2.使用 Print方法，若希望下一次Print方法的输出结果与本次结果同行输出 则可以使用的分割符是分号。3.inputBox函数返回值的类型为 ：字符串4. 以下 程序段可以实现 X、Y变量值的交换A) Y=X:X=Y B)Z=X:Y=Z:X=Y C)Z=X:X=Y:Y=Z D)Z=X:W=Y:Y=Z:X=Y5. 5以下关于MsgBox的叙述中，错误的是DA) MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量6. 下列程序段 执行结果为 D。x=1:y=2z=x=yprint x;y;zA 2 2 2 B 1 2 1 C False False 1 D 1 2 False7. 在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程:Private Sub Command1Click()a$=software and hardwareb$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$, ,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是 CA) software and hardwar B) software C) hardware D) 18.执行如下语句a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5)将显示一个输入对话框，在对话框的输入区中显示的信息是 CA) Today B) Tomorrow C) Yesterday D) Day before Yesterday9.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click()a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入123和321，输出结果为 12332110.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click()a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 32145611. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click()a = val(InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入123和234，输出结果为 357（catty tip：val是把字符型转化为数值型的函数） 5章 选择结构1.下列程序段执行结果为1 1 。Dim k as integer, a as integerK=1If k=1 then a=a*kIf k=2 then a=2*k+1If k10 C) Case Is10 And Is103. 设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为 :13. 下列程序段 执行结果为 ： 良好x=int(rnd +4)select case xcase 5print “优秀”case 4print “良好”case 3print “通过”case elseprint “不及格”end select4.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is 6Print num;num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是： 1 3 54.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a-1Loop While a 10 Then Exit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是： 38. 设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是： 279.下列程序段的执行结果为11 。K=0For j=1 to 2 For i=1 to 3 K=i+1 Next i For i=1 to 7 K=k+1Next iNext jPrint K10.以下能够正确计算n!的程序是 CA) Private Sub Command1Click() C) Private Sub Command1Click()n=5:x=1 n=5:x=1:i=1Do Dox=x*i x=x*ii=i+1 i=i+1Loop While in Loop While i=nPrint x Print xEnd Sub End SubB) Private Sub Command1Click() D) Private Sub Command1Click()n=5:x=1:i=1 n=5:x=1:i=1Do Dox=x*i x=x*ii=i+1 i=i+1Loop While inPrint x Print xEnd Sub End Sub11.有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1Click()s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是: 512.以下程序的功能是：生成20个100到200之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空For i=1 To 20x=int(rnd*101)+100If x mod 5=0 ThenPrint xS=S+xEnd ifnext iPrintSum=;S13. 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分,请将程序补充完整。Dim x As Single,amax As Single,amin As Singlex=InputBox(“Enter a score”)amax=xamin=xDo While x=0If xamax Thenamax=xEnd IfIf x 6Print num;num = num + 2LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 1 3 515.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 1 3 516. 下列程序Private Sub FormClick() s=0 Do s=(s+1)*(s+2) Number=Number+1 Loop Until s=30 Print Number ; s 第 9 页 共 17 页End Sub运行输出的结果是 3 182 。17. 下列程序Private Sub FormClick() E=l:F=l For J=1 To 3 E=E+F:F=F+E Next J Print E;FEnd Sub该程序的输出结果是13 21。18.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim num As Integernum = 1Do Until num 8Print num;num = num + 2.7LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 1 4 719. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 1 3 5 7章 数组1.以下说法不正确的是B。A 使用Redim 语句可以改变数组的维数B 使用Redim 语句可以改变数组的类型C 使用Redim 语句可以改变数组的每一维的大小D 使用Redim 语句可以对数组中的所有元素进行初始化2. 用下面语句定义的数组的元素个数是： 9Dim A (-3 To 5) As Integer3.下列程序段执行后，元素x(3,3)的值为12。Dim x(3,5)as integer,I as integerFor i=1 to 3For j = 1 To 5 X(i,j)=x(i-1,j-1)+i+jNext j,i4. 以下定义数组或给数组元素赋值的语句中，正确的是 AA) Dim a As Varianta=Array(1,2,3,4,5)B) Dim a(10) As Integera=Array(1,2,3,4,5)C) Dim a%(10)a(1)=ABCDED) Dim a(3),b(3) As Integera(0)=0a(1)=1a(2)=2b=a5.在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是： Index6.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1Click()Dim city As VariantCity=Array(北京，上海，天津，重庆)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是： 上海7.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请填空。Private Sub Option1Click(Index As Integer) Select Case index Case 0 a = 宋体 Case 1 a = 黑体 Case 2 a = 楷体GB2312 End Select text1. fontname =aEnd Sub8.阅读程序Option Base 1Private Sub FormClick()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输入结果为 279.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) c Thend = d + x(i)c = x(i)Elsed = d-cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为 2310. 下列程序Option Base 1Private Sub FormClick()dim aa=Array(19，17，15，13，11，9，7，5，3，1)For i=1 To 10If a(i)3=a(i)3 Or a(i)5=a(i)5 Then Sum=Sum+a(i)EndifNext iPrint sum=；SumEnd Sub运行时输出sum的值是32。11. 下列程序Option Base 1Private Sub CommandlClick()Dim arr(5) As String For i=1 To 5 arr(i)=Chr(Asc(A)+(i-1) Next i For Each bl In arr Print bl; NextEnd Sub程序运行时输出的结果是ABCDE。12. 运行下列程序，回答问题。 Dim A(1 To 3) As String Dim c As Integer,j As Integer A(1) = “3” A(2) = “6” A(3) = “9” c=0 For j=1 to 3 c = c + Val(A(j)Next jPrint c写出程序运行时单击窗体后，窗体Form1上的结果18 8章 过程函数1.想要在过程调用后返回两个结果，下面的过程定义语句可行的是C。A Sub procl(ByVal m) B Sub procl(n) As integerC Sub procl(n, m) D Sub procl(ByValn, m)2. 以下关于函数过程的叙述中，正确的是 AA) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型3.以下关于过程及过程参数的描述中，错误的是 CA) 过程的参数可以是控件名称B) 用数组作为过程的参数时，使用的是“传地址”方式C) 只有函数过程能够将过程中处理的信息传回到调用的程序中D) 窗体可以作为过程的参数4.设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Function在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Static x As Integerx = 10y=5y = f(x)Print x; yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是: 20 405. 阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub CommandlClick()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为: 2 4 6 8（竖着答）6. 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：Private Sub Command1Click() Dim a As Integer a=10 Call g(Form2,a)End SubPrivate Sub g(f As Form,x As Integer) y=IIf(x10,100,-100) f,Show f.Caption=yEnd Sub运行以上程序，正确的结果是BA) Form1的Caption属性值为100 B) Form2的Caption属性值为-100C) Form1的Caption属性值为-100 D) Form2的Caption属性值为100 第 14 页 共 17 页7.假定有以下函数过程：Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S,i,1)+s1 Next i Fun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click() Dim Str1 As String,Str2 As String Str1=InputBox(请输入一个字符串) Str2=Fun(Str1) Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上输出结果为: GEFDCBA8.下面程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，a(5)与a(6)的值互换，在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1Click() Dim a(10)