郑州大学VB模拟题4
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学
考试课程: 考试时间:90分钟考场:第一考场考试日期:2012.05.07考号：20113160124姓名：剩余时间：89:56 保存交卷退出帮助
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 Command1.Caption = "计算机考试B
考试": End Sub
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 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: Print
End Sub
（4分）
3、* 删除已知数组 a 中的某个元素。
Private Sub Command1_Click()
Dim a() As Variant, n As Integer, Key As Integer
a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)
n = UBound(a)
Key = InputBox("请输入要删除的数")
For i = 0 To n
If Key = a(i) Then Exit For
Next i
If i = n + 1 Then MsgBox ("找不到此数") Exit Sub
For j = i + 1 To n
a(j - 1) = a(j)
Next j
n = - 1
ReDim Preserve a(n)
For i = 0 To n
Print a(i);
Next i: Print
End Sub
（4分）
4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。
Private Sub Form_Click()
Dim R(1 To 3, 1 To 4) As Integer
Dim S(1 To 3) As Integer
Dim i%, j%, max%, k% 'k为最高成绩学生序号
For i = 1 To 3
(i) = 0
For j = 1 To 4
R(i, j) = Int(30 * Rnd + 70)
Print Tab((j - 1) * 5); R(i, j);
S(i) = S(i) + R(i, j)
Next j
S(i) = S(i) / 4
Next i
max = 0
For i = To 3
Print "学生" & i; "平均成绩:" & S(i)
If max < S(i) Then
max = S(i)
k = i
End If
Next i
Print "最高平均成绩 k="; k, "max="; max
End Sub
（4分）
5、* 设计一个求两个数的最大公约数的函数过程。
* 程序代码如下：
Option Base 1
Private Function (ByVal m%, ByVal n%) As Integer If m < n Then t = m: m = n: n = t
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
gcd =
End Function
（4分）
6、* 下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。* 程序代码如下：
Dim nt As Single
Private Sub aa(ByVal n As Single)
Dim i As Integer
nt = 1
For i = 1 To n
nt = nt * i
Next i
End Sub
Private Sub Form_Click()
Dim sum As Single, n As Integer
sum = 0
For n = 1 To 9 Step 2
aa ()
sum = sum +
Next n
Print sum
End Sub
（4分）
7、* 大写字符转换小写字符，如图{
Private Sub Text1_(KeyAscii As Integer) If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then Text2 = Text2 + Chr(KeyAscii 32)
Else