计算机二级
窗体上有两个文本框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 p
题目
窗体上有两个文本框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
参考答案和解析
D。【解析】程序中Y为窗体变量，其作用范围为整个窗体中的所有子过程，要注意区分作为p1、p2形式参数的Y变量。窗体变量Y能够记录程序运行中对其的改变，第1次调用p1，Y值为2；第2次调用p1，Y值为6；第3次调用p1，y值为14；第4次调用p1，y值为36；所以计算出的函数p1、p2的返回值也会不同。
相似问题和答案
第1题：
在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text 1="VB programming"
Text 2=Text 1
Text 1="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。
VB programming 解析：本段程序是先把“VB programming”赋给Text 1，然后在把Text 1的内容赋给Text 2，最后把“ABCD”赋给Text 1。所以最后Text 1中的内容是“ABCD”，而Text 2中的内容是“VB programming”。
第2题：
下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能，程序如下：
程序填空处应是______。
14159*d 解析：把代数表达式写成VB格式的形式，要用算术运算符和内部函数来实现。
第3题：
在窗体中有两个文本框分别为 text1 和 text2 ，一个命令按钮 command1, 编写如下两个事件过程：
Private sub command1_click()
A=text1.value+text2.value
Msgbox a
End sub
Private sub form_load()
Text1.value= ””
Text2.value= ””
End sub
程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____ 11 ___
第4题：
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略
第5题：
窗体上有两个文本框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
解析：程序中y为窗体变量，其作用范围为整个窗体中的所有子过程，要注意区分与作为p1、p2形式参数的y变量。窗体变量y能够记录程序运行中对其的改变，第1次调用p1，y值为2；第2次调用p1，y为6；第3次调用p1，y为14；第4次调用p1，y为36；所以计算出的函数p1、p2的返回值也会不同。
第6题：
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的是（ ）。
A. 2
B. 3
C. 4
D. 5
B) 【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。
第7题：
窗体上有两个文本框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
D。【解析】程序中Y为窗体变量，其作用范围为整个窗体中的所有子过程，要注意区分作为p1、p2形式参数的Y变量。窗体变量Y能够记录程序运行中对其的改变，第1次调用p1，Y值为2；第2次调用p1，Y值为6；第3次调用p1，y值为14；第4次调用p1，y值为36；所以计算出的函数p1、p2的返回值也会不同。
第8题：
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：
Private Sub Commandl Click()
Text3=Text1+Text2
End Sub
Private Sub Form1 Load()
Text1=" "
Text2=" "
Text3=" "
End Sub
打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Commandl的Click事件是：Text3=Text1+Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。
第9题：
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
VB programming 解析：本段程序是先把"VB programming"赋给Text1，然后再把Text1的内容赋给Text2，最后把"ABCD"赋给Text1。最后Text1中的内容是"ABCD"，而Text2中的内容是"VB programming"。
第10题：
在窗体中添加一个命令按钮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