1.用户输入两个3*3矩阵，把这两个矩阵打印出来，之后求它们的积（和、差），并把积（和、差）打印到窗体上

2.用户输入一组数，把这组数打印出来，并指出最大的数的位置

让人帮做作业...无视~  路过

哥哥、姐姐帮帮忙了！急用了！我对数组问题实在头疼！

[此贴子已经被作者于2007-4-16 17:19:46编辑过]

快点吧！我快下课了！

谁可以跟我解释下矩阵是什么么?

看样子..lz 还是自己做作业把...........

For I=上课 to 下课
快！快！快
Next

``````````````````

我也不知道你说的矩阵是啥意思```

``2题:
一个文本框text1,一个命令按钮command1


Private Sub Command1_Click()
b = 1
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1)
If a = "," Then
d = d + 1
e = Mid(Text1.Text, b, i - b)
b = i + 1
If e = "" Or e = "." Then e = 0
If Not IsNumeric(e) Then
MsgBox "你的第" & d & "个数输入错误", , "输入错误"
Exit Sub
End If
e = CCur(e)
If e > f Then
f = e
g = d
End If
Else
If i = Len(Text1.Text) Then
d = d + 1
e = Mid(Text1.Text, b, (i - b) + 1)
If e = "" Or e = "." Then e = 0
If Not IsNumeric(e) Then
MsgBox "你的第" & d & "个数输入错误", , "输入错误"
Exit Sub
End If
e = CCur(e)
If e > f Then
f = e
g = d
End If
End If
End If
Next i
Print Text1.Text
Print "最大的数" & f & ",在第" & g & "位."
End Sub

Private Sub Text1_Change()
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "," Or IsNumeric(Mid(Text1.Text, i, 1)) Or Text1.Text = "" Or Mid(Text1.Text, i, 1) = "." Then
Else
Text1.Text = Mid(Text1.Text, 1, i - 1) & Mid(Text1.Text, i + 1, Len(Text1.Text))
MsgBox "请输入数值或分隔符(，)", , "输入错误"
Exit For
End If
Next
End Sub

老兄，你是在学习Matlab吧，Matlab对矩阵处理比较在行