未分类 · 2025年11月21日

下面程序的运行结果为( )。 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 8 6 6 4 6 6 4 6 10 8 8 6 A. B. C. D.

下面程序的运行结果为( )。 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 8 6 6 4 6 6 4 6 10 8 8 6 A. B. C. D.

正确答案:A