周三考试试题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
张慧勤
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学
考试课程:Visual Basic程序设计考试时间:100分钟考场:第一考场考试日期:2011.06.01考号：20105810129姓名：张慧勤剩余时间：99:23 保存交卷退出帮助
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 B C D A B C D A B C D
B
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
Next i
End Sub
（4分）
、* 求一维数组A中，小于平均值的最大值和最小值。
* 程序段如下：
Private Sub Command启动_Click()
Dim a(20) As Integer, i As Integer, aver As Integer Dim max As Integer, min As Integer
aver = 0
For i = 1 To 20
a(i) = Int(90 * Rnd) + 10
Print a(i);
aver = aver + a(i)
Next i: Print
aver = aver / 20
Print "aver="; aver
max = 0: min = 100
For i = 1 To 20
If < Then
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
End If
Next i
Print "Max="; max
Print "Min="; min
End Sub
（4分）
、* 程序功能是建立并输出如图所示的杨辉三角形。
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
Print I;
Sum = Sum + I
End If
Next I
Print "sum="; sum
End Sub
（4分）
、* 程序的功能是：将1到10之间的每个整数保存到文件D:\FILE2.txt中，并将这十个数的和在窗体上输出。 * 程序段如下：
Private Sub Command1_Click()
Dim i%, sum%
sum=0
Open "D:\FILE2.txt" For As #1
For i= 1 To 10
sum=sum+i
Write #1, i
Next i
#1
Print sum
End Sub
（4分）
编程题（3道小题，共40分）
、* 编写程序：
* 从键盘接收一批非0数据，当接收到0时，结束数据的输入，输出这一批数据中的平均值。
（10分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
考号：20105810129姓名：张慧勤剩余时间：99:23 保存交卷退出帮助强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览