窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序

D．im y As Integer

Private Sub Command1_Click()

D．im x As Integer

x=2

Text1.Text=Fun2(Funl(x),y)

Text2.Text=Funl(x)

E．nd Sub

Private Function Funl(x As Integer) As Integer

x=x+y ∶y=x+y

F．unl=x+y

E．nd Function

Private Function Fun2(x As Integer,y As Integer) As Integer

F．un2=2*x+y

E．nd Function

当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别是

A．2 4 2 4

B．2 4 4 8

C．10 10 58 58

D．4 4 8 8

[单选题]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：D．im y As IntegerPrivate Sub Command1_Click()D．im x As Integerx=2Text1.Text=Fun2(Fun1(x),y)Text2.Text=Fun1(x)E．nd SubPrivate Function Fun1(x As Integer) As Integerx=x+y:y=x+yF．un1=x+yE．nd FunctionPrivate Fun

[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：D．im y As IntegerPrivate Sub Command1_Click()D．im x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)E．nd SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yE．nd FunctionPrivate Function p2(x

[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integer x=2 Text1.Text=p2(p1(x), y) Text2.Text=pi(x)End SubPrivate Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+yEnd FunctionPrivate Function p

[单选题]在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读以下程序段： Private Sub Command1_Click() x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。A．1和0B．2和240C．3和50D．4和168

[单选题]在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do Until x>=50 X=(x+4)﹡(x＋3) N=n+1 Loop Text1.Text＝Str(n) Text2.Text＝str(x) End Sub运行程序后，单击命令按钮，在两个文本框中显示的值分别为A. 1和0 B. 2和240 C. 3和50 D. 4和168

[单选题]在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：Private Sub Command1_Click()x=0D．o Until x＞=50x=(x+4)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)E．nd Sub运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。A．1和0B．2和240C．3和50D．4和168

[单选题]（27）窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1Text=p2(p1(x),y) Text2Text=p1(x) End Sub Private Function pl(x As Integer) As Integer x=x+y:y=x+y pl=x+y End Function Private Fun

[单选题]（30）窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序： Dim y As Integer Private Sub Commandl_Click() Dim x As Integerx=2 Text1.Text=p2(pl(x),y) Text2.Text=p2(x) End Sub Private Function p2(x As Integer,y As Integer) x=x+y：y=x+y pl=x+y End Function Private

[单选题]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As IntegerPrivate Sub Com

[单选题]窗体上有Text1、Text2两个文本框及一个命令按钮command1，编写下列程序：当单击1次和单击2次命令按钮后，文本框Text1和Text2内的