《五套二级VB考试模拟试题[推荐]》由会员分享，可在线阅读，更多相关《五套二级VB考试模拟试题[推荐]（36页珍藏版）》请在金锄头文库上搜索。
1、助力资格考试精品word可编辑VB模拟试卷一一、单选题1. Visual Basic变量命名不超过 个字符。A. 255B. 256C. 125D. 1262. 跳出FOR NEXT循环程序，可使用语句 。A. EXITB. ENDC. EXIT FORD. EXIT DO3. 表达式169+196+200的值是 。A. 169196100B. 565C. 169396D. 3652004. 窗体的BORDERSTYLE属性取值种类为 。A. 3B. 4C. 5D. 65. 利用SHAPE控件可设置 种形状。A. 5B. 6C. 7D. 86. 以下 是“计时器”控件的重要属性。A. BACK
2、COLORB. STRETCHC. TIMERD. INTERVAL7. Visual Basic代码中用到“水平滚动条”的“CHANGE”事件的同时，也会用到 事件。A. CLICKB. LOADC. SCROLLD. MOUSEMOVE8. 结束当前打印作业的方法为 。A. ENDDOCB. KILLDOCC. NEWPAGED. END9. 打开“API VIEWER外接程序”应使用 菜单。A. 视图B. 外接程序C. 工具D. 工程10. 以下 控件不属于DATA控件绑定的内部控件。A. CHECKBOXB. TEXTBOXC. LABELD. TIMER11. MOUSEPOINTE
3、R属性取值 ，可设置鼠标的自定义图标。A. 3B. 8C. 15D. 9912. 以下 不属于表达式Chr(Int(89 + Rnd * 5)的生成范围。A. B. C. AD. 13. 以下代码，循环执行 次。Dim nFor n=1 To 50 Step 5 Txtresult.Text=Str(n)NextA. 12B. 10C. 50D. 1114. 以下各种高级语言中， 不是面向对象的程序设计语言。A. VISUAL C+B. PASCALC. DELPHID. VISUAL BASIC15. 下列命令中 可实现对随机文件的读操作。A. WRITEB. GETC. INPUTD. P
4、UT16. Visual Basic中“剪贴板”对象的名称为 。A. COPYB. CLIPBOARDC. CLIPD. BOARD二、填空题1. 通过数据控件Data1连接C:vb6Students.mdb数据库，则需设置Connect为 ，DatabaseName为 。2.“计时器”控件常用的两个属性为 、 。3. Shape控件的 属性取值为 时，形状为“圆”。4. 代数式9e6ln6的Visual Basic表达式为 。5. 表达式CHR(ASC(*)的值为 。6. 以下代码执行的循环次数为 。Dim numNum=200Do Txtresult.text=Str(num) Num=n
5、um+1Loop While num1097. 代码Picture1.Circle(1200, 1000), 750实现的功能为 。8. 代码RetVal=Shell(CALC.EXE, 1)实现的功能为 。9. 文件系统控件主要包括 、 、 。10. ActiveX控件的扩展名为 。三、程序填空1. 以下代码用于实现：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。Option Base 1Private Sub Form_C
6、lick() Arr=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For I=1 to 10Print Arr(I); Next I Print For I=1 to 5 For (1) T=Arr(I) (2) (3) Next j Next I For (4) Print Arr(I) Next IEnd Sub2. 利用文件系统控件DrivelistBox、DirlistBox、FilelistBox、ComboBox控件设计如图1所示的窗体，要求：改变DrivelistBox内容，DirlistBox、FilelistBox发生相应改变；改变ComboBo
7、x内容，FilelistBox发生响应改变。按要求填写如下代码：Private Sub Drive1_Change() (1) End SubPrivate Sub Dir1_Change() (2) End SubPrivate Sub Co mbox1_Change() (3) End SubPrivate Sub Combox1_click() (4) End Sub3. 利用“文本框”、“水平滚动条”、“命令按钮”设计如图2所示的窗体。要求：水平滚动条发生滚动，文本框内的数据在0km/hr100km/hr之间变化；单击“结束”按钮，退出程序执行。 图1 图2按要求完成如下代码填空：Pr
8、ivate Sub cmdexit_Click()Beep (1) End SubPrivate Sub hsbspeed_Change() (2) End SubPrivate Sub hsbspeed_Scroll() (3) End Sub四、编程题1. 编程：如图3所示布局控件（图像、标签、文本框、命令按钮）当分别按下鼠标左、右键时，在文本框中依次出现“按下鼠标左键”，“按下鼠标右键”，按“结束”按钮将退出运行。保存为文件名“按键”。2. 如图4、图5所示建立菜单“色彩”，“大小”以及子菜单。要求：当选择“红色”，“蓝色”，“白色”时，窗体背景色分别变为红、蓝、白。 当选择“小”，“大
9、”时，窗体在正常和最大化之间切换。 当选择“结束”时，退出程序运行。保存文件名为“颜色”。图3图4图5VB模拟试卷一参考答案一、单选题1. A2. C3. C4. D5. B6. D7. C8. B9. B10. D11. D12. C13. B14. B15. B16. B二、填空题1. ACCESSC:vb6Students.mdb2. ENABLEDINTERVAL3. SHAPE34. 9*EXP（6）*LOG（6）5. *6. 17. 画圆，圆心坐标为 (1200, 1000)，半径为7508. 执行CALC.EXE文件，打开“计算器”9. DrivelistBoxDirlistBo
10、xFilelistBox10. OCZ三、程序填空1.（1）j=6 To 10（2）Arr(I)=Arr(j)（3）Arr(j)=T（4）I=1 To 102.（1）Dir1.path=Drive1.Drive（2）File1.Path=Dir1.Path（3）File1.Pattern=Combox1.Text（4）File1.Pattern=Combox1.Text3.（1）End（2）txtspeed.Text = Str(hsbspeed.Value) + km/hr（3）hsbspeed_Change四、编程题1. 程序参考答案：Option ExplicitPrivate Sub
11、cmdexit_Click() EndEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then txtresult.Text = 鼠标左键被按下 End If If Button = 2 Then txtresult.Text = 鼠标右键被按下 End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
12、 As Single) txtresult.Text = End Sub2. 程序参考答案：Option ExplicitPrivate Sub Form_Load() MNUWHITE.Enabled = False MNUSMALL.Enabled = FalseEnd SubPrivate Sub MNUBLUE_Click() FRMCOLOR.BackColor = QBColor(1) MNUBLUE.Enabled = False MNURED.Enabled = True MNUWHITE.Enabled = TrueEnd SubPrivate Sub MNUEXIT_Cli
13、ck() EndEnd SubPrivate Sub MNULARGE_Click() FRMCOLOR.WindowState = 2 MNULARGE.Enabled = False MNUSMALL.Enabled = TrueEnd SubPrivate Sub MNURED_Click() FRMCOLOR.BackColor = QBColor(4) MNURED.Enabled = False MNUBLUE.Enabled = True MNUWHITE.Enabled = TrueEnd SubPrivate Sub MUNSMALL_Click() FRMCOLOR.WindowState = 0 MNUSMALL.Enabled = False MNULARGE.Enabled = TrueEnd SubPrivate Sub MNUWHITE_Click() FRMCOLOR.BackColor = QBColor(15) MNUWHITE.Enable
