学习网考试学习资料

Gzu521.com

2007年9月全国计算机等级考试二级VB笔试试卷及参考答案(4)

全国计算机等级考试   点击:次   发布时间:2007-10-23   【字体: 】   来源:Gzu521.com
Gzu521.com我的学习网

35)在窗体上有一个名称为check1的复选框数组

(含4个复选框),还有一个名称为text1的文本

框,初始内容为空。程序运行时,单击任何复选

框,则把所有选中的复选框后面的方字罗列在文

本框中(见图)。下面能实现此功能的事件过程是

aprivate sub check1_click(indes as integer)

text1.text =""

for k = 0 to 3

if check1(k).value = 1 then

text1.text = text1.text & check1(k).caption & "  "  ’双引号中是空格

end if

next k

end sub

bprivate sub check1_click(index as integer)

for k = 0 to 3

if check1(k).value = 1 then

text1.text = text1.text & check1(k).caption & "  "  ’双引号中是空格

end if

next k

end sub

cprivate sub check1_click(index as integer)

text1.text = ""

for k = 0 to 3

if check1(k).value = 1 then

text1.text = text1.text & check1(index).caption & " "  ’双引号中是空格

end if

next k

end sub

dprivate sub check1_click(index as integer)

text1.text = ""

for k = 0 to 3

if check1(k).value = 1 then

text1.text = text1.text & check1(k).caption & " "  ’双引号中是空格

exit for

end if

next k

end sub

 

二、填空题(每空2分,共30分)

请将每空的正确答案写在答题卡[1]~[15]序号的横线上,答在试卷上不得分。

(1)软件需求规格说明书应具有完整性,无岐义性、正确性、可验证性、可修改性等特征,其中最重要的是【1】 

(2)在两种基本测试方法中,【2】  测试的原则之一是保证所测模块中每一个独立路径至少执行一次。n]H7Nuwd9~Ty0QsuQS^ ( 贵州 学 习 网 IT认证全国计算机等级考试 )n]H7Nuwd9~Ty0QsuQS^hTTp://wWw.gZu521.cOm

(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表,循环队列是队列的【3】  存储结构。

(4)对下列二叉树进行中序遍历的结果为【4】 

(5)在e-r图中,矩形表示【5】 

6)窗体上有一个组合框,其中已输入了

若干个项目。程序运行时,单击其中一

项,即可把该项与最上面的一项交换。

例如:单击图1中的“重庆”,则与“北

京”交换,得到图2的结果。下面是可

实现此功能的程序,请填空。

private sub combo1_click()

dim temp

temp = combo1.text

    [6]       = combo1.list(0)

combo1.list(0) = temp

end sub

7)设窗体上有一个名称为hscroiii的水平滚动条,要求当滚动块移动位置后,能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数,向左移动为负数)。下面是可实现此功能的程序,请填写。

dim     [7]         as integer

private sub form_load()

pos=hscroiii.value

end sub

private sub hscroiii_change()

print     [8]        -pos

pos=hscroiii.value

end sub

8)设窗体上有一个名称为cd1的通用对话框,一个名称为text1的文本框和一个名称为command1的命令按钮。程序执行时,单击command1按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在text1中。下面是实现此功能的事件过程,请填空。

private sub command1_click()

cd1.filter ="文本文件1*.txt(word 文档)*.doc"

cd1.filterinder = 1

cd1.showopen

if cd1.filename<>""then

open    [9]       for input as #1

line input #1,ch$

close #1

text1.text =     [10]       

end if

end sub

上 一 页 下 一 页
5页: 第 [1] [2] [3] [4] [5]

责任编辑:gzu521

IT认证分类
计算机软件水平考试
全国计算机等级考试
思科认证
微软认证
ORACLE/CIW认证
Linux认证
JAVA认证
其它认证
分类推荐信息
更多...
大类最新文章
更多...