文案大全 【HNCE 网上考试系统 v9.6】 本套软件使用权属于：郑州大学
考试课程:
VB-程序设计-练习 考试时间:90分钟 考场:第一考场 考试日期:2017.04.10
剩余时间： 88:09 保存交卷退出帮助
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
": End
B
C ": End
D ": End
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 (X Mod
D (X Mod
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 文案大全
二、程序应用题（8道小题，共50分）
1、* 下面程序用来输出如下图案，请填空。

ABCDE
ABCD
ABC
AB
A Private Sub Command1_Click()
Dim i%, j%
For i = 5 To 1 Step -1
For j = 1 To
i
Print Chr(j
+ 64);
Next j
Print
Next
End Sub
（4分）
2、* 使用InputBox函数接收一批字符，将其中的数字字符进行累加并输出累加和。

Private Sub Form_Click()
Dim s As String, i As Integer
文案大全
s = InputBox("请输入一个带数字的字符串")
1
i =
Sum =
Do While i <= Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
Sum = Sum + Mid(s, i, 1)
End If
i = i + 1
Loop
Print Sum
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 = 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
文案大全
文案大全
文案大全
文案大全
文案大全
文案大全
实用标准文档
剩余时间：88:09 保存交卷退出帮助
强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览
文案大全。