Question

VB中怎么把文本框中各列数相加??

下面是按钮1的代码,即在文本1中随机生成4行5列一组数
Dim A(1 To 4, 1 To 5) As Integer
For i = 1 To 4
For j = 1 To 5
A(i, j) = Int(9 * Rnd) + 1
Text1.Text = Text1.Text & CStr(A(i, j)) & " "
Next j
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next i
要求按钮2求出各列的和,从文本2中输出
比如按下按钮1生成
8 7 3 3 6
6 2 7 4 9
1 1 8 2 3
2 4 1 4 4
这时按下按钮2即在文本2中输出
17 14 19 13 22
经测试下位两的代码我都得不到正常的结果,

Answer 1

问题在于你的二维数组是过程变量,是以下完整代码:
Dim A(1 To 4, 1 To 5) As Integer '此句将a()定义为窗体级变量.
Private Sub Command1_Click()

For i = 1 To 4
For j = 1 To 5
A(i, j) = Int(9 * Rnd) + 1
Text1.Text = Text1.Text & CStr(A(i, j)) & " "
Next j
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next i

End Sub

Private Sub Command2_Click()
Dim s(1 To 5)
For i = 1 To 5
For j = 1 To 4
s(i) = s(i) + A(j, i)
Next j
Text2.Text = Text2.Text & s(i) & " "
Next i
End Sub

Answer 2

主要是把dim a放到外面去,变成全窗体的声明.这样,2个过程都能用了.

Dim A(1 To 4, 1 To 5) As Integer

Private Sub Command1_Click()
Text1 = ""
For i = 1 To 4
For j = 1 To 5
A(i, j) = Int(9 * Rnd) + 1
Text1.Text = Text1.Text & CStr(A(i, j)) & " "
Next j
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next i
End Sub

Private Sub Command2_Click()
Dim s%
Text2 = ""
For j = 1 To 5
For i = 1 To 4
s = s + A(i, j)
Next
Text2 = Text2 & s & " "
s = 0
Next
End Sub