2022年《VisualBasic程序设计》模拟试卷四 .pdf

-1- Visual Basic程序设计模拟试卷四课程代码：考试方式：闭卷题 序一二三四总成绩统分人成 绩登分人1GUI 的含义是（） 。A)、面向对象的程序设计B)、开放数据库连接C)、图形设备接口D) 、图形用户界面2退出 VB 程序有很多方法，其中( )不能退出 VB 程序。A)文件退出B).Alt+Tab C).Alt+F4 D).Alt+Q 3不属于 Visual Basic 工程所包含的文件类型是（） 。A)、工程文件（扩展名为vbp）B)、窗体文件（扩展名为frm ）C)、模块文件（扩展名为bas）D)、可执行文件（扩展名为exe）4在保存工程时，工程中包含的不同文件需要（保存）A)只要保存其工程文件与窗体文件即可B)需要分别进行保存C)。只要保存工程文件即可5下列是合法变量的是（） 。A) 、 A(A+B) B)、Filename C)、254D D)、Print 6语句 Print 5*55/5 的输出结果是（） 。A)、5 B)、25C)、 0 D)、1 7表达式 4 + 6 5 * 7 / 9 Mod 3的值是（） 。A）4B）5C）6D ）7 8下列能将3.6 转为 4 的函数是（） 。A)、 int(3.6) B)、fix(3.6) C)、cint(3.6) D)、round(3.6,1) 9. 下列（）是合法的变量名。A、x%y B、xy% C、 2x D、O 10.执行下面的语句后，所产生的信息框的标题是（） 。a=MsgBox(“ AAA ” ,” BBBB ” ) A)、 BBBB B)、AAAC)、空D)、出错 ，不能产生消息框11.要计算当0 x10 时，将 x 的值赋给 y，应使用语句（） 。A)If 0 x10 then y=x B)If 0 x or x10 then y=x C)If 0 x and x10 then y=x D)If 0 x Xor x10 then y=x 12多分支选择结构的case语句，写法错误的是（） 。一、单项选择题得分(每题 1 分，共 35 分) 评卷人名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 6 页 - - - - - - - - - -2- A)、Case 1， 5，7，9 B)、Case 8 To 12 C)、Case 5 To 2 D) 、Case Isy,x,y) B)if xy Then Max=x Else Max=y C)Max=x D)if y=x Then Max=y If y=x Then Max=y Max=x 14数组声明为Dim A(3,-2 to 2,5) ，则数组A 包含 ()个元素。A) 、200 B)、120 C)、75 D)、60 15. 在程序中引用对象时，使用（） 。A)、name 名称B)、Caption C)、AutoSize D)、BackColor 16、若将窗体的（）属性设置为False，则将取消窗体的控制菜单和所有的控制按钮。A) 、MaxButton B)、MinButton C)、Enabled D)、ControlBox 17、显示窗体的方法是（） 。A) 、 Hide B)、Refresh C)、Show D)、Cls 18、 （）属性用来设置当鼠标在按钮上停留时显示的文字。A) 、Cancel B)、Default C)、Style D)、ToolTipText 19、向组合框控件添加项目的方法是（） 。A) 、Click B)、 Clear C)、AddItem D)、RemoveItem 20、滚动条的常用事件是（） 。A)、Change B)、Scroll C)、LargeChange D)、 Value 21.如果命令按钮的Caption 属性包含（） ，则按下 Alt+C 可激活该按钮。A)、&C B)、$C C)、#C D)、C 22、能清除文本框Text1 中内容的语句是（） 。A）Text = B）Text1.Text = C）Text1.clearD）Text1.Cls 23、设置标签Label1 的（）属性使它不可见。A) Label1.Visible = -1 B) Label1.Visible = 1 C) Label1.Visible = true D) Label1.Visible = False 24、在菜单编辑器中，通过哪一选项的设置来显示菜单栏上的文本（） 。A)、caption（标题）B)、name（名称）C)、visible（可见）D) 、enabled （有效）25、菜单对象只有一个事件，它是（） 。A) 、MouseUp B)、Click C)、Dbclick D)、KeyPress 26、下列哪一个不是VB 提供的文件系统控件（） 。A)、DriveListBox B)、DirListBox C)、ListBox D)、FileListBox 27、将指定的目录设为当前目录的语句是（） 。A)、ChDir B)、ChDrive C)、Change D) 、Pattern 28、利用方法（）可由用户自定义坐标系。A)、Line B)、 Circle C)、Scale D)、PSet 29、下列图形方法中，方法（）实际上无法绘制图形。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 6 页 - - - - - - - - - -3- A、Circle B、Line C、Point D、PSet 30、绑定一个TextBox(文本框 )控件到 ADO 控件，需要设置（）属性。A、DataSource 和 DataFiled B、DataSource ，DataFiled 和 DataMember C、 DataSource ，RecordSource和 DataFiled D、 DataSource ，Connection 和 DataFiled 31、Recordset 的（）方法用来更新记录。A、 Update B、Append C、AddNew D、Set 32、Data 控件主要利用（）对象来操作数据库的。A、Database B、File C、Folder D、Recordset 33利用（）控件可以显示年、月、日。A、calendar B、animation C、mediaplayer D、webbrowser 34实现电影等媒体播放的控件是（） 。A、animation B、mediaplayer C、winsock D、mscomm 35VB6.0 中的安装向导工具(Package&Development) 是用来（）A)生成可执行文件.EXE 的B)生成 setup.exe文件的C）进行应用程序安装软件制作D）生成压缩文件.cab 的1.在Visual Basic集 成 开 发 环 境 中 ， 用 来 设 计 应 用 程 序操 作 界 面 的 窗 口是；能够显示工程中所包含的文件列表的窗口是. 2. Visual Basic 的对象主要指和两大类，其实常数、 变量、代码、 数据、 过程、 过程、 模块、 文件、 文件夹、 磁盘及驱动器等都可视为对象。3Visual Basic 工程文件的扩展名是，窗体文件的扩展名是。4InputBox 函数返回值的数据类型为；MsgBox 函数返回值的数据类型为。5定义变量时如不指定类型，该变量为变量。6可表示 50,100 之间的随机数的语句是。7执行以下程序段后，变量c$的值为. a$=” Visual Basic Programming ”b$=” good”c$= Ucase (b$ )& (Mid$(a$,7,6) & Right$(a$,11) 8用 VB 语言的表达式正确描述下列命题，a 不能被 b 整除：9Select case语句执行哪一个分支的根据是Select case中的与情况 i 中的表达式相匹配。10.强制性退出DoLoop 循环的语句是， 强制性退出ForNext 循环的语句是。11在数组定义之前，可以使用语句确定数组的下界值1。二、填空题得分(每题 1 分，共 25 分) 评卷人名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 6 页 - - - - - - - - - -4- 12 控 件共 用 一个的控 件 名字 称 控件 数 组， 控 件数 组 的下 标 也称。13属性值是文本框中包含的文本内容。14要想使文本框的PasswordChar 属性有效，属性必须设置为 False。15定时器的Interval 属性以为单位，运行时不显示。16使文本框Text1 获得焦点的代码是。17单选按钮被选中时Value 属性的值为。18在框架内添加控件时，必须先框架，再向框架内添加其他控件。19设置菜单项快捷键的属性名称是。20菜单项对象的属性控制菜单项是否变灰（失效）。21设置或返回所选择的驱动器名的属性是。22使用窗体、 图片框等容器的图形方法绘图，所绘图形的线宽和线型是由容器属性 Borderwidth 和设定的。23. 使用图形方法Line，可以绘制直线和。24VB 中提供的创建数据库的工具是。25VB 中帮助生成ADO 数据窗体的工具是。1、 窗体的单击事件中有如下代码：Private sub Form1_click( ) Static x as integer X=x+2 Print x End sub 运行该程序，单击窗体两次，窗体上显示的内容是：。2、 下列程序段执行之后输出的结果是。For I=1 to 5 Select case I Mod 2 Case 0 Print “ #”Exit for Case 1 Print “ * ”Case else Print “ $”End select Next 三、程序阅读题得分(每题 6 分，共 18 分) 评卷人名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 6 页 - - - - - - - - - -5- 3、下列程序段执行之后输出的结果是. for I=1 to 2 s=1 for j=0 to I-1 s=s+s*j next j print s, next i 1 在窗体上输出金字塔数字组成图形。（10 分）1 121 12321 1234321 12345678987654321 2输入 20 个学生的成绩（显示于第一个文本框中），将其中高于平均分的成绩四、编程题得分（共 22 分) 评卷人名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 6 页 - - - - - - - - - -6- 以学号分数； 形式显示于第二文本框中。(12 分) 控件属性属 性 值Command1 Caption Command2 Caption Text1 MultiLine True Scrollbars 1 Locked True Text2 请将控件属性值补充完整程序代码如下 (请补充完整 ) Dim mark(1 to 20)As Integer Private sub Command1_Click() Dim I As Integer Text1.Text= ”Text2.Text= ”For i=1 to 20 Mark(i)=InputBox( “ 输入 mark(“ &i& ” )的值 ” ) Text1.Text= Next i End Sub Private sub Command1_Click() Dim I As Integer Dim sum As Single,aver As Single Sum=0 For i=1 to 20 Sum= Next i Aver= For i=1 to 20 If then Text2.text= Next i End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 6 页 - - - - - - - - -