先在窗体加入2个RichTextBox控件和2个Command按钮控件。
'***********************************************************
Dim N As Integer
Dim arry(99,99) As Integer'N要满足2<=N<=100,N=1就1个元素,没有意义。
'还有数组的下标是从0开始的。
'***************以上在通用区声明****************************
Private Sub InputArry_Click()
N = Int(InputBox("请输入N", "输入框"))
RichTextBox1。
Text = ""
Dim i As Integer, j As Integer, temp As Integer
For i = 0 To N-1'用户输入n阶矩阵
For j = 0 To N-1
arry(i, j) = Int(InputBox("请输入矩阵第(" + Str(i) + "," + Str(j) + ")个元素", "输入框"))
RichTextBox1。
Text = RichTextBox1。Text + Format(Str(arry(i, j)), "000") + " " '最好输入的数在3位以内,美观,呵呵
Next j
RichTextBox1。Text = RichTextBox1。
Text + vbCrlf
Next i
End Sub
Private Sub ChangeArry_Click()
Dim i As Integer, j As Integer, temp As Integer
For i = 0 To N-1
For j = 0 To N-1
RichTextBox2。
Text = RichTextBox2。Text + Format(Str(arry(j, i)), "000") + " "
Next j
RichTextBox2。Text = RichTextBox2。Text + vbCrlf
Next i
End Sub。
全部