vb一道编程题,在线等!

Question

编写一个程序,随机生成一个5*5的二维数组,求所有不靠边元素之和
包括编程及所需要的控件,谢谢!

Answer 1

楼上家伙写的很好，是生成100以内的随机数。
你要的和就是最后的 SUN 变量

你要生成其它随机数，直接把100改为其它正整数就行了，

它是直接打印到窗体上了，

也可以把代码直接放到 form_load里
就不用那个按扭控件了

Answer 2

只要定义一个command1控件就可以了：
Private Sub Command1_Click()
Dim a(4, 4) As Integer, i%, j%, sum
sum = 0
Randomize
For i = 0 To 4
For j = 0 To 4
a(i, j) = (Rnd * 100) + 1
Print a(i, j); " ";
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
sum = sum + a(i, j)
Next j, i
Print "sum:"; sum

End Sub