vb编程,要求如下
编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值、最大值和最小值。
补充:这个是学校安排的课程
编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值、最大值和最小值。
补充:这个是学校安排的课程
答案:
Private Sub Command1_Click()
On Error Resume Next
Dim a(4, 4) As Long
Dim sum As Long, min As Long, max As Long'输入数组元素实时打印
For i = 0 To 4
For j = 0 To 4
a(i, j) = InputBox("输入数组元素", "Enter")
Print a(i, j) & " ";
Next j
Next i
'对max,min进行赋初值
max = min = a(0, 0)
For i = 0 To 4
For j = 0 To 4
sum = sum + a(i, j) '总和
If min > a(i, j) Then min = a(i, j) '最小值
If max < a(i, j) Then max = a(i, j) '最大值
Next j
Next iPrint "平均值" & sum / (i * j)
Print "Max=" & max
Print "Min=" & min
End Sub楼上的不会就不要乱回答,谁说VB没人用了?楼主莫怪,来回答是因为看不过眼楼上
我为刚才说的话道歉,是很少人用。现在基本上都在学CPP,如果现在学了VB想转CPP很难。我就是典型的例子