vb 要把一个矩阵的数据按行输入到文本框中，然后生成矩阵输入到另一个文本框中，计算矩阵的两条对角线和

vb 要把一个矩阵的数据按行输入到文本框中，然后生成矩阵输入到另一个文本框中，计算矩阵的两条对角线和

第二个sub缺少个 endif

第一个sub有个问题，

Dim a(4, 4) As Integer

Dim S As String

但后面你把a(i, J) = Mid(S, P - K, K)

把字符串赋给整形，这会导致类型不匹配

后面那个sub没看，缺少endif和end sub

希望我的回答对你有所帮助

第二个sub缺少个 endif

要这样吧! Option Explicit Option Base 1 Private a(4, 4) As Integer Private Sub Command1_Click() Dim S As String, P As Integer Dim j As Integer, K As Integer Dim i As Integer S = Text1.Text '注意在Text1里输入的数据之间以一个空格分隔 For i = 1 To 4 For j = 1 To 4 K = 0 P = P + 1 Do While Mid(S, P, 1) <> " " And P <= Len(S) '注意数据之间以一个空格分隔 P = P + 1 K = K + 1 Loop a(i, j) = Mid(S, P - K, K) Text2.Text = Text2.Text & CStr(a(i, j)) & " " '这里也是一个空格 Next j Text2.Text = Text2.Text & vbCrLf Next i End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim SUM As Integer SUM = 0 For i = 1 To 4 For j = 1 To 4 If i = j Or j = 5 - i Then SUM = a(i, j) + SUM End If Next j Next i Text3.Text = Str(SUM) End Sub

要这样吧