首页>计算机等级考试>历年真题>正文
2010年3月计算机等级考试二级VB试试题(7)

www.zige365.com 2010-5-14 11:46:42 点击:发送给好友 和学友门交流一下 收藏到我的会员中心
 二、填空题

  (1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队,然后再依次退队,则元素退队的顺序为 【1】 。

  (2)设某循环队列的容量为50,如果头指针front=45(指向队头元素的前一位置),尾指针rear=10(指向队尾元素),则该循环队列中共有 【2】 个元素。

  (3)设二叉树如下:

2010年3月计算机等级考试二级VB试试题

  对该二叉树进行后序遍历的结果为 【3】 。

  (4)软件是 【4】 、数据和文档的集合。

  (5)有一个学生选课的关系,其中学生的关系模式为:学生(学号,姓名,班级,年龄),课程的关系模式为:课程(课号,课程名,学时),其中两个关系模式的键分别是学号和课号,则关系模式选课可定义为:选课(学号, 【5】 ,成绩)。

  (6)为了使复选框禁用(即呈现灰色),应把它的Value属性设置为 【6】 。

  (7)在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为Labl1、Timer1和Command1,如图1所示。程序运行后,如果单击命令按钮,则标签开始闪烁,每秒钟“欢迎”二字显示、消失各一次,如图2所示。以下是实现上述功能的程序,请填空。

  Private Sub Form_Load()

  Label1.Caption="欢迎"

  Timer1.Enabled=False

  Timer1.Interval= 【7】

  End Sub

  Private Sub Timer1_Timer()

  Label1.Visible= 【8】

  End Sub

  Private Sub command1_Click()

  【9】

  End Sub

2010年3月计算机等级考试二级VB试试题

  (8)有如下程序:

  Private Sub Form_Click()

  n=10

  i=0

  Do

  i=i+n

  n=n-2

  Loop While n>2

  Print i

  End Sub

  程序运行后,单击窗体,输出结果为 【10】 。

  (9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序:

  Option Base 1

  Private Sub Command1_Click()

  Dim a(10) As Integer

  For i=1 To 10

  a(i)=i

  Next

  Call swap ( 【11】 )

  For i=1 To 10

  Print a(i);

  Next

  End Sub

  Sub swap(b() As Integer)

  n=Ubound(b)

  For i=1 To n / 2

  t=b(i)

  b(i)=b(n)

  b(n)=t

  【12】

  Next

  End Sub

  上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……。请填空。

  (10)在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:

  Private Sub Form_Click()

  Open "d:\test\smtext1.Txt" For Input As #1

  Do While Not 【13】

  Line Input #1, aspect$

  Whole$=whole$+aspect$+Chr$(13)+Chr$(10)

  Loop

  Text1.Text=whole$

  【14】

  Open "d:\test\smtext2.Txt" For Output As #1

  Print #1, 【15】

  Close #1

  End Sub

  运行程序,单击窗体,将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

我要投稿 新闻来源: 编辑: 作者:
相关新闻
2010年3月计算机等级考试二级VB试试题(5)
2010年3月计算机等级考试二级VB试试题(2)
2010年3月计算机等级考试二级Java笔试试题(5)
2010年3月计算机等级考试二级Java笔试试题(4)
2010年3月计算机等级考试二级Java笔试试题(2)