VB键盘输入方阵行列值N,生成方阵,例如,键盘输入4,生成矩阵如下所示： 1111 2222 3333 4444

Question

求（1）生成矩阵并在文本框输出
（2）求对角线之和并在输出对话框输出

谢谢了 急求！

Answer 1

Dim i, j, sum%
Dim s As String
For i = 1 To CInt(TextBox1.Text.Trim)
For j = 1 To CInt(TextBox1.Text.Trim)
s = s & i
Next
s = s & vbCrLf
sum = sum + i
Next
TextBox2.Text = s
MsgBox(sum)
对角线之和没什麼意义，因为每一行都是相同的，随便取个数加起来就可以了