Private Sub Command1_Click()Const m = 4, p = 3Dim a(1 To m, 1 To p) As IntegerDim i As Integer, k As IntegerFor i = 1 To mFor k = 1 To pa(i, k) = InputBox("请输入销售情况")Next kNext iDim b(1 To 3) As Currencyb(1) = 2000b(2) = 1300b(3) = 1600Dim c As Currency, d As Currency, e As Currency, f As Currencyc = a(1, 1) * b(1) + a(1, 2) * b(2) + a(1, 3) * b(3)d = a(2, 1) * b(1) + a(2, 2) * b(2) + a(2, 3) * b(3)e = a(3, 1) * b(1) + a(3, 2) * b(2) + a(3, 3) * b(3)f = a(4, 1) * b(1) + a(4, 2) * b(2) + a(4, 3) * b(3)Label1.Caption = "百佳" & c & " " & "大富源" & d & " " & "万佳" & e & " " & "家乐福" & fEnd Sub这是作业来着 我想知道2维数组干吗要用const定义m = 4, p = 3Dim a(1 To m, 1 To p) As Integer 这里直接 (1 to 4,1 to 3)不行吗?

可以啊，也可以这样定义啊

问得有道理,你不妨在试一下,把它该过来,只要有发运行就OK了,那就可以直接改了!

Dim a(1 To 4, 1 To 3) As Integer Dim i As Integer, k As Integer For i = 1 To ubound(a,0)For k = 1 To ubound(a,1) '这样也可以～

'不好意思，错啦，应该是：For i = 1 To ubound(a,1) For k = 1 To ubound(a,2)