浙江广播电视大学《Visual Basic程序设计》模拟试题及参考答案一、单项选择题（每小题2分共20分）

1、浙江广播电视大学Visual Basic程序设计模拟试题及参考答案一、单项选择题（每小题2分，共20分）1以下控件中不是标准控件的是（ ）。A水平滚动条和垂直滚动条BActiveX控件C文件列表框、目录列表框和驱动器列表框DOLE容器2在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（ ）。AShow BHide CLoad DUnLoand3Visual Basic在程序开发过程中用于使用窗体或控件对象的属性是（ ）。AName BCaption CText DEnabled4以下事件中，不是鼠标事件的是（ ）。ADragDrop BMouseDownCDb

2、Click DChange5下面哪个属性不是标签控件的属性（ ）。AAlignment BBorderStyleCCaption DText6下面哪个方法是控件获得焦点的方法（ ）。AGotFocus BLostFocus CSetFocus DClick 7在Visual Basic中，下属（ ）控件可以包含其他控件。AImage BTextBoxCFrame DCheckBox8假定窗体上有一个Text文本框，为使它的文本内容右对齐并且没有边框，则正确的属性设备为（ ）。A Text1.Alignment=1 BText1.Alignment=2Text1.BorderStyle=0 Te

3、xt1.BorderStyle=1C Text1.Alignment=1 DText1.Alignment=2Text1.BorderStyle=1 Text1.BorderStyle=09下列哪个方法可将项目添加到ComboBox控件中（ ）？AList BListIndex CAddItem DMove10每当窗体失去焦点时会触发的事件是（ ）。AActive BDeactiveCLostFocus DInitialize二、填空题（每空2分，共20分）1在Visual Basic中设置或修改一个对象的属性的方法有两种，它们分别是 和 。2Visual Basic控件分为3类，它们分别是标

4、准控件、 和 。其中只有 是由系统提供的。3创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为 。4为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。5在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性， 就相当于其他控件的Caption属性，而 就相当于Name属性。6在Visual Basic菜单中设置显示一条分割线的操作是 。三、阅读程序题（每小题5分，共20分）1Private Sub Command1_Click() x = 0 Do While x

5、< 20 x = (x + 1) * (x +3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是：2. Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox("请输入一个正整数=") If x < 5 Then s = s * x Else s = s + x

6、End If Text1.Text = "s=" & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。3Private Sub Form_Click() 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 cEnd Sub 写出程序运行时单击窗体后，窗体Form1上的结果： 4 P

7、rivate Sub Command1_Click() Dim A(2 To 7) As Integer Dim b As Integer For b = 2 To 7 A(b) = b Next b Text1.Text = A(b - 2)End Sub程序运行后，单击命令按纽文本框Text1的结果是：四、编写程序题（共10分）请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在

8、Text2中输出优惠价。程序运行结果如图1所示。程序运行界面如图1所示。 图1五、简答题（每小题10分，共30分）1通过通讯录应用程序的开发，你对后台数据库管理系统的选择有什么认识？（要求200字以上）2通过项目实训，你认为项目实训对课程内容的掌握有作用吗？ （要求200字以上）3谈谈在项目实训中你碰到的最大困难是什么？（要求200字以上）参考答案一、单项选择题（每小题2分，共20分）15B B A D D610C C A C C二、填空题（每空2分，共20分）1在属性窗口设置、在代码窗口编程2 ActiveX控件、可插入对象、标准控件3 Command14 Picture1. Picture = LoadPrcture(“picturefile.jpg”)5标题、名称6在【菜单编辑器】的标题栏中，输入一个“-” 三、阅读程序题（每小题5分，共20分）1262s= 6s= 11s= 4431846四、编写程序题（共10分）参考答案：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then y = x Else If x < 200 Then y = 0.95 * x