[计算机类试卷]VB笔试模拟试卷36及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷36及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷36及答案与解析.doc(22页珍藏版)》请在麦多课文档分享上搜索。
1、VB笔试模拟试卷 36及答案与解析 1 数据结构中,与所使用的计算机无关的是数据的 ( A)存储结构 ( B)物理结构 ( C)逻辑结构 ( D)物理和存储结构 2 栈和队列的共同点是 ( A)都是先进先出 ( B)都是先进后出 ( C)只允许在端点处插入和删除元素 ( D)没有共同点 3 对于如下图所示的二叉树, 其后序遍历序列是 ( A) ABDECFG ( B) DEBAFCG ( C) DEBFGCA ( D) GFCEBDA 4 对长度为 n的有序单链表,若搜索每个元素的概率相等,则顺序搜索到表 中任一元素的平均搜索长度为 ( A) n/2 ( B) (n+1)/2 ( C) (n-
2、1)/2 ( D) n/4 5 用某种排序方法对序列 (25, 84, 21, 47, 15, 27, 68, 35, 20)进行排序,记录序列的变化情况如下: 15, 20, 21, 25, 47, 27, 68, 35, 84 15, 20, 21, 25, 35, 27, 47, 68, 84 15, 20, 21, 25, 27, 35, 47, 68, 84 则 采取的排序方法是 ( A)直接选择排序 ( B)冒泡排序 ( C)快速排序 ( D)希尔排序 6 在设计程序时,应采纳的原则之一是 ( A)程序结构应有助于读者理解 ( B)不限制 goto语句的使用 ( C)减少或取消注解
3、行 ( D)程序越短越好 7 在软件生命周期中,能准确确定软件系统必须做什么和必须具备的功能的阶段是 ( A)概要设计 ( B)详细设计 ( C)可行性分析 ( D)需求分析 8 以下测试方法是白盒测试法的是 ( A)判定覆盖和边界值分析法 ( B)等价类划分和错误推测法 ( C)路径覆盖和判定 /条件覆盖法 ( D)条件覆盖和错误推测法 9 在数据库的三级模式结构中,外模式有 ( A) 1个 ( B) 2个 ( C) 3个 ( D)任意多个 10 设关系 R和 S的元组个数分别为 100和 300,关系 T是 R与 S的笛卡儿积,则T的元组个数是 ( A) 400 ( B) 10000 (
4、C) 30000 ( D) 90000 11 下列打开 “代码窗口 ”的操作中不正确的是 ( A)按 F4键 ( B)单击 “工程资源管理器 ”窗口中的 “查看代码 ”按钮 ( C)双击已建立好的控件 ( D)执行 “视图 ”菜单中的 “代码窗口 ”命令 12 为了同时改变一个活动控件的高度和宽度,正确的操作是 ( A)拖拉控件 4个角上的某个小方块 ( B)只能拖拉位于控件右下角的小方块 ( C)只能拖拉位于控件左下角的小方块 ( D)不能同时改变控件的高度和宽度 13 Load事件是在窗体被载入工作区时 _触发的事件。 ( A)用户 ( B)程序员 ( C)手工 ( D)自动 14 以下
5、Case语句中错误的是 ( A) Case 0 To 8 ( B) Case Is 5 ( C) Case Is 0 And Is 6 ( D) Case 1, 3, Is 5 15 以下关于函数过程的叙述中,正确的是 ( A)函数过程中形参的类型与函数返回值的类型没有关系 ( B)在函数过程中,过程的返回值可以有多个 ( C)当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 ( D)如果不指明函数过程参数的类型,则该参数没有数据类型 16 为了改变一个活动控件的高度,正确的操作是 ( A)拖拉控件 4个角上的某个小方块 ( B)只能拖拉位于控件右下角的小方块 ( C)只能拖
6、拉位于控件左下角的小方块 ( D)拖拉位于控 件上方或下方的小方块 17 设 a=3, b=10, c=6,以下表达式的值是 a b And (Not b C)Or c a ( A) 1 ( B) -1 ( C) Ture ( D) False 18 使用 Do While循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是 ( A) Open “c:File1 txt“ For Input As #1 Do While Not EOF() Line Input #1, strLine Loop ( B) Open “c:File1 txt“ For Input As#1 Do Wh
7、ile Not EOF(#1) Line Input #1, strLine Loop ( C) FileNo=FreeFile Open FileNo For Input As #1 Do While Not EOF(FileNo) Line Input #1, strLine Loop ( D) FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileNo) Line Input #1, strLine Loop 19 以下关系表达式中,其值为 False的是 ( A) XYZ “XYz“ ( B) VisualBa
8、sic=“visualbasic“ ( C) the “there“ ( D) Integer “Int“ 20 假定 Picturel和 Text1分别为图片框和文本框的名称,下列不正确的 语句是 ( A) Print 25 ( B) Picturel Print 25 ( C) Text1 Print 25 ( D) Text1 Text=Print 25 21 在调用含有对象的过程时,对象只能通过 _传送。 ( A)传址方式 ( B)传值方式 ( C)数组方式 ( D)变量方式 22 以下语句的输出结果是 a=Sqr(3) Print Format(a, “$# #“) ( A) $1.
9、732 ( B) $1.732 ( C) $1732 ( D) $0001.732 23 为了使列表框中的项目分为多列显示,需要设置的属性为 ( A) Columns ( B) Style ( C) List ( D) MultiSelect 24 函数 Int(Rnd*6+1)的取值范围是 ( A) 1 7共 7个整数 ( B) 0 7共 8个整数 ( C) 1 6共 6个整数 ( D) 0 6共 7个整数 25 执行下列语句后,显示输入对话框,此时如果单击 “确定 ”按钮,则变量 s1的内容是 s1=InputBox(“请输入字符串 “, “字符串对话框 “, “字符串 “) ( A) 0
10、 ( B)请输入字符串 ( C)字符串对话框 ( D)字符串 26 假定窗体的名称为 Form1,对该窗体编写如下代码: Private Sub Form_Load() Form1 Caption=“计算机 “ Me Caption=“等级 “ Caption=“考试 “ End Sub 程序运行后,窗体的标题是 ( A)计算机 ( B)等级 ( C)考试 ( D) Form1 27 假定有一菜单项,名为 MenuItem,为了运行时使该菜单项失效 (变灰 ),应使用的语句为 ( A) MenuItem Enabled=False ( B) MenuItem Enabled=True ( C)
11、 MenuItem Visible=False ( D) MenuItem Visible=True 28 有下列程序: Private Sub Command1_Click() X$=“Nanchang“ y$=“Beijing“ z$=“Nanjing“ z$=InStr(Left(x$, 3)+Right(y$, 4), z$) Print z$ End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ( A) 0 ( B) 1 ( C) 3 ( D) 4 29 在窗体上画两个名称分别为 Text1、 Text2的文本框和一个名称为 Command1的命令按钮,然后编写如下事件过
12、程: Private Sub Command1 Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1 Text = Str(x) TextText = Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ( A) 15和 1 ( B) 27和 3 ( C) 195和 3 ( D) 600和 4 30 阅读下列程序: Private Sub Form Click() Dim i As Integer, sum As Integ
13、er For i = 2 To 10 If i Mod 2 0 Then Print i; Else sum = sum + i End If Next i Print sum End Sub 程序运行后,单击窗体,在窗体上的输出结果是 ( A) 3 5 7 9 30 ( B) 1 3 5 7 9 ( C) 2 4 6 8 20 ( D) 11 15 17 19 20 31 在窗体上画一个名称为 Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1 Click() d = 0 : c = 10 x=Array(10, 12,21,
14、 32, 24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ( A) 89 ( B) 99 ( C) 23 ( D) 77 32 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Prirate Sub Command1_Click() s = 0 For i=1 To 13 x = i * i-1 If x Mod 3 = 0 Then s = s + 1 Next i
15、 Print s End Sub 程序运行后,单击命令按钮,则窗体中显示的内容是 ( A) 1 ( B) 5 ( C) 27 ( D) 45 33 在窗体上画一个名称为 CoilTlilandl的命令按钮,然后编写如下事件过程: Private Sub command1 Click() Dim m As Integer, i As Integer, x(3)As Integer For i=0 To 3: x(i)=i: Next i For i = 1 To 2: Call sub1(x, i): Next i For i = 0 To 3: Print x(i);: Next i End
16、Sub Private Sub sub1(a()As Integer, k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j 2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ( A) 0 3 7 5 ( B) 0 1 2 3 ( C) 3 2 4 5 ( D) 0 5 8 3 34 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i, A)N
17、ext i x = i + 2 Print x; a End Sub Private Sub fun1(n, m) m=m + n * 2 n = n + m End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ( A) 1 5 ( B) 4 5 ( C) 8 4 ( D) 3 4 35 下列程序执行后,在 Ctrl和 Alt这两个键都被按下的同时,再在文本框中输入“a”,输出结果为 Prirate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift 0 And KeyCode = Asc(“A“)The
18、n Print KeyCode + Shift End If End Sub ( A) 65 ( B) 71 ( C) 0 ( D)出错 36 对长度为 n的线性表进行顺序查找,最坏情况下所需比较的次数为【 】。 37 多态性机制不仅增加了面向对象软件系统的灵活性,进一步减少了信息冗余,而且显著地提高了软件的可重用性和【 】。 38 算法一般都可以用选择结构、循环结构和【 】结构组合而成。 39 在最坏情况下,堆排序需要比较的次数为【 】。 40 数据模型所描述的内容通常由数据结构、数据操作和【 】三部分组成。 41 下列程序的运行结果是【 】。 X=96 Y=10 X=X Mod Y2 X=
19、X4 Print X 42 已知在窗体上有一个文本框控件,它的名称为 Text1,且输入的字符全部为数字,现在要把该字符转换为整数送给整型变量 C,所用到的语句是【 】。 43 在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() n=1 f=1 s=0 For i=1 To n f=f【 】 s=s+f Next Print s End Sub 该事件过程的功能是计算 的值。请填空。 44 在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click(
20、) Text1 Text=“计算机 “ TextText=Text1 Text Text1 Text=“等级考试 “ End Sub 程序运行后,单击命令按钮,两个文本框 (Text1和 Text2)中的内容分别为【 】和【 】。 45 要打印出 50个在 -100 100之间不同的随机整数,并找出第几个是最大数。给定的程 序不完整,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【 】 Do x=Rnd If x 0.5 Then y=1 Else y=-1 t=y*Int(Rnd*100)+1 【
21、】 Do While k j If t b(k)Then k = k + 1 Else Exit Do End If Loop If k=j Then ReDim Preserve b(k) b(k)=t Print b(k); j=j+1 End If Loop Until j 50 Print 【 】 Max=b(1) For n=2 To 50 If b(n) Max Then 【 】 p = n End If Next n Print “最大数是: “; Max Print “位置在第 “; p; “个 “ End Sub VB笔试模拟试卷 36答案与解析 1 【正确答案】 C 【试题
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 36 答案 解析 DOC
