当前位置:编程学习 > VB >>

vb编程,要求如下

编一程序,把一个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
    Print
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
    Print
Next i

Print "平均值" & sum / (i * j)
Print "Max=" & max
Print "Min=" & min
End Sub

楼上的不会就不要乱回答,谁说VB没人用了?楼主莫怪,来回答是因为看不过眼楼上

我为刚才说的话道歉,是很少人用。现在基本上都在学CPP,如果现在学了VB想转CPP很难。我就是典型的例子

上一个:VB编程.题目如下
下一个:又是vb编程问题

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,