Question

求助：VB.net编程题 用VS2010做的

生成一个数组，包含15个在 [-200,200) 区间范围的随机整数，要求
（1）单击Button1，生成数组，并将生成的15个数构成的数组以3行5列的形式显示在文本框TextBox1中；
（2）单击Button3，调用函数过程MaxArry求出其最大值及其位置，最小值及其位置，平均值，并将求得的最大值及其位置，最小值及其位置，平均值返回给Button3的单击事件中。在文本框txtMax,txtMin,txtAver中分别显示最大值及其位置，最小值及其位置，平均值。说明：txtMax,txtMin,txtAver为三个文本框的name.
（3）函数过程要求格式为：
Function MaxArry%(Byref Arry1%(),Byref PosMax%, ByrefMin%, Byref PosMin%,Byref Aver！)
参数说明：Arry1为数组的名称
PosMax 为最大值的位置；
PosMin为最小值的位置；
MaxArry为数组最大值；
Min为数组最小值；
Aver为求得的函数平均值；
（4）单击Button2，将该数组中的数进行由大到小排序，并将排序好的结果以5行3列的形式显示在文本框TextBox2中。
注意：数组需要声明为模块级别。

我现在写出来第一小题的程序 但是输出的时候只能输出一个数字
代码如下
Dim strChars$, i%, j% : Dim A(15) As Integer
For i = 1 To 15
A(i) = Int(Rnd() * 400 - 200)
strChars = Trim(Str(A(i)))
For j = 1 To A.GetUpperBound(0)
TextBox1.Text = (Space(5 - Len(strChars)) & strChars)
If j Mod 5 = 0 Then
TextBox1.Text &= vbCrLf
End If
Next
Next
求大神帮忙看一下是哪里出了问题！！！！

Answer 1

已经回答过好几个了，给你个参考

http://zhidao.baidu.com/question/432683782439778564

Public Class Form1
   Dim A(2, 4) As Integer '这里声名的二维是3和5是从0算起的
  
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text="" '清空文本
       'Dim A(2, 4) As Integer '也可以在这里面声明。
       Dim i As Integer : Dim j As Integer
       For i = 0 To 2 '从0算起到2就是3次计数。
           For j = 0 To 4 '从0算起到4就是5次计数。
               A(i, j) = Int(Rnd() * 400 - 200)'随机生成一个号码 
               TextBox1.Text &= A(i, j) & " "  '把一行的5个数链接排出来。
           Next
           TextBox1.Text &= vbCrLf '添加换行
       Next
   End Sub
End Class

追问

是用一维数组做啊，因为我们没学怎样给求二维数组的最大最小值和排序。

追答

'使用一维数组就这样用
Public Class Form1
   Dim A(14) As Integer '这里声名的一维是15是从0算起的

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text="" '清空文本
       'Dim A(14) As Integer '也可以在这里面声明。
        Dim i As Integer
        For i = 0 To 14 '从0算起到2就是3次计数。
            A(i) = Int(Rnd() * 400 - 200)
            TextBox1.Text &= A(i) & " "  '把一行的5个数链接排出来。
            If (i + 1) Mod 5 = 0 Then
                TextBox1.Text &= vbCrLf '添加换行
            End If
        Next
   End Sub
End Class