发布时间 : 星期日 文章Visual Basic快速入门更新完毕开始阅读
Randomize
For i = 1 To n
For j = 1 To n
a(i, j) = Int(90 * Rnd) + 10
Text1.Text = Text1.Text & a(i, j) & \
\
Next j
Text1.Text = Text1.Text & vbCrLf
Next i
all = 0
For i = 1 To n
all = all + a(1, i)
all = all + a(i, 1)
all = all + a(n, i)