UC知道VB中怎么把文本框中各列数相加??
来源：百度知道 编辑：UC知道 时间：2024/05/16 18:13:35
下面是按钮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
经测试下位两的代码我都得不到正常的结果,
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
经测试下位两的代码我都得不到正常的结果,
主要是把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
问题在于你的二维数组是过程变量,是以下完整代码:
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(