【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学
考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24
考号：姓名：剩余时间：99:42 保存交卷退出帮助
A B
C D
A B
C D
A B
C D
A B
C D
A B
C D
A B
C D
A B C D
A 命令
B 命令
C 命令
D 命令
A B C D A B C D A B C D A B C D A B
C D A B C D A B C D
A 模块文件
B 件的属性
C 源文件
D
包含多个工程文件及属于该工程的其他文件
A 该窗体文件并没有被删除
B 窗体文件被删除
C
程仍然包含这个窗体
D
A B
C D
A B
C D
A B C D A B C D
A可以实现交换两个变量值，而S2不能
B 个变量值，而S1不能
C 现交换两个变量值
D 现交换两个变量值
A B C D A B C D
A 过程调用后均不保存值
B 有变量都是Static型的变量
C
所有变量都是Private型的变量
D 所有变量都是非全局Public
A
用Dim语句或Static语句声明的变量
B 明它的过程
C Static语句声明的
D 程执行完毕后就被释放了
A B C D A B C D A B C D A B C
D
声明段
A B C D A B C D A B
C D A B C D A B C D A B C D
A 同
B Sub过程不可以
C
值，而Function过程能通过过程名返回值
D 或直接使用过程名调用，而
A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体
B
声明Public类型的变量来传递数据
C
大化、最小化或正常（保持设计时大小）等三种状态
D
A 菜单
B 过程代码都放在窗体文件中
C 名必须相同
D 是设计阶段时显示的位置
A Main过程
B
指定的窗体装入内存并显示该窗体
C 方法的作用完全相同
D
可以根据需要指定一个窗体为启动窗体
A 窗体
B 体组成
C
文件，所以一个应用程序只能包含一个窗体
D 动窗体
A B C D A B C D A B C D A B C D A B
C
D
文件名，3位扩展名
A 以不同
B 式访问
C 以分ASCII文件和二进制文件
D
分为顺序文件、随机文件和二进制文件
A
B
的文件号
C 文件关闭
D 的
A F For Input As #1B
For Input As #1
C Output As #1
D As #1
A
B
建一个名为Datafile.txt的文件
C Datafile.txt中写入信息
D
Datafile.txt不存在，系统显示出错信息
End Sub
（4分）
2、* 输出九九乘法表的左下角
程序代码如下：
Private Sub Command1_Click()
Dim se As String
Print Tab(35); "九九乘法表"
For =1 To 9
For j = 1 to i
se = i & "×" & j & "=" & i*j
Print Tab((j - 1) * 9 + 1); ;
Next j
Print
Next i
End Sub
（4分）
3、* 用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。

如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。

Private Sub Form_Click()
Dim n As Integer, a(100) As Integer
Dim x As Integer, i As Integer
Dim k As Integer, flag As Boolean
n = InputBox("N=")
For i = 1 To
a(i) = Int(90 * Rnd + 10)
Print a(i);
Next i：Print
x = InputBox("X=") : Print "X="; x
flag = False
For i = 1 To n
If a(i) = x Then
= True
k = i
Exit For
End If
Next i
If Not flag Then
Print "无可删除的元素"
Else
For i = k To n - 1
a(i) = a(i + 1)
Next i: n = n - 1
For i = 1 To n
Print a(i);
Next i
End If
End Sub
（4分）
4、* 对10个100以内的整数，用选择法按递增顺序排序。

程序代码如下：
Private Sub Command1_Click（）
Dim a(10) As Integer,t%
For i = 1 To 10
a(i)= int(rnd*101)
Print a(i);
Next i
Print
For I = 1 To 9
For j = i+1 To 10
If a(i)>a(j) then t=a(i) ：a(i) =a(j) ：a(j) =t Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
a = b
b = c
End Sub
（4分）
7、* 设计一前景背景色互换程序,如图{<1-2.jpg>}
* 单击命令按钮“换”，互换窗体中文本框的前景色和背景色。

'1-2.jpg
Private Sub Form_Load()
Text1 = “大象无形大音希声”
End Sub
Private Sub Command1_Click()
Dim t As Variant
Dim i As Integer
i = MsgBox("确定换吗？", vbokcancel)
If i = 1 Then
t = text1.ForeColor
text1.ForeColor = text1. Backcolor
texti. .BackColor = t
End If
End Sub
（6分）
三、编程题（2道小题，共20分）
1、* 在8000和9000之间有且只有一个完数，请找出这个完数（一个数正好等于它所有因子之和，就称为完数。

例如
6=1+2+3，6就是完数）。

（10分）
必须将本题程序最后的运行结果填入下面的框中。

否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
考号：姓名：剩余时间：99:42 保存交卷退出帮助强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览。