二、填空题（每空 2 分，共 30 分）
请将每空的正确答案写在答题卡【 1 】 ~ 【 15 】序号的横线上，答在试卷上不得分。
1 下列软件系统结构图
的宽度为【 1 】。
2 【 2 】的任务是诊断和改正程序中的错误。
3 一个关系表的行称为【 3 】。
4 按“先进后出”原则组织数据的数据结构是【 4 】。
5 数据结构分为线性结构和非线性结构，带链的队列属于【 5 】。
6 描述 "X 是小于 100 的非负整数 " 的 Visual Basic 表达式是【 6 】。
7 在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。
Private Sub Form_Load()
C) Ommand1 Enabled=False
End Sub
Private Sub Text1_ 【 7 】 ()
C) ommand1 Enabled=True
End Sub
8 在窗体上画一个名称为 "Command1" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
D) Im a As String
A) ="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a, 【 8 】 ,2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
9 以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A （ 1 ）到 A （ 10 ）依次赋给 B （ 1 ， 1 ）到 B （ 1 ， 10 ），把 A （ 11 ）到 A （ 20 ）依次赋给 B （ 2 ， 1 ）到 B （ 2 ， 10 ），……，把 A （ 91 ）到 A （ 100 ）依次赋给 B （ 10 ， 1 ）到 B （ 10 ， 10 ）。请填空。
Option Base 1
Private Sub Form_Click()
D) im i As Integer,j As Integer
D) im A(1 To 100) As Integer
D) im B(1 To 10,1 To 10) As Integer
For i=1 To 100
A) (i)=Int(Rnd * 100)
Next i
For i=1 To 【 9 】
For j=1 To 【 10 】
B) (i,j)= 【 11 】
Print B(i,j);
Next j
Print
Next i
End Sub
10 在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ListCount-1
If Combo1 Text= 【 12 】 Then
Label2 Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2 Caption=" 已成功添加新输入项。 "
C) ombo1 【 13 】 Combo1 Text
End If
End Sub
11 在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：
Private Sub Command1_Click()
D) im inData As String
Text1 Text=" "
OPen "d:|| ML ） ||Myfile txt" for 【 14 】 As #1
D) o While 【 15 】
Input # 1,inData
Text1 Text=Text1 Text+inData
Loop
C) lose #1
End Sub
程序的功能是，打开 D 盘根目录下的文本文件 myfile txt, 读取它的全部内容并显示在文本框中。请填空
转贴于：计算机二级考试_考试大
【责编:drfcy 纠错】
[1] [2] [3] [4] [5] 
相关文章
2006-12-15
