Visual Basic¿ìËÙÈëÃÅ

all = all + a(i, n)

Next i

Text2 = \

ËùÓп¿±ßÔªËØÖ®ºÍ

\

End Sub 9 £®

¾ØÕ󲻿¿±ßÔªËØÖ®ºÍ£»

Option Explicit

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Integer, all As Integer

n = InputBox(\

ÇëÊäÈë·½ÕóµÄ½×Êý£º \

ReDim a(n, n) As Integer

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) & \ \