窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
DimY As Integer
Private Sub Command1.Click()
Dim X AS Integer
x=2
Text1. Text=p2(p1(X), Y)
Text2. Text=p1(x)
End Sub
Private Function p1(X As Integer)As Integer
x+x+y:y=x+y
p1=x+y
End Function
Private Function p2(X As Integer, Y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。

A．2 4
2 4

B．2 4
4 8

C．4 4
8 8

D．10 10
58 58

选择“单线图拓扑关系检查”将显示当前图形窗口内所有图元与设备之间的拓扑关系；这些拓扑关系由系统自动生成。