2005级VB期末试卷(带答案)

VB 程序设计试卷(05级)班级学号姓名成绩一、单项选择题（每小题1分，共30分）请将正确答案按【】中的序号涂写【标准答题卡】，否则不得分。

1．Visual Basic程序设计采用的是【1】编程机制。

A）可视化B）面向对象C）事件驱动D）过程结构化2．要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句【2】。

A）Option Base 0 B）Option ExplicitC）Option Base 1 D）Option Compare3．将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是【3】。

A）Cos(a+b)^2+5*exp(2)B）Cos^2(a+b)+5*exp(2)C）Cos(a+b)^2+5*ln(2) D）Cos^2(a+b)+5*ln(2)4．设a=5，b=4，c=3，d=2，则表达式“3 > 2 * b Or a = c And b <> c Or c > d”的值是【4】。

A）1 B）True C）False D）25．在VB中，同时可以做为数据的输入和输出的控件是【5】。

A）B）C）D）6．以下不具有Picture属性的对象是【6】。

A）窗体B）图片框C）图像框D）文本框7．为了把焦点移到某个指定的控件，所使用的方法是【7】。

A）GetFocus B）Visible C）Refresh D）SetFocus8．为了在按下回车键时执行某个命令按钮的Click事件过程，需要把该按钮的【8】属性设置为True。

A）Value B）Default C）Cancel D）Enabled9．删除列表框中指定的某个列表项，所使用的方法是【9】。

A）Move B）Remove C）Clear D）RemoveItem10．当拖动滚动条中的滑动块时，将触发滚动条的【10】事件。

A）Change B）Move C）Scroll D）SetFocus11．以下叙述中错误的是【11】。

A）双击鼠标可以触发DblClick事件B）控件的名称可以由编程人员设定C）移动鼠标时，会触发MouseMove事件D）窗体或控件的事件的名称可以由编程人员确定12．如果要改变窗体的标题上显示的文字内容，则需要设置的属性是【12】。

A）Caption B）Name C）Text D）Font13．从键盘上输入两个字符串，分别保存在变量str1、str2中。

确定第二个字符串Str2在第一个字符串Str1中起始位置的函数是【13】。

A）Left B）Mid C）String D）Instr14．以下定义数组或给数组元素赋值的语句中，正确的是【14】。

A）Dim a As Variant a=Array(1,2,3,4,5)B）Dim a(10) As Integer a=Array(1,2,3,4,5)C）Dim a%(10)a(1)="ABCDE" D）Dim a(3),b(3) As Integer a(0)=0：a(1)=1：a(2)=2b=a15．以下能正确定义数据类型TelBook的代码是【15】。

A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Type TelBookName String Name StringTelNum Integer TelNum IntegerEnd Type End TelBook16．在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是【16】。

A）空B）abcdefC）abc D）def17．有如下程序段：A=0For J=1 to 20 step 2A=A+J\5NextPrint A运行后，输出的结果是【17】。

A）12 B）16 C）40 D）10018．在窗体上画一个命令按钮，名称为Command1，并编写如下代码：Private Sub Command1_Click()a = 1.5:b = 1.5Call fun(a, b)Print a, bEnd SubPrivate Sub fun(x, y)x = y * yy = y + xEnd Sub运行程序，并单击命令按钮，则输出结果是【18】。

A）2.25 3.75B）1.5 2.25 C）1.5 0.75 D）0.75 1.5 19．在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer, y As Integerx = Val(Text1)Select Case xCase 1, 3y = x ^ 2Case Is >= 10, Is <= -10y = xCase -10 To 10y = -xEnd SelectPrint yEnd Sub程序运行后，向文本框中输入3，然后单击命令按钮，则【19】。

A）输出3 B）输出9C）输出-3 D）程序出错，没有输出20．设x=4，y=6，则以下不能在窗体上显示“A=10”的语句是【20】。

A）Print A = x + y B）Print "A=" ; x + yC）Print "A=" + Str (x + y ) D）Print "A="; & x + y21．设有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integerx = 1: n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是【21】。

A）81 4B）56 3C）28 1 D）243 522．在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()A = InputBox("输入一个数据")B = InputBox("输入一个数据")Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入3和5，则文本框中显示的内容是【22】。

A）35 B）53C）8 D）出错，无显示23．在窗体上画一个复选框，名称为Check1，使用【23】语句可以使复选框处于选中状态（即：带√）。

A）Check1.Value=True B）Check1.V alue=FalseC）Check1.Value=1D）Check1.Value=024．在窗体上画一个列表框和一个命令按钮，名称分别为List1和Command1，然后编写如下事件过程：Private Sub Form_Load()List1.AddItem "项目1"List1.AddItem "项目2"List1.AddItem "项目3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAA"End Sub程序运行后，单击命令按钮，其结果为【24】。

A）把字符串“AAA”添加到列表框中，但位置不确定B）把字符串“AAA”添加到列表框的最后，即“项目3”之后C）把列表框中原来的最后一项（即“项目3”）修改为“AAA”D）把字符串“AAA”插入到列表框的最前面，即“项目1”之前25．执行以下Command1的Click事件过程，在窗体上显示【25】。

Option Base 0Private Sub Command1_Click()Dim aa = Array("a", "b", "c", "d", "e", "f", "g")Print a(1); a(3); a(5)End SubA）abc B）bdf C）ace D）出错26．下列过程语句中，一定按传值方式进行数据传递的语句是【26】。

A）Sub Pro2(a As Integer) B）Sub Pro2(ByRef a As Integer)C）Sub Pro2(ByVal a As Integer)D）Sub Pro2(arr())27．以下叙述错误的是【27】。

A）在KeyUp和KeyDown事件过程中，不能区分大小写字母B）在KeyUp和KeyDown事件过程中，能够识别光标移动键C）KeyPress事件中能够识别是否按下了回车键D）KeyPress事件中能够识别是否按下了Ctrl键或Shift键28．以下关于文件的叙述中，错误的是【28】。

A）顺序文件中的记录一个接一个地顺序存放B）同一个随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D）LOF函数返回文件的字节数29．设菜单中有一个菜单项为“Exit”。

其中Alt+E为该菜单项的快速访问键，即按下Alt 及字母E时，能够执行“Exit”命令，则在菜单编辑器中设置“Exit“命令的方式是【29】。

A）把“名称”属性设置为&Exit B）把“名称”属性设置为E&xit C）把“标题”属性设置为&Exit D）把“标题”属性设置为E&xit 30．在窗体上放置一个名称为Dlg1的通用对话框，再放置一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dlg1.Filter = "工程文件(*.vbp) | *.vbp | 窗体文件(*.frm) |*.frm"Dlg 1.FilterIndex = 1Dlg 1.ShowOpenEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是【30】。