某住宅小区建设项目，每栋住宅楼可以作为一个()进行质量控制．

在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和 Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl Click() a=TextText+TextText Print a End Sub Private Sub Form. Load() TextText="" Text2．Text="" End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和 321，然后单击命令按钮，则输出结果为 ()

A．444

B．321123

C．123321

D．132231

在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在Text2文本框中显示的内容是______。

A．Computer Rank Examination

B．computer rank examination

C．COMPUTER RANK EXAMINATION

D．空字符串

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y 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

窗体上有两个文本框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+v: 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

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 TextText=p2(p1(x),y) TextText=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

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

Dim y 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

在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

Private Sub Command1_Click()

Text1＝"VB programming"

Text2＝Text1

Text1＝"ABCD"

End Sub

程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。

A．abcEFG

B．abcefg

C．ABCefg

D．ABCEFG

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y 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

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

Dim y 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次命令按钮后，文本框Textl和Text2内的值分别为()。

A．2 4 2 4

B．2 4 4 8

C．4 4 8 8

D．10 10 58 58