计算机等级

计算机二级VB考试试题及答案

时间:2024-09-26 13:03:19 计算机等级 我要投稿

2017年计算机二级VB考试试题及答案

  网络管理软件及网络通信协议的管理和协调下,实现资源共享和信息传递的计算机系统。下面是小编整理的关于计算机二级VB考试试题及答案,欢迎大家参考!

2017年计算机二级VB考试试题及答案

  一 、选择题

  (1)假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为

  A)log2n

  B)n2

  C)O(n1..5)

  D)n(n-1)/2

  正确答案: D

  (2)算法分析的目的是

  A)找出数据结构的合理性

  B)找出算法中输入和输出之间的关系

  C)分析算法的易懂性和可靠性

  D)分析算法的效率以求改进

  正确答案: D

  (3)线性表L=(a1,a2,a3,…ai,…an),下列说法正确的是

  A)每个元素都有一个直接前件和直接后件

  B)线性表中至少要有一个元素

  C)表中诸元素的排列顺序必须是由小到大或由大到小

  D)除第一个元素和最后一个元素外,其余每个元素都有一个且只有一个直接前件和直接后件

  正确答案: D

  (4)在单链表中,增加头结点的目的是

  A)方便运算的实现

  B)使单链表至少有一个结点

  C)标识表结点中首结点的位置

  D)说明单链表是线性表的链式存储实现

  正确答案: A

  (5)软件工程的出现是由于

  A)程序设计方法学的影响

  B)软件产业化的需要

  C)软件危机的出现

  D)计算机的发展

  正确答案: C

  (6)软件开发离不开系统环境资源的支持,其中必要的测试数据属于

  A)硬件资源

  B)通信资源

  C)支持软件

  D)辅助资源

  正确答案: D

  (7)在数据流图(DF

  D)中,带有名字的箭头表示

  A)模块之间的调用关系

  B)程序的组成成分

  C)控制程序的执行顺序

  D)数据的流向

  正确答案: D

  (8)分布式数据库系统不具有的特点是

  A)数据分布性和逻辑整体性

  B)位置透明性和复制透明性

  C)分布性

  D)数据冗余

  正确答案: D

  (9)关系表中的每一横行称为一个

  A)元组B)字段

  C)属性D)码

  正确答案: A

  (10)下列数据模型中,具有坚实理论基础的是

  A)层次模型

  B)网状模型

  C)关系模型

  D)以上3个都是

  二、综合应用题

  【审题分析】本题源程序已提供 Writedate 自定义过程,需编写"读数"、"计算"和"保存"命令的单击事件过程。程序设计思路:在"读数"按钮的单击事件过程中,用 Open 语句以 Input 方式打开数据文件 dr1.dat,** For 循环语句(初值为 1,终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 arr(i),同时显示在文本框中,为使数据间保持一定间隔,每个数据后用 Space(5)加入 5 个空格;在"计算"按钮的 Click 事件过程中,利用 For 循环语句(循环变 i 的初值为 1,终值为 100)依次将数组 arr 中小于或等于 300 的元素的值显示在文本框中(条件表达式为:arr(i)<=300),并将其值累加到变Sum,循环结束后将结果显示在窗体上。在"保存"按钮的 Click 事件过程中,**调用WriteData 过程将文本框中的值写入数据文件 dw1.dat。

  【操作步骤】

  步骤 1:新建一个"标准 EXE"工程,按下表在窗体中画出控件并设置其相关属性。

  步骤 2:选择【工程】?【添加模块】命令,打开添加模块对话框,将考生文件夹下的model.bas 添加到当前工程中。

  步骤 3:在代码编辑窗口编写以下事件过程。

  参考代码:

  Dim arr(1 To 100) As Integer

  Private Sub Cmd1_Click()

  Txt1.Text = ""

  Open App.Path & "\dr1.dat" For Input As #1

  ′ó?ò??ì3?????úμè????ê?ר?? http://club.topsage.com/forum-49-1.html ê??ˉ??àí

  For i = 1 To 100

  Input #1, arr(i)

  Txt1.Text = Txt1.Text & arr(i) & Space(5)

  Next

  Close #1

  End Sub

  Private Sub Cmd2_Click()

  Dim sum As Integer

  For i = 1 To 100

  If arr(i) <= 300 Then

  sum = sum + arr(i)

  End If

  Next

  Txt1.Text = sum

  End Sub

  Private Sub Cmd3_Click()

  writedata "dw1.dat", Txt1.Text

  End Sub

  步骤 4:按要求将文件保存至考生文件夹中。

【计算机二级VB考试试题及答案】相关文章:

计算机等级考试二级VB模拟试题及答案09-18

2017计算机二级VB考试试题07-17

2024年9月计算机二级VB考试试题及答案09-04

2016年9月计算机二级vb考试试题及答案07-17

2024计算机二级考试模拟试题及答案06-12

计算机二级考试C++试题及答案09-20

计算机二级Visual Basic考试试题及答案07-17

全国计算机二级考试Office操作试题及答案10-13

广东省计算机二级考试题及答案07-20

2023计算机二级java考试上机模拟试题及答案08-14