北语201109考试批次《vb》模拟试卷二及答案

北京语言大学网络教育学院《VB》模拟试卷二注意：1.试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。

请监考老师负责监督。

2.请各位考生注意考试纪律，考试作弊全部成绩以零分计算。

3.本试卷满分100分，答题时间为90分钟。

4.本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。

一、【单项选择题】(本大题共20小题，每小题2分，共40分)在每小题列出的四个选项中只有一个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。

1、一个VB应用程序可以包含几个vbp文件（A）。

[A] 1个[B] 2个[C] 可以没有[D] 不受限制2、在过程定义中用（ C ）表示形参的传值。

[A] Var[B] ByDef[C] ByVal[D] Value3、后缀为.bas的文件表示（ D ）。

[A] 类模块文件[B] 窗体文件[C] 窗体二进制数据文件[D] 标准类模块文件4、当一个工程中含有多个窗体时，其中的启动窗体是（ D ）。

[A] 启动VB时创建的第一个窗体[B] 第一个添加的窗体[C] 最后一个添加的窗体[D] 在“工程属性”对话框中指定的窗体5、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（ B ）。

[A] Password[B] PasswordChar[C] 需要编程来实现[D] 以上都不是6、下列赋值语句正确的是（ B ）。

[A] a+b=c[B] c=a+b[C] -a=b[D] 5=a+b7、要在窗体Form1内显示“myfrm”，使用的语句是（ C ）。

[A] Form.caption="myfrm"[B] Form1.caption="myfrm"[C] Form1.print "myfrm"[D] Form. print "myfrm"8、若使图像框Image控件自动适应其中的图形大小，应（ B ）。

[A] 将控件的 Stretche属性设为True[B] 将控件的 Stretche属性设为False[C] 将控件的 AutoSize属性设为True[D] 将控件的 AutoSize属性设为False9、使用ADO数据模型时，使Recordset和 Connection对象建立连接的属性是（ C ）。

[A] CommandType[B] Open[C] ActiveConnection[D] Execute10、下列控件中不能响应Click事件的是（ C ）。

[A] Frame[B] Label[C] Timer[D] Form11、如果准备读文件，打开顺序文件”text.dat”的正确语句是（ C ）。

[A] open"text.dat" For wrire As # 1[B] open"text.dat" For Binary As # 1[C] open"text.dat" For Input As # 1[D] open"text.dat" For Random As # 112、将数据项“China”添加到列表框（List1中成为第一项，应使用的语句是（ B ）。

[A] List1.AddItem"China",[B] List1.AddItem"China",0[C] List1.AddItem"China",1 [D] List1.AddItem"1,China"13、如果创建了命令按钮数组控件，那么Click事件的参数是（ A ）。

[A] Index[B] Caption[C] Tag[D] 没有参数14、在设计动画时，用时钟控件来控制动画速度的属性是（ B ）。

[A] Enabled[B] Interval[C] Timer[D] Move15、以下叙述中错误的是（ C ）。

[A] 一个工程中只能有一个Sub Main过程[B] 窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体[C] 窗体的Hide方法和Unload方法的作用完全相同[D] 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体16、改变驱动器列表框的Drive属性值，将激活（ C ）事件。

[A] KeyDown[B] KeyUp[C] Change[D] Scoll17、可用来改变坐标度量单位的是（ D ）。

[A] Drawstyle属性[B] DrawWidth属性[C] Scale方法[D] ScaleMode属性18、要退出Do…Loop循环，可使用的语句是（ D ）。

[A] Exit[B] Exit For[C] End Do[D] Exit Do19、Winsock控件的LocalPort属性的作用是（ B ）。

[A] 仅返回所用端口[B] 返回或设置所用端口[C] 仅设置所用端口[D] 返回或设置IP地址20、Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ C ）。

[A] Visible=False 或Enabled=False[B] Interval=0或Visible=False[C] Interval=0或Enabled=False[D] Interval=0且Enabled=False二、【多项选择题】(本大题共5小题，每小题2分，共10分)在每小题列出的四个选项中有二至四个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。

多选、少选、错选均无分。

21、下面关于PictureBox控件与Image控件说法正确的是（ BCD ）。

[A] PictureBox控件可以作为控件容器，因此比Image控件占有资源多[B] Image能自动调整大小以适应载入的图片[C] PictureBox除具有Image的所有特性外，还能作为容器[D] PictureBox能使图片自动调整大小以适应PictureBox的大小22、窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_C1ick（Index As Integer）…End Sub下面关于此过程的参数Index的叙述中错误的是（ ABD ）。

[A] Index为1表示单选按钮被选中，为O表示未选中[B] Index的值可正可负[C] Index的值用来区分哪个单选按钮被选中[D] Index表示数组中单选按钮的数量23、如果准备向随机文件中写入数据，错误的语句是（ ABD ）。

[A] Print # 1,rec[B] Write # 1,rec[C] Put # 1,rec[D] Get # 1,rec24、下面关于标准模块的叙述中正确的是（ ACD ）。

[A] 标准模块中可以声明全局变量[B] 标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程[C] 标准模块中可以包含一些Public过程[D] 一个工程中可以含有多个标准模块25、声明全局变量可使用的语句是（ AB ）。

[A] Global [B] Public [C] Private [D] Dim三、【判断题】(本大题共5小题，每小题2分，共10分)正确的填T，错误的填F，填在答题卷相应题号处。

26、Do While条件.....Loop和DO Until Not 条件.....Loop 两条循环语句，实现循环控制是等效的。

（ T ）27、在打开一个Visual Basic工程进行修改后，当要另存为一个文件名时，可单击“工程另存为”命令，因为其同时会保存窗体文件。

（ T ）28、属性是用来描述和反映对象特征的参数，不同的对象具有各自不同的属性，对象的所有属性都可以在属性窗口中设置。

（ F ）29、Visual Basic中将一些通用的过程和函数编写好并封装作为方法供用户直接调用。

（T ）30、每个对象都有一系列预先定义好的事件，但要使对象能响应具体的事件，则应编写该对象相应的事件过程。

（ T ）四、【填空题】（本大题共7小题，10个空，每空2分，共20分）请将答案填写在答题卷相应题号处。

31、（窗体）是应用程序的对外接口，是其它控件的载体和容器。

32、执行赋值语句a="Visual"+"Basic"后，变量a的值是（VisualBasic）。

33、在Visual Basic语言中有三种形式的循环结构。

其中，若循环的次数可以事先确定，可使用（For⋅⋅⋅Next循环）循环；若要求先判断循环进行的条件，可使用（Do⋅⋅⋅Loop 循环）循环。

34、为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为（Picture1.LoadPicture(“picturefile.jpg”) ）。

35、过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。

模块级或窗体级变量的作用域是（整个模块或窗体），全局变量在整个应用程序中有效，其作用域是（整个应用程序（或工程中所有的模块和所有的过程））。

36、VB提供了结构化程序设计的三种基本结构，这三种基本结构是选择结构、（顺序结构）、（循环结构）。

37、将图片框的AutoSize属性设置成（TRUE ）时，可使图片框根据图片调整大小。

五、【简答题】（本大题共2小题，每小题10分，共20分）请将答案填写在答题卷相应题号处。

38、写出下列程序运行时单击窗体后，c,k的值。

Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 0c = 1For j = 1 To 6If j > 4 Thenc = c + 4Exit ForElsek = k + 1End IfNext jPrint c, kEnd Sub答： 5 439、购物优惠程序。

某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上者，按9.5折优惠；（2）在300元以上者，按9折优惠；（3）400元以上者，按8折优惠；（4）600元以上者按7折优惠。

在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。

程序运行结果如下图所示。

Private Sub Command1_Click() Dim x As Single, y As Singlex = Val(Text1.Text)If x < 200 Theny = xElseIf x < 300 Theny = 9.5 * xElseIf x < 400 Theny = 0.9 * xElseIf x < 600 Theny = 0.8 * xElsey = 0.7 * xEnd IfEnd IfEnd IfEnd IfText2.Text = yEnd Sub。