[计算机类试卷]VB笔试模拟试卷108及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷108及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷108及答案与解析.doc(22页珍藏版)》请在麦多课文档分享上搜索。
1、VB笔试模拟试卷 108及答案与解析 1 以下不能在 “工程资源管理器 ”窗口中列出的文件类型是 ( A) .bas ( B) .res ( C) .fim ( D) .ocx 2 以下数据结构中不属于线性数据结构的是 ( A)队列 ( B)线性表 ( C)二叉树 ( D)栈 3 以下叙述中错误的是 ( A)双击鼠标可以触发 DblClick事件 ( B)窗体或控件的事件的名称可以由编程人员确定 ( C)移动鼠标时,会触发 MouseMove事件 ( D)控件的名称可以由编程人员设定 4 对长度为 n的线性表进 行顺序查找,在最坏情况下所需要的比较次数为 ( A) log2n ( B) n/2
2、 ( C) n ( D) n+1 5 采用面向对象技术开发的应用系统的特点是 ( A)重用性更强 ( B)运行速度更快 ( C)占用存储量小 ( D)维护更复杂 6 将数学表达式 cos2(a+B)+5e2写成 VisualBasic的表达式,其正确的形式是 ( A) cos(a+B)2+5*exp(2) ( B) cos2(a+B)+5*exp(2) ( C) cos(a+B)2+5*1n(2) ( D) cos2(a+B)+5*1n(2) 7 执行语句 s=Len(Mid(“Visual Basic“,1, 6)后, s的值是 ( A) Visual ( B) Basic ( C) 6 (
3、 D) 11 8 数据库系统的核心是 ( A)数据模型 ( B)数据库管理系统 ( C)软件工具 ( D)数据库 9 程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是 ( A) MouseDown ( B) MouseUp ( C) Load ( D) Click 10 用树形结构表示实体之间联系的模型是 ( A)关系模型 ( B)网状模型 ( C)层次模型 ( D)以上三个都是 11 如果要改变窗体的标题,则需要设置的属性是 ( A) Caption ( B) Name ( C) BackColor ( D) Borderstyle 12 以下合法的 Visual Basic标识符是
4、 ( A) ForLoop ( B) Const ( C) 9abc ( D) a#x 13 确定一个控件在窗体上的位置的属性是 ( A) Width 和 Height ( B) Width 或 Height ( C) Top 和 Left ( D) Top 或 Left 14 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮,然后编写 如下事件过程: Private Sub Command1_Click() Text1.Text =“Visual“ Me.Text1 = “Basic“ Text1 = “Program“ End Sub 程序运行后,如果单击命
5、令按钮,则在文本框中显示的是 ( A) Visual ( B) Basic ( C) Program ( D)出错 15 有以下函数过程 : Function Gys (ByVal x As Integer, ByVal y As Integer) As Integer Do While y 0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a =
6、 50 b = 10 x=Gys (a, B)Print x End Sub ( A) 0 ( B) 10 ( C) 50 ( D) 100 16 在窗体上画一个命令按钮,名称为 Commad1,然后编写如下事件过程: Private Sub Command1 Click() a$=“software and bardware“ b$=Right(a$, 8) c$=Mid(a$, 1, 8) MsgBox a$, b$, c$, 1 End Sub 运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是 ( A) soflware and hardware ( B) software (
7、 C) haldware ( D) 1 17 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Textl、Labell和 Commandl,然后编写如下两个事件过程: Prirate SUb Command1 Click() strText = InputBox(“请输入 ”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入 abcdef,则在标签中显示的内容是 (
8、A)空 ( B) abcdef ( C) abc ( D) def 18 以下叙述中错误的是 ( A)在 KeyPtess事件过程中不能识别键盘的按下与释放 ( B)在 KeyPress事件过程中不能识别回车键 ( C) KeyDown和 KeyUp事件过程中,将键盘输入的 “A”和 “a”视作相同的字母 ( D) KeyDown和 KeyUp事件过程中,从大键盘上输入的 “1”和从右侧小键盘上输入的 “1”被视作不同的字符 19 在窗体上添加一个文本框,名为 Textl,然后编写如下的 Load事件过程,则程序的运行结果是 Private Sub Form_Load() Text1.Text
9、=“ “ Text1.Setfocus t=1 For k=10 To 6 Step -2 t=t(k Next k Text1.Text =t End Sub ( A)在文本框中显示 120 ( B)文本框仍为空 ( C)在文本框中显示 480 ( D)出错 20 目录列表框的 Path属性的作用是 ( A)显示当前驱动器或指定驱动器上的路径 ( B)显示当前驱动器或指定驱动器上的某目录下的文件名 ( C)显示根目录下的文件名 ( D)只显示当前路径下 的文件 21 假定有如下事件过程: Private Sub Form_MouseDown(Button As Integer, Shift
10、As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是 ( A)该过程的功能是弹出一个菜单 ( B) PopForm是在菜单编辑器中定义的弹出式菜单的名称 ( C)参数 X、 Y指明鼠标的当前位置 ( D) BuRon=2表示按下的是鼠标左键 22 假定有一个菜单项,名为 Menultem,为了在运行时使该菜单项失效 (变灰 ),应使用的语句为 ( A) Menultem.Enabled=False ( B) Menultem.Enabled=Tru
11、e ( C) Menultem.Visible=True ( D) Menultem.Visible=False 23 在窗体上画一个名称为 Command1的命令按钮,再画两个名称分别为 Label1、Label2的标签,然后编写如下程序代 码: Private X As Integer Private Sub Command1_Click() X = 5: Y = 3 Call proc(X, Y) Labell.Caption: X Label2.Caption: Y End Sub Private Sub proc(ByVal a As Integer, ByVal b As Inte
12、ger) X = a * a Y = b + b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 ( A) 5和 3 ( B) 25和 3 ( C) 25和 6 ( D) 5和 6 24 以下关于窗体的描述正确的是 ( A)只有用于启动的窗体可以有菜单 ( B)窗体事件和其中所有控件事件的代码都放在窗体文件中 ( C)窗体的名字和存盘的窗体文件名必须相同 ( D)开始运行时窗体的位置只能是设计阶段时显示的位置 25 在窗体上画一个名称为 Command1的命令按钮和三个名称分别为 Label1、Label2、 Label3的标签,然后编写如下 代码: Private x
13、 As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 2 = n + z y=y+z x = x + z Label1.Caption =x Label2.Caption =y LabelCaption =z End Sub 运行程序,连续三次单击 命令按钮后,则三个标签中显示的内容分别是 ( A) 10 10 10 ( B) 30 30 30 ( C) 30 30 10 ( D) 10 30 30 26 Dima(3, -3 to 0, 3 to 8)As Stritig语句定
14、义的数组元素有 ( A) 1-2个 ( B) 96个 ( C) 120个 ( D) 80个 27 在窗体上画一个名称为 Drivel的驱动器列表框,一个名称为 Dirl的目录列表框,一个名称为 Filel的文件列表框,两个名称分别为 Label1、 Label2、标题分别为空白和 “共有 文件 ”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签 Labell中显示当前文件夹中文件的数量。如图所示。 能够正确实现上述功能的程序是 ( A) PriVate Sub Dir1_Change() Filel.Path=Dir1.Path End Sub Pri
15、vate Sub Dirvel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Filel.ListCount End Sub ( B) Private Sub Dir1_Change() Filel.Path=Dir1.Path End Sub Private Sub Drivel_Change() Dirl.Path=Drivel.Drive Labell.Caption=Filel.List End Sub ( C) Private Sub Dir1_Change() Filel.Path=Dir1.Path Labell.Caption=F
16、ile1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Fil1.ListCount End Sub ( D) Private Sub Dir1_Change() File1.Path=Dir1.Path Labell.Caption=Filel.List End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Filel.List End Sub 28 下列程序执行后, n的值为
17、n=0 For I=1 To 200 If I Mod 4 = 0 Then n = n+1 Next I ( A) 5050 ( B) 50 ( C) 51 ( D) 33 29 以下语句错误的是 ( A) If a=1 And b=2 Then C=3 End If ( B) If a=1 Then C=2 Else If a=2 Then C=2 End If ( C) If a=1 Then C=3 End If ( D) If a=1 Then C=2 Else If a=2 Then C=2 End If End If 30 以下有关数组定义的语句序列中,错误的是 ( A) Sta
18、tic arrl(3) arr1(1)=100 arrl(2)=“Hello“ arrl(3)=123.45 ( B) Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入: ”) ReDim arr2(size) End Sub ( C) Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer End Sub ( D) Dim n As Integer Private Sub Command4_Cl
19、ick() Dim arr4(n)As Integer End Sub 31 栈的基本运算有三种:入栈、退栈和【 】。 32 在面向对象方法中,信息隐蔽是通过对象的【 】性来实现的。 33 数据流的类型有【 】和事务型。 34 数据库系统中实现各种数据管理功能的核心软件称为【 】。 35 关系模型的数据操纵即是建立在关系上的数据操纵,一般有【 】、增加、删除和修改四种操作。 36 为了改变计时器控件的时间间隔,应该修改 该控件的 _属性。 37 设在工程中有一个标准模块,其中定义了如下记录类型: Type Books Name As String (10 TelNum As String *2
20、0 End Type 在窗体上添加一个名为 Command1的命名按钮,要求当执行事件过程 Command1 Click时,在顺序文件 Person.txt中写入一条记录。请在横线中填入适当的内容,将程序补充完整。 Private Sub Command1_Click() Dim B As _ Open “c: Person.txt“ For Output As #1BName=InputBox(“输入姓名 ”)BTelNum=InputBox(“输入学号 ”) Write#1, BName, BTelNum Close #1 End Sub 38 阅读程序: Sub p(b () As In
21、teger) For i=1 To 4 b(i) =2(i Next i End Sub Private Sub Command1_Click() Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (A) For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击命令按钮,输出结果为 _。 39 假定建立了一个工程,该工程包括两个窗体,其名称分别为 Form1和 Form2,启动窗体为 Form1。在 Form1上画一个命令按钮 Command1,程序运行后,要求当单击该命令按钮时,
22、 Form1窗体消失,显示 Form2,请在空白处将程序补充完整。 Private Sub Command1_Click() _ form2 _ End Sub 40 设有如下程序: Private Sub Form_Click() Dim a As Integer, s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n 0 Print s End Sub 以上程序的功能是 _。程序运行后,单击窗体,输出结果为 _。 41 程序是一个窗体双击事件代码,窗体的名称是 Mywindow。窗体上有一个名为text1的文本框,用来显示文本。 程序段首先在文本
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
本资源只提供5页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 108 答案 解析 DOC
