BB平台(VB日常测试)过程与函数.docxVIP

?问题 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-[未给定] 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 Integer?? Do?m = InputBox(m=, m0，m必须大于n)n = InputBox(n=, n0)?? Loop While m = n Or m 0 Or n