用数组编程计算机的vb代码,是有关于数组的vb编程问题，给我一个代码答案，我不太懂这些问题? 爱问知识人...

先在窗体加入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。

全部