会vb的请帮帮忙

刚好在编一个程序,又搞定一个,刚好给你,答案丰富多采
放置一的命令按钮就行
Private Sub Command1_Click()
Dim k(5, 5) As Integer, i%, j%, a%, b%, c%, d%
Randomize
Form1.Cls
For i = 1 To 5
For j = 1 To 5
k(i, j) = Int(Rnd * 9)
a = a + k(i, j) '所有元素之和
Print k(i, j);
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then
b = b + k(i, j) '所有靠边元素之和
End If
Next j
c = c + k(i, i)
Print
Next i
d = k(5, 1) + k(4, 2) + k(2, 4) + k(1, 5)
Print "所有元素之和：" & a
Print "所有靠边元素之和:" & b
Print "两条角线无素之和:" & c + d
End Sub
我不会像以下这样简单:
一句话就能写个程序啦。
msgbox "Hello Teacher,this is my vb software."
呵呵

虽然手上程序大把,也想得你的分,但是不劳不获,没学就不要那个学分了.呵呵

同意楼上的！BS一下！但是我深有那种过不了重修的痛苦体会！建议搜索

baidu.com
keyword:vb源码

一句话就能写个程序啦。
msgbox "Hello Teacher,this is