Private Sub Command1_Click()Dim a(3, 2), b(1, 2)a(0, 0) = "项目一": a(0, 1) = 360: a(0, 2) = 56a(1, 0) = "项目二": a(1, 1) = 460: a(1, 2) = 58a(2, 0) = "项目一": a(2, 1) = 568: a(2, 2) = 56a(3, 0) = "项目二": a(3, 1) = 856: a(3, 2) = 56For i = 0 To 3 If a(i, 0) = "项目一" Thenb(0, 0) = a(i, 0)b(0, 1) = b(0, 1) + a(i, 1)... |