二级VISUALBASIC-9-2_真题(含答案与解析)-交互

二级VISUAL BASIC-9-2
(总分88, 做题时间90分钟)
一、选择题
1.
下面程序运行时，单击窗体后，窗体上显示的结果是。

Private Sub Form_Click
Dim I As Integer
Dim sum As Long
Dim t1 As Long
t1=1:sum=0
For 1=1 To 3
t1=t1*I
sum=sum+t1
Next I
Print sum
End Sub
•**
•**
•**
**
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:B
2.
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base()
Private Sub Command1_ Click()
Dim A1(4) As Integer, A2(4)As Integer
For k= 0 To 2
A1(k+1)=InputBox(“请输入—个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2 (k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。

• A. 0
• B. 1
• C. 2
• D. 3
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 数组的基本操作
[评析] 程序共有一层循环，当循环执行第一次时，A2(3-k)=A1(k+1)，即
A2(3)=A1(1)=2：当循环执行第二次时，A2(2)=A1(2)=4：当循环执行第三次时，A2(1)=A1(3)=6。

此时结束循环，执行Print A2(k)，即Print A2(3)，故输出结果为2。

3.
下列程序段，在运行时最后输出的内容是
a=2
c=1
AAA：
c=c + a
If c＜10 Then
Print c
GoTo AAA
Else
Print "10以内的奇数显示完毕"
End If
• A. 3
• B. 7
• C. 9
• D. 10以内的奇数显示完毕
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:D
[解析] 考查考生对GoTo语句的应用能力。

[解题要点] 在本题中使用了If语句与GoTo语句。

当c＜10时，输出c，并继续运行；当大于10时，显示“10以内的奇数显示完毕。

”并结束程序。

因为c=c+a，c和a都是正数，总有大于10的时候，所以最后输出的一定是“10以内的奇数显示完毕”。

[错解分析] GoTo语句的格式是：GoTo标号|行号，其执行过程是，当程序运行到GoTo语句时，程序直接转到GoTo语句后面的标号或行号所在的位置，然后继续往下运行程序。

[考点链接] GoTo语句的应用。

4.
下列关于菜单的叙述中，错误的是
• A.当窗体为活动窗体时，用＜Ctrl+E＞键可以打开菜单编辑器
• B.把菜单项的Enabled属性设置为False，则可删除该菜单项
• C.弹出式菜单在菜单编辑器中设计
• D.程序运行时，利用控件数组可以实现菜单项的增加或减少
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:B
[解析] Visual Basic中的菜单(包括弹出式菜单)是通过菜单编辑器来设计的。

打开某个活动窗体的菜单编辑器有4种方法：(1)选择菜单【工具】→【菜单编辑器】命令；(2)单击工具栏中的“菜单编辑器”图标；(3)使用快捷键＜CtrI+E＞；(4)右击窗体，从弹出的快捷菜单中选择【菜单编辑器】命令。

菜单项的“有效”属性(即Enabled)是控制菜单项的有效性的，当把一个菜单项的“有效”属性设置为False，就可以使其失效，运行后该菜单项变为灰色。

菜单项的增减也可通过控件数组来实现。

控件数组可以在设计阶段建立，也可以在运行时建立。

利用这一特点，可在设计时建立菜单控件数组的第一个元素，该元素的下标为0、Visible属性为False,，在程序运行时，通过Load 语句来建立该菜单控件数组的新元素，并将其Visible属性设置为True，从而实现增加菜单项的功能。

删除菜单项时可通过UnLoad语句来实现。

5.
在窗体上添加一个命令按钮，名为 command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为______。

For i = 1 To 3
For j = 1 To 3
For k = 1 To 2
x=x+ 3
Next k
Next j
Next i
Text1. Text =str (x)
• A. 21
• B. 42
• C. 54
• D. 72
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
6.
在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。

• A. 代码窗口
• B. 窗体设计窗口
• C. 属性窗口
• D. 工程资源管理器窗口
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:D
[解析] 工程管理器窗口用来列出当前工程中的窗体和模块以及类模块等工程的组成部分。

7.
当发生Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出
______ 。

Option Explicit
Private Sub Form Click ()
Dim num As String * 1, n As Integer
Open "C:\ Check. txt" For Random As #10
For n = 1 To 6
num = Chr(n + 64)
Put %10, n, num
Next n
Seek #10, 3: Get #10, , num
Print Loc(10); Seek(10)
End Sub
•** 4
•** 5
C. 5 3
• D. 3 3
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
8.
表达式5Mod3+3\5*2的值是。

•**
•**
•**
**
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:B
[解析] 算术运算的优先级由高到低为：幂(＾)→取负(-)→乘、浮点除(*、/)→整除(\)→取模(Mod)→加、减(+、-)→连接(&)。

表达式5 Mod 3+3\5*2的运算过程为：表达式5 Mod 3+3\5*2→2+3\10→2+0→2。

9.
在工程中的标准模块中定义了如下数据类型：
Type fruit
orange As Integer
apple As Integer
End Type
在窗体上有—命令按钮Command1，要求当单击命令按钮时在C:\根目录下的顺序文件myfrtac.txt 中写入一条记录，下列能够完成改操作的事件过程是______ 。

• A. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange =
5 myfrt. apple = 10 Open
“c:\myfrta. txt” For Output As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub
• B. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange= 5 myfrt.
apple= 10 Open “c:\myfrtac. txt”For Input As #1 Print #1, myfrt, orange; myfrt.
apple Close #1 End Sub
• C. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange= 5 myfrt.
apple = 10 Open “c:\myfrtac. txt” For As
#1 Print #1, myfrt. orange; myfrt.
apple Close #1 End Sub
• D. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange =
5 myfrt. apple= 10 Open
“c:\myfrtac..txt” For Output As #1 Print
myfrt. orange; myfrt. apple Close #1 End Sub
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
10.
阅读程序：
Sub Form_Click
a = 10:
b = 15:
c = 20:
d = 25
Print a; Spc(5); b; Spc(7); c
Print a; Space(8); b; Space(5); c
Print c; Spc(1); "+"; Spc(1); d;
Print Spc(1); " = "; Spc(1); c + d
End Sub
运行上面的程序，单击窗体后，第三行输出结果是________。

• A. ■20■+■25■=■45■
• B. 20+25=45
• C. 10 15 20
• D. 20 25 45
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
11.
复选框的Value属性为0时，表示该复选框( )。

• A. 未被选中
• B. 被选中
• C. 框内有灰色的勾
• D. 操作有误
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
[解析] 复选框的Value属性用来返回或设置控件的状态，它可取3种属性值x 当取0时，表示未选中(默认值)；当取1时，表示选中；当取2时，表示为变灰。

运行时只有0和1两种状态。

12.
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。

在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序。

Private Type student
StuName As String*10
StuGrade As string*10
StuAgc As Integer
End Type
Private Sub Form_Click()
Dim s As student
Open "c:\student.txt" For Random As #1 Len=Len(s)
For i=1 To 1
s.StuName=InputBox("请输入姓名")
s.StuGrade=Input. Box("请输入年级号")
s.StuAge=Val(InputBox("请输入年龄"))
Next i
Close #1
End Sub
• A. Print #1,s
• B. Print#1,i
• C. Put#1,,s
• D. Put#1,,i
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 本题考查随机文件的读写，在For循环中，向随机文件中写入5个学生的信息，所以应该使用写操作语句，在随机文件中，写操作用Put语句，其格式为：Put#文件号，[记录号]，变量。

13.
以下VB6.0控件中，有Caption属性的是。

• A.组合框
• B.列表框
• C.计时器
• D.单选按钮
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
14.
由事务型数据流图映射为软件结构的设计首先应设计一个______它有两个功能：接收事务数据，根据事务类型调度相应的处理模块。

• A. 总控模块
• B. 事务中心
• C. 变换中心
• D. 事务调度
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:B
15.
要使菜单项MenuOne在程序运行时失效，使用的语句是
• A. MenuOne.Visible=True
• B. MenuOne.Visible=False
• C. MenuOne.Enabled=True
• D. MenuOne.Enabled=False
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:D
[解析] 菜单控件的主要属性有：Caption、Name、Index、Enabled、Visible 等，其中Enabled和Visible属性值为逻辑值，Visible属性用于表示菜单项是否可见，Enabled属性用于表示菜单项是否可用。

当Enabled属性值为False 时，表示菜单项当前不可用；当属性值为True时，表示菜单项可用。

16.
目录列表框的Path属性的作用是
• A.显示当前驱动器或指定驱动器上的路径
• B.显示当前驱动器或指定驱动器上的某目录下的文件名
• C.显示根目录下的文件名
• D.只显示当前路径下的文件
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:A
[解析] Path属性因控件而异，目录列表框的Path属性只显示当前驱动器或指定驱动器的路径，而不显示相关的文件名及文件。

17.
下列选项中不符合良好程序设计风格的是
• A. 源程序要文档化
• B. 数据说明的次序要规范化
• C. 避免滥用goto语句
• D. 模块设计要保证高耦合、高内聚
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:D
[解析] 编程风格是指在不影响性能的前提下，有效地编排和组织程序，以提高可读性和可维护性。

更直接地说，风格就意味着要按照规则进行编程。

这些规则包括：①程序文档化。

就是程序文档包含恰当的标识符、适当的注解和程序的视觉组织等。

②数据说明。

出于阅读理解和维护的需要，最好使模块前的说明语句次序规范化。

此外，为方便查找，在每个说明语句的说明符后，数据名应按照字典顺序排列。

③功能模块化。

即把源程序代码按照功能划分为低耦合、高内聚的模块。

④注意goto语句的使用。

合理使用goto语句可以提高代码的运行效率，但goto语句的使用会破坏程序的结构特性。

因此，除非确实需要，否则最好不使用goto语句。

本题的正确答案是D。

18.
树是结点的集合，它的根结点的数目是。

• A. 有且只有1个
• B. 1或多于1
• C. 0或1
• D. 至少有2个
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 树具有明显的层次关系，即树是一种层次结构。

在树结构中，根结点在第一层上。

当树为非空时，树中有且只有一个根结点，当树为空时，树中根结点的数目为0。

19.
关于MDI窗体，下列说法正确的是。

• A.一个应用程序可以有多个MDI窗体
• B.子窗体可以移到MDI窗体以外
• C.不可以在MDI窗体上放置按钮控件
**窗体的子窗体不可以拥有菜单
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 本题是考查多女档窗体MDI窗体的一些基本知识。

多文档窗体MDI的特点是：一个应用程序只能有一个MDIForm窗体，但是可以有多个MDI子窗体。

MDIForm窗体只包含Menu和PictureBox控件以及具有 Align属性的自定义控件。

MDI子窗体可以有菜单。

如果MDI子窗体有菜单，那么，当MDI子窗体为活动窗体时，子窗体的菜单条自动取代MDIForm对象的菜单条。

最小化的MDI 子窗体以图标形式出现在MDIForm中。

20.
以下叙述中错误的是
• A.下拉式菜单和弹出式菜单都用菜单编辑器建立
• B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
• C.除分隔线外，所有菜单项都能接收Click事件
• D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见SSS_SIMPLE_SIN
A B C D
分值: 1
答案:D
[解析] 下拉式菜单与弹出式菜单都用菜单编辑器建立，不同的是，弹出式菜单还需要用Popup Menu方法激活。

在多重窗体程序中，每个窗体都可以建立自己的菜单。

菜单中，除了分隔线外，所有菜单项都能接收Click事件。

选项D处犯了一个典型的错误，就是没有区别Visible属性与Enabled属性。

前者表示该菜单项不可见，后者表示该菜单项功能失效，此时显示为灰色。

21.
在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序；
Private Sub Commandl_Click()
Dim x，y，z As Integer
x=5：y＝7：z=O
Text1．Text=""
Call Pl(x，y，z)
Text1. Text＝Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c=a+b
End Sub
• A. 0
• B. 12
• C. Str(z)
• D. 没有显示
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:B
[解析] 本题主要是对调用Sub过程的考查。

调用过程P1时，实参x，y，z的值分别传递到形参a，b，c。

执行过程内的语句得 z=x+y即z=5+7。

题中a，b 参数是按值传送的，参数c是按址传送的，传值调用不影响实际参数，传址调用影响实际参数。

故执行过程内的语句后z的值变为12而不是0。

z是整型变
量，可以使用Str函数将其转换为字符类型，然后赋给文本框的Text属性，使其在文本框中显示。

22.
在文本框中，要设置显示的文本颜色，应该设置属性。

• A. ForeColor
• B. BackColor
• C. FillColor
• D. BackStyle
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
[解析] 本题考查文本框的常见属性。

ForeColor为前景颜色属性：设置控件的前景颜色(即正文颜色)，其值是一个16进制常数，用户也可以在调色板中直接选择所需颜色；BackColor为背景颜色属性；FillColor设置封闭图形的填充颜色：BackStyle是背景样式属性。

23.
利用Open语句打开文件时，若省去For[模式]，默认的模式是。

• A. Output
• B. Input
• C. Append
• D. Random
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:D
[解析] VB规定，如果在打开文件的时候省去For[模式]，文件的读写模式默认为Random。

24.
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click
Dim n As Integer
For n=0 To 9 Step 3
Print rel(n)；
Next n
End Sub
Private Function tel(ByVal i As Integer)As Integer
Dim x As Integer
x=0
For j=1 To i
If i＜5 Then rel=i：Exit Function
x=x+j
Next j
rel=x
End Function
程序运行后，单击命令按钮，则窗体上显示的内容是______。

• A. 1 3 5 7
• B. 2 8 14 53
• C. 0 3 21 45
• D. 0 5 11 34
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] Exit Function的功能是立即终止函数的运行并回到调用函数的地方继续执行其他语句。

在Function过程的任何位置都可以设置：Exit Function语句。

变量n传值为0、3、6、9，4次调用rel函数过程，由于0和3都小于5，使得i＜5不成立，被执行了“Exit Function”，函数名将0和3传回。

而6和9没有使得i＜5成立，变量x的计算结果分别为21和45，也被函数名传回。

25.
函数过程Fun1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。

Function Fun1(b As Integer)
if ______ Then
Fun1=0
Else
Fun1=1
End If
End Function
使该功能完整，应在空行处填入以下哪条语句
• A. b Mod 2＜＞0
• B. b Mod 2=0
• D. b\2=0
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:B
[解析] 本题考查的是函数过程的定义。

b是偶数的条件是“b Mod 2=0”，当b 为偶数时返回0，应将0赋给“Fun1”；当b为奇数时返回1，即将1赋给“Fun1”。

所以本题的正确答案是选项B)。

26.
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
For n=1 To 20
If n Mod 3＜＞0 Then m=m+n\3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是______。

• A. 15
• B. 18
• C. 21
• D. 24
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:C
[解析] n从1到20，循环共执行20次，当n＝21时，循环条件不成立，循环结束，最后输出n的值为21。

因此，选项C正确。

27.
有如下程序：
Private Sub Form_Click()
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E:F
End Sub
该程序的输出结果是
• A. 6 6
• B. 5 8
• D. 34 55
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 阅读本题程序可以看出，E或F的值总是它前边E和F值的和，E和F 的值顺序分别为1、1，2、3，5、8，13、21，可以很容易地用前两个数相加得到后一个数。

第1次循环E和F的值分别为2和3，第2次循环E和F的值分别为5和8，第3次循环E和F的值分别为13和21，最后输出结果为13和21。

28.
应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，单击窗体和命令按钮的事件过程名分别为______。

• A. form_ Click() Command1_Click()
• B. Frm1_ Click() Command1_ Click()
• C. form_ Click() Cmd1_ Click()
• D. Frm1_ Click() Cmd1_ Click()
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 无论窗体的名称属性是什么，其单击窗体的事件为form_ Click()。

但命令按钮的事件为名称属性后加“Click”。

29.
假定有以下函数过程：
Function fun(S As String)
Dim S1 As String
For i=1 To Len(S)
S1=LCaes(Mid(S，i，1))+S1
Next i
Fun=S1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String，str2 As String
Str1=InputBox("请输入一个字符串")
str2=Fun(str1)
Print Str2
End SUb
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“AbCDefG，则单击“确定”按钮后在窗体上的输出结果为。

•**
•**
•**
**
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:D
[解析] 此题考查字符串函数，LCase函数是把字符串转换为小写字母输出，Mid(X，n，m)表示读取字符串X中从第n个字符起到第m个字符的字符串，程序把s1连接在每取出的一个字符之后，实现了字符串的倒序输出，所以输出结果为gfedcba，选项D为正确答案。

30.
模块的定义为受该模块内一个判断影响的所有模块的集合。

• A. 控制域
• B. 作用域
• C. 宽度
• D. 接口
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:B
[解析] 模块的控制域是这个模块本身以及所有直接或间接从属于它的模块的集合。

模块作用域定义为受该模块内一个判断影响的所有模块的集合。

宽度是软件结构内同一个层次上的模块总数的最大位，一般说来，宽度越大，系统越复杂。

对宽度影响最大的因素是模块的扇出。

模块间接口的复杂程度影响模块耦合强弱。

31.
下列对于软件测试的描述中正确的是
• A. 软件测试的目的是证明程序是否正确
• B. 软件测试的目的是使程序运行结果正确
• C. 软件测试的目的是尽可能多地发现程序中的错误
• D. 软件测试的目的是使程序符合结构化原则
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 软件测试的目标是在精心控制的环境下执行程序，以发现程序中的错误，给出程序可靠性的鉴定。

测试不是为了证明程序是正确的，而是在设想程序有错误的前提下进行的，其目的是设法暴露程序中的错误和缺陷。

可见选项C的说法正确。

32.
在Visual Basic应用程序中，以下正确的描述是 ______。

• A. 过程的定义可以嵌套，但过程的调用不能嵌套
• B. 过程的定义不可以嵌套，但过程的调用可以嵌套
• C. 过程的定义和过程的调用均可以嵌套
• D. 过程的定义和过程的调用均不能嵌套
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:B
[解析] 过程必须分开定义，但是在调用的时候可以嵌套。

33.
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。

在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序。

Private Type student
StuName As String * 10
StuGrade As String * 10
StuAge As Integer
End Type
Private Sub Form_Click()
Dim s As student
Open "c:\student.txt" For Random As #1 Len = Len(s)
For i = 1 To 1
s. StuName = InputBox("请输入姓名")
s. StuGrade = InputBox("请输入年级号")
s. StuAge = Val(InputBox("请输入年龄"))
Next i
Close #1
End Sub
• A. Print #1,s
• B. Print #1,i
• C. Put #1,,s
• D. Put #1,,i
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:C
[解析] 本题考查随机文件的读写，在For循环中，向随机文件中写入5个学生的信息，所以应使用写操作语句，在随机文件中，写操作用Put语句，其格式为：
Put#文件号,[记录号],变量
34.
关系模型允许定义3类数据约束，下列不属于数据约束的是
• A. 实体完整性约束
• B. 参照完整性约束
• C. 属性完整性约束
• D. 用户自定义的完整性约束
SSS_SIMPLE_SIN
A B C D
分值: 1
答案:C
[解析] 关系模型允许定义3类数据约束，它们是实体完整性约束、参照完整性约束及用户自定义完整性约束。

其中前两种完整性约束由关系数据库系统支持，对于用户自定义完整性约束，则由关系数据库系统提供完整性约束语言，用户利用该语言给出约束条件，运行时由系统自动检查。

35.
窗体文件的扩展名是______。

• A. .frm
• B. .vbp
• C. .bas
• D. .frx
SSS_SIMPLE_SIN
A B C D
分值: 2
答案:A
[解析] Visual Basic、应用程序可以用4种类型的文件保存。

一类是单独的窗体文件，扩展名为.frm；一类是公用的标准模块文件，扩展名为.bas；第三类是类模块文件，扩展名为.cls；第四类是工程文件，这种文件由若干个窗体和模块组成，扩展名为.vbp。

二、填空题
36.
对窗体编写如下两个事件过程：
Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr (KeyCode)
End Sub
Private Sub Form_ KeyPress (KeyAscii As Integer)
Print Chr (KeyAscii)
End Sub
程序运行后，如果直接按键盘上的a键(即不按住shift键)，则在窗体上输出的字符分别为______ 和______ 。

SSS_FILL
分值: 2
答案:A a
37.
若s、i均为整型变量，执行下列程序段后s的值为 ______。

s=0
i=1
Do
s=s+i
i=i+1
Loop Until i＞5
SSS_FILL
分值: 2
答案:15
[解析] 本题考查了Do．．．Loop Until控制语句。

每执行一次循环，变量s 加一次变量i，随后变量i再加一次1，直到变量5大于5时终止循环。

i的初始值为1，故Do循环执行5次。

相应的，变量s分别加1、2、3、4、5，故答案为15。

38.
顺序存储方法是把逻辑上相邻的结点存储在物理位置的存储单元中。

SSS_FILL
分值: 1
答案:相邻
[解析] 常用的存储表示方法有4种，顺序存储、链式存储、索引存储、散列存储。

其中，顺序存储方法是把逻辑上相邻的结点存储在物理位置也相邻的存储单元中。

39.
______是数据库设计的核心。

SSS_FILL
分值: 2
答案:数据模型
[解析] 数据模型是对客观事物及联系的数据描述，它反映了实体内部及实体与实体之间的联系。

因此，数据模型是数据库设计的核心。

40.
表达式(7\3+1)*(18\-1)的值是______。

SSS_FILL
分值: 2
答案:-54
[解析] 小括号的优先级最高，整除\的优先级高于加，减运算的优先级。

表达式(7\3+1)*(18\-1)运算过程如下：
①先计算小括号内的整除\运算：
(7\3+1)*(18\-1)=(2+1)*(-18)；
②再计算小括号，(7\3+1)*(18\-1)=(2+1)*(-18)=3*-18；
③最后计算乘法运算：(7\3+1)*(18\-1)=(2+1)*(-18)=3*-18=-54。

41.
假设用一个长度为50的数组(数组元素的下标为0～49)作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49，top=30(数组下标)，则栈中具有______个元素。

SSS_FILL
分值: 2
答案:20
[解析] 通常，栈底指针指向栈空间的栈中的元素个数等于“栈底指针-栈顶指针+1”，即49-30+1=20。

42.
执行下面程序，第一行输出结果是，第二行输出结果是47。

Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
SSS_FILL
分值: 1
答案:23
[解析] 考查考生对过程调用的应用情况。

[解题要点] 递归是一种十分有用的程序设计技术。

递归过程是在过程定义中调用(或间接调用)本过程的过程。

递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。

当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。

[考点链接] 通用过程的调用和通用过程中的参数调用。

43.
应用程序结构指的是组织指令的______，即指令存放的______和指令的______顺序。

SSS_FILL
分值: 1
答案:方法位置执行
44.
以下程序段执行后y的值是。

x=8.6
y=int(x+0.5)
print y
SSS_FILL
分值: 2
答案:9
[解析] 返回参数的整数部分，其类型和参数相同。

语法
Int(number)
必要的number参数是Double或任何有效的数值表达式。

如果number包含Null，则返回Null。

45.
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim inData As String
Text1. Text=""
Open "d: \myfile. txt "For______As #1
Do While ______
Input # 1，inData
Text1. Text=Text1. Text+inData
Loop
Close #1
End Sub
程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。

请填空。

SSS_FILL
分值: 4
答案:Input Not EOF(1)
[解析] 打开文件的语句形式：Open文件名For读写方式As[#]文件号[Len=记录长度]，其中读写方式有：Output、Input和Append。

根据题意可知myfile. txt作为输入文件，故填Input。

EOF函数的语法为EOF(filenumber)，filenumber包含任何有效的文件号。

使用EOF的目的是为了避免因试图在文件结尾处进行输入而产生错误。

直到到达文件的结尾，EOF函数都返回False。

而Do while的条件表达式必须为真，才可进入循环体。

所以应填Not EOF(1)，1为myfile. txt的文件号。

46.
函数Str＄(256.36)的值是______。

SSS_FILL
分值: 2
答案:36(“□”表示空袼)
[解析] Str函数的作用是将数字转成字符串，并且能够识别第一个小数点。

注意转换后数字前会保留一空位表示正负。

47.
一个栈的初始状态为空。

首先将元素1，2，3，4，5依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为______。

SSS_FILL
分值: 2
答案:5DCBA4321
[解析] 栈是限定只在一端进行插入与删除的线性表，栈按照"先进后出"或"后进先出"的原则组织数据。

当12345入栈后，此时执行退栈操作，出栈的元素是5，然后ABCD入栈，再将所有元素退栈，故退栈顺序为5DCBA4321。

48.
数据库设计包括概念设计、和物理设计。

SSS_FILL
分值: 2
答案:逻辑设计
[解析] 数据库设计概述
[评析] 数据库设计目前一般采用生命周期法，即将整个数据库应用系统的开发分解成目标独立的若干个阶段。

它们是：需求分析阶段、概念设计阶段、逻辑设计阶段、物理设计阶段、编码阶段、测试阶段、运行阶段、进一步修改阶段。

在数据库设计中采用上面几个阶段中的前四个阶段。

49.
有如下函数过程：
Function gys(By Val x As Integer, ByVal y As Integer) As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程：
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10；b=2
x=gys(a，b)
Print x
End Sub
该程序的运行结果是______。

SSS_FILL
分值: 2
答案:5
[解析] 本题的难点是Do While…Loop循环控制问题。

y=2、5、0.4的过程中，最后x=5。

50.
下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。

请填空。

Private Sub Command1_Click()
Dim a As Integer
Open For Output As #100
Randomize
For i =1 To 10
a=100+Int(899*Rnd)
Next i
Close #100
End Sub
SSS_FILL
分值: 0
答案:"d:\datalll.txt" Write #100,a
[解析] 首先打开顺序文件。

第一个空填文件的路径与文件名。

使用Write将数据写入文件内，格式为“Write #100，a”，即把变量a的值写入文件号为100的文件内。

1。