瑞星卡卡安全论坛

数组内容如下：32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后，单击窗体，将数据输入二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来
。（因为是考查课，所以没怎么听，简单也不会做，急用，邮到475433452邮箱中，先谢谢啦！！！）

用户系统信息：Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0; MASP; 360SE)

不会，帮顶了。

 附件: 您所在的用户组无法下载或查看附件

Option Base 1
Private Sub Form_Load()
Const N = 5
    Const M = 5
    Dim Mat(5, 5) As Integer
    Dim Sum, i, j
  Open App.Path & "\" & "datain.txt" For Input As #1
    For i = 1 To N
        For j = 1 To M
            Input #1, Mat(i, j)
        Next j
    Next i
    Close #1
   
    Print
    Print "初始矩阵为："
    Print
    For i = 1 To N
        For j = 1 To M
            Print Tab(5 * j); Mat(i, j);
        Next j
        Print
    Next i
  Sum = 0
    For j = 1 To M
      Sum = Sum + Mat(3, j)
    Next j
   
    Print
    Print "第三行各项的和为：";
    Print Sum

End Sub
能帮我编一下（ Open App.Path & "\" & "datain.txt" For Input As #1）这个文件吗？？（数据32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37）

:kaka8: 作业不自己做能行不

Private Sub Command1_Click()
save Label3
Dim max As Integer
    Dim i As Integer, j As Integer
    max = a(1, 1)
    For i = 1 To 4
        For j = 1 To 4
            If a(i, j) > max Then
                max = a(i, j)
            End If
        Next
    Next
    Label3.Caption = max

End Sub

Private Sub Command2_Click()
save Label4
Dim sum As Integer
    Dim i As Integer
    For i = 1 To 4
        sum = sum + a(i, i)
    Next
    Label4.Caption = sum

End Sub

Private Sub Form_Load()
Open App.Path & "\in5.txt" For Input As #1
    For i = 1 To 4
        For j = 1 To 4
            Input #1, a(i, j)
        Next j
    Next i
    Close #1

End Sub
vb不能运行成功，求帮助！！！！

看不懂呢

呼叫不懂。。。:kaka12:

:default5:

你一纯表情，我就想起我从来不通过卡卡首页进茶馆，从来都是直接进茶馆，然后有个瑞星工程师就说要严肃处理我。也不知道是不是我有病。

不可以纯表情、纯引用、纯符号等回帖哈~~
修改后可以联系我撤销扣分