Question

vb矩阵问题

1．在窗体的通用对象中定义1个二维数组AGE(10,10)，表示一个10×10的会议室；
2．在窗体的Load的事件中完成：随机产生一个10×10的整数矩阵存入数组AGE，数据元素的大小为0~60之间（含）；并把小于18的数据直接表示为0。（表示将每个人的年龄按座位行和列放入至矩阵AGE，无人坐的为0）。
3． 在Command1的单击事件中完成：
（1）按图示格式输出由Form_Load事件中产生的AGE矩阵到标签Label1（按行输出，各元素之间用逗号间隔，每行尾都有一个西文逗号和一个回车换行符，回车换行符使用Chr(13) & Chr(10)）；
（2）求出平均年龄（四舍五入保留小数2位）放入Text1；
（3）求出最大年龄放入Text2。

说明：
1）不要改变数组名AGE。
2）要求数组下标从1开始。

Answer 1

option base 1
dim age(1 to 10,1 to 10) as integer
Dim b%, c%, i%, j%
Private Sub Form1_Load()
For i = 0 To UBound(age,1)
For j = 0 To UBound(age,2)
age(i, j) = int(61 * rnd + 0)
If age(i, j) < 18 Then age(i, j) = 0 : b = b + 1
c = c + age(i, j)
Next
Next
End Sub

Private Sub command1_Click()
Dim a As String
a = ""
Dim max As Integer
max = 0
For i = 0 To UBound(age,1)
For j = 0 To UBound(age,2)
If age(i, j) > max Then max = age(i, j)
a = a & CStr(age(i, j)) & " , "
Next
a = a & Chr(13) & Chr(10)
Next
Label1.Caption = a
Text1.Text = Format(c / (100 - b), "#.##")
Text2.Text = max
End Sub
我觉得你第二个文本框没有必要,因为产生的随机数最大就是60,那么这个文本框里面的数值也会一直是60.上面的代码已通过测试!