vb如何用inputbox生成3乘3的100以内的矩阵,并把矩阵输入在picture1窗口中？

Question

vb如何用inputbox生成3乘3的100以内的矩阵,并把矩阵输入在picture1窗口中，并找出其中的最大值和最小值以及最大值最小值的下标输入在picture2中，求完整代码 谢谢！

Answer 1

1、用inputbox()函数输入9个100以内的数，用split分解，用for循环生成矩阵，并用for循环输出到picture1。

2、所需要工具：vb6

3、示例如下：

Private Sub Command1_Click()
    Dim n As String, a() As String
    Dim b(2, 2) As Integer
    Dim i As Integer, j As Integer
    n = InputBox("请输入9个数用逗号分隔", , "1,2,3,4,5,6,7,8,9")
    a = Split(n, ",")
    For i = 0 To 2
     For j = 0 To 2
      b(i, j) = a(3 * i + j)
     Next
    Next
    
    For i = 0 To 2
     For j = 0 To 2
       Picture1.Print b(i, j);
     Next
     Picture1.Print
    Next

End Sub

4、注意矩阵赋值顺序。