下面程序的运行结果为( )。 Dim a%, b%, c% Sub p1(x%, y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + y End Sub Sub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + y End Sub Private Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a; b; c End Sub