《Visual Basic程序设计基础 教学课件 ppt 作者 吴绍根 陈建潮配套习题 VB程序设计基础模拟试题A》由会员分享，可在线阅读，更多相关《Visual Basic程序设计基础 教学课件 ppt 作者 吴绍根 陈建潮配套习题 VB程序设计基础模拟试题A（8页珍藏版）》请在金锄头文库上搜索。
1、课程名称：VB程序设计 模拟试题-1题 号一二三四五六合 计题 分30301525100得 分得 分评分人核分人第一题 选择题请在下列各题的（A）、（B）、（C）、（D）四个选项中，选择正确的答案，并将结果写在答题纸上。（共15小题，每小题2分，共30分）1、以下叙述中错误的是 A）Visual Basic 是事件驱动型可视化编程工具 B）Visual Basic不具有编写数据库应用程序的能力C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D）Visual Basic中控件的某些属性只能在运行时设置2、以下叙述中错误的是 A）双击鼠标可以触发D
2、blClick事件 B）窗体或控件的事件的名称可以由编程人员确定 C）移动鼠标时，会触发MouseMove事件 D）控件的名称可以由编程人员设定3、若要设置命令按钮具有图形特性可通过以下哪个属性来进行。A）AppearanceB）BackStyleC）BordestyleD）Style4、下面的四个VB逻辑表达式语法中，正确的是（ ）A）xy.And.xy B）xyz C）xy And zD）xy And yz5、从子函数中退出，并返回到主调过程，可使用语句A）ExitB）ReturnC）Exit SubD）Exit Function6、组声明Dim X(5,-2 To 3,2)共有（）元素。
3、A）50B）60C）90D）1087、在VB中要将一个窗体从内存中释放，应该使用以下语句中的（ ）。A）CloseB）HideC）StopD）Unload第1页 共页 8、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 A）MouseDown B）MouseUp C）Load D）Click9、以下能判断是否到达文件尾的函数是 A）BOF B）LOC C）LOF D）EOF10、表达式123&100&200的值是（ ）。A）123300B）423C）123100200D）12310020011、Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过
4、以下（ ）属性。A）Enabled=False或Interval=0B）Visible=False或Interval=0C）Enabled=False或Visible=FalseD）Enabled=False且Interval=012、以下能正确定义数据类型TelBook的代码是 A）Type TelBook B）Type TelBook Name As String*10 Name As String*10 TelNum As Integer TelNum As Integer End Type End TelBook C）Type TelBook D）Typedef TelBook Nam
5、e String*10 Name String*10 TelNum Integer TelNum Integer End Type TelBook End Type 13、执行语句Open Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是 A）只能写，不能读 B）只能读，不能写 C）既可以读，也可以写 D）不能读，不能写 14、代数式ab2(5c+d)的VB表达式是（ ）A）a * b b / (5 c + d)B）abb / (5 c + d)C）a * b * b / 5 * c + dD）a * b * b / (5 *
6、c + d)15、窗体的MouseDown事件过程 Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 有4个参数，关于这些参数，正确的描述是 A）通过Button参数判定当前按下的是哪一个鼠标键 B）Shift参数只能用来确定是否按下Shift键 C）Shift参数只能用来确定是否按下Alt和Ctrl键 D）参数x,y用来设置鼠标当前位置的坐标 第2页 共页 第二题 填空题请在下列个小题的空白处填写正确的答案（10小题，每小题3分，共30分）1、在窗体上画一个名称为Command1的命令
7、按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 （ ）3、在VB中声明静态变量的关键字是（ ）。4、表达式8 5 + 3 Or Not 10 12 3的值是（ ）。5、在VB中，如果要设计一个MDI多文档界面应用程序，则一定要添
8、加一个MDI Form到应用程序的工程中，同时，应将其它Form的MDIChild属性设置为（ ）6、 “x是小于100的非负数”，VB的表达式正确的是（ ）7、语句：Timer1.Interval = 900（Timer1为窗体中的一个Timer控件）中的900指的是（ ）第3页 共页 8、在窗体上画一个命令按钮，然后在命令按钮的Click事件中编写如下的事件过程：a=InputBox(“请输入一个整数”):b=InputBox(“请输入一个整数”):Print a+b程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为（ ）9、在VB中创建对象的关键字是（ ）10、在
9、窗体中画一个命令按钮，然后在命令按钮的Click事件中编写以下事件过程：a = 4:b = 3:Print b a程序运行后，单击命令按钮，输出结果是（ ）第三题 程序填空 仔细阅读下面的程序，在空白处填上适当的语句（5个空，每空3分，共15分）1、在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：第一个项目、第二个项目、第三个项目、第四个项目。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。 Private
10、Sub Command1_Click() If List1.ListIndex = （ ） Then List1.RemoveItem （ ） Label1.Caption = （ ） Else MsgBox 请选择要删除的项目 End If End Sub 2、以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) （ ） = arr1(0)
11、For i = 0 To 7 If arr1(i) Max Then （ ） Next i Print 最大值是: ; Max End Sub 第4页 共页 第四题 编程题（第一小题8分、第二小题8分、第三小题9分）1、编写一个student(学生)类，它包含以下属性：sname：学生的姓名age：学生的年龄addr：学生的家庭地址 当对学生的age属性中赋给不适当的值是，触发AgeError事件，根据以下的代码框架，完善这个类的代码option explicitprivate mName as Stringprivate mAge as Integerprivate mAddr as Str
12、ingpublic Event AgeError( )Public Property Get sname() As VariantEnd PropertyPublic Property Let sname(ByVal vNewValue As Variant)End PropertyPublic Property Get age() As VariantEnd PropertyPublic Property Let age(ByVal vNewValue As Variant)End PropertyPublic Property Get addr() As VariantEnd PropertyPublic Property Let addr(ByVal vNewValue As Variant)End Property2、在应用的程序的窗体中，画一个TextBox文本框Text1和一个Comman
