Question

vb 6.0如何随机生成一个五行五列的数组，并且计算所有元素之和，和所有靠边元素之和？

vb 6.0如何随机生成一个五行五列的数组，并且计算所有元素之和，和所有靠边元素之和？
VB 6.0如何随机生成一个五行五列的数组，并且计算所有元素之和，和所有靠边元素之和？ 用VB做的！

Answer 1

dim a(5,5) as double
dim i ,j as integer
dim sum,sum_side as double
for i=1 to 5
for j= 1 to 5
a(i,j)=rnd()*13456 '这个数可以看着自己改吧.控制随机数的取值范围
sum=sum+a(i,j)
if j=1 or j=5 or i=1 or i=5 then sum_side=sum_side
'如果没有想错,上面这句就是加边角元素的和了.
next j, i

print "总和:",sum;"边元素和:",sum_side

Answer 2

Private Sub Command1_Click()
Dim mArr(1 To 5, 1 To 5), m%, n%, SumT%, SumS%
For m = 1 To 5
For n = 1 To 5
Randomize
mArr(m, n) = Int(Rnd * 99 + 1)
SumT = SumT + mArr(m, n)
If m = 1 Or m = 5 Or n = 1 Or n = 5 Then SumS = SumS + mArr(m, n)
Print mArr(m, n),
Next n
Print
Next m
Print
Print "所有元素总和: "; SumT
Print "边缘元素之和: "; SumS
End Sub

Answer 3

可以这样
要包括头文件#include<stdlib.h>
#include<time.h>

mian
{
int a[5][5];
int i,j;
srand((unsigned)time(NULL));
for(i=0;i<5;i++)
for(j=0;j<5;j++)
a[i][j]=rand();
}
main里的a[5][5] 就是随机生成的数了