知识点：程序问答（五）$ N4 G7 ~, V6 D9 S- L& ]
程序4 h* e5 ^% @( l6 l
Private Sub Command1_Click()
/ ~8 M. z6 C& l: D& }# uDim a(3, 4) As Integer
) X! t5 X" \( BFor m = 1 To 3- j; M9 a3 ~. z& A
For n = 1 To 3# U1 \' y% s" X5 q
a(m, n) = Int(100 * Rnd)6 X4 o9 A! e2 E- _, ^0 l
Next n
U0 j% u2 G1 MNext m+ ]: G* L1 }$ A6 {2 y9 r( C
For m = 1 To 3
0 m4 B5 b5 e! j1 z& o a(m, 4) = amax(a, m)
/ f3 }( }+ v6 x! q5 f2 ?; YNext m
J- o* j. F zFor m = 1 To 3* ^8 c% b0 n$ k0 T3 b7 t
For n = 1 To 4/ o* ?- v; h0 C$ E* b4 I) k
Print a(m, n);1 w# [$ Z; _4 A5 `4 `+ w* A4 e2 y+ r
Next n
& I& A- l* h2 Q* ? Print7 e/ } w. y: z# j7 ~* T& |1 I
Next m
1 R, `8 V3 q z3 q0 sEnd Sub9 Y: X1 d: G; ], ], f6 F
Private Function amax(b, m)" S/ C: H( W' @. S/ |
amax = b(m, 1)
! ^1 C# T! l5 q6 zFor n = 2 To 3
$ K: \: n. p- Q4 O1 v8 d7 \ If amax < b(m, n) Then amax = b(m, n)' K ]* B+ y* H2 r' b
Next n
& \$ E# u4 f, z7 tEnd Function( n8 J$ g8 M$ t
问题3：对于二维数组a,每行最后一列元素用来存放该行数据的什么统计结果？（3分）
3 {, Q0 T+ b/ M5 x 问题4：自定义函数amax的功能是什么？（3分） |
发表于 2012-7-31 22:15:04
