打印本文 打印本文  关闭窗口 关闭窗口  
高校等考试题天天练二级VB]11月5日
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:49:26  文章录入：杜斌  责任编辑：杜斌
知识点：程序问答（五）
程序
Private Sub Command1_Click()
Dim a(3, 4) As Integer
For m = 1 To 3
      For n = 1 To 3
        a(m, n) = Int(100 * Rnd)
      Next n
Next m
For m = 1 To 3
      a(m, 4) = amax(a, m)
Next m
For m = 1 To 3
      For n = 1 To 4
        Print a(m, n);
      Next n
      Print
Next m
End Sub
Private Function amax(b, m)
amax = b(m, 1)
For n = 2 To 3
      If amax < b(m, n) Then amax = b(m, n)
Next n
End Function
   问题3：对于二维数组a,每行最后一列元素用来存放该行数据的什么统计结果？（3分）
  问题4：自定义函数amax的功能是什么？（3分）

打印本文 打印本文  关闭窗口 关闭窗口