1、 问题 1 得 2.22 分，满分 20 分 编写一子过程，将数组 a（n, n）转置。 正确答案 所选答案1. Public Sub ff(a() As Single, n As Integer) 1.Public Sub ff(a() As Single, n As Integer) 2. Dim i As Integer, j As Integer, t As Single - 未给定 3. For i = 2 To nFor j = 1 To i-1- 未给定 4. t = a(i, j) - 未给定 5. a(i, j) = a(j, i) - 未给定 6. a(j, i) = t
2、- 未给定 7. Next j - 未给定 8. Next i - 未给定 9. End Function - 未给定 问题 2 得 0 分，满分 20 分 求下面表达式的值，并在窗体上输出。要求 m 与 n 的值在窗体单击事件中用 Inputbox()函数输入，且同为正整数， mn。通过函数过程实现求阶乘的功能。 Private Sub Form_Click() Dim m As Integer, n As IntegerDom = InputBox(“m=“, “m0，m 必须大于 n“)n = InputBox(“n=“, “n0“)Loop While m Sqr(k) Then pr
3、ime = True Else prime = False-未给定 8. End If -未给定 9. End FunctionPrivate Sub Form_Click() -未给定 10. Dim n As Integer -未给定 11. For n = 3 To 100 Step 2 -未给定 12. If prime(n) And prime(n + 2) Then Print n; n + 2 -未给定 13. Next n -未给定 14. End Sub -未给定 问题 3 得 0 分，满分 20 分 编写子过程，将某数组中元素按值从大到小排序，并在窗体的单击事件中，编写简单
4、程序验算其正确性。 Private Sub Form_click()Dim x(10) As Single, i As IntegerPrint “排序前： “For i = 1 To 10x(i) = InputBox(“b(“ + Str(i) + “)=“)Print x(i);Next iPrintCall sort(x(), 10)Print “排序后： “For i = 1 To 10Print x(i);Next iEnd Sub 正确答案 所选答案1. Private Sub sort(a() As Single, ByVal n As Byte) -未给定 2. Dim i
5、As Byte, j As Byte, k As Byte, temp As Single -未给定 3. For i = 1 To n - 1 -未给定 4. k = i -未给定 5. For j = i + 1 To n -未给定 6. If a(j) a(k) Then k = j -未给定 7. Next j -未给定 8. temp = a(k): a(k) = a(i): a(i) = temp -未给定 9. Next i -未给定 10. End Sub -未给定 问题 4 得 0 分，满分 20 分 编写 Sub 过程求一元二次方程的实数解，并通过事件过程调用它。 Priv
6、ate Sub Command1_Click()Dim a As Double, b As Double, c As Double, y1 As Double, y2 As Doublea = 3: b = 1: c = 5If root(a, b, c, y1, y2) ThenPrint y1, y2ElsePrint “方程无实数解！ “End IfEnd Sub 正确答案 所选答案1. Private Function root(ByVal a As Double, ByVal b As Double, ByVal c As Double, x1 As Double, x2 As Do
7、uble) As Boolean -未给定2. Dim d As Double -未给定3. d = b * b - 4 * a * c -未给定4. If d 0 Then -未给定5 root = False 未. - 给定6. Else -未给定7. root = Truex1 = (-b + Sqr(d) / (2 * a): x2 = (-b - Sqr(d) / (2 * a)-未给定8. End If -未给定9. End Function -未给定问题 5 得 0 分，满分 20 分 编写一个将一维数组倒置存放的子过程，并编写简单事件验证子过程的正确性。 Private Sub Form_Click()Dim b(6) As SingleFor i = 1 To 6b(i) = InputBox(“b(” + Str(i) + “)=”) Print b(i),Next IPrintCall rev(b(), 6) For i = 1 To 6 Print b(i),Next iEnd Sub
