Question

VB编程数组的题，我们的结课作业。不会做啊？求助。望VB高手现身。

数组内容如下：32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后，单击窗体，将数据输入二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图所示。

Answer 1

Private Sub Form_Click()
Dim a() As String, Mat(4, 4) As Integer, i, j, sum
a = Split("32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37", " ")
Print "初始矩阵为："
Print
For i = 0 To 4
Print Tab(5);
For j = 0 To 4
Mat(i, j) = a(i * 5 + j)
If i = 2 Then sum = sum + Mat(i, j)
Print Mat(i, j);
Next
Print
Next
Print
Print "第三行各项的和为："; sum
End Sub

Answer 2

Private Sub Form_Load()
Me.Show
Dim AA(1 To 25) As Integer, BB As Integer
AA(1) = 32: AA(2) = 43: AA(3) = 76: AA(4) = 58: AA(5) = 28: AA(6) = 12: AA(7) = 98: AA(8) = 57: AA(9) = 31: AA(10) = 42: AA(11) = 53: AA(12) = 64
AA(13) = 75: AA(14) = 86: AA(15) = 97: AA(16) = 13: AA(17) = 24: AA(18) = 35: AA(19) = 46: AA(20) = 57: AA(21) = 68: AA(22) = 79: AA(23) = 80: AA(24) = 59: AA(25) = 37
For I = 1 To 25
Print AA(I);
If I Mod 5 = 0 Then Print
If I >= 11 And I <= 15 Then BB = BB + AA(I)
Next I
Label1.Caption = "第三行各项的和：" & BB
End Sub

追问

谢谢

Answer 3

如果将来不准备从事这方面的工作，那么就从网上求助做也无所谓。
如果将来可能要用，还是静下心来好好学吧。

Answer 4

你的意思是 程序运行后 在输入 数组中的数据？？？ 还是 form1 这个窗口载入时 数据就显示在窗体上？？？ 弄清楚了 我来做。。

追问

谢谢了，做好了