itgle.com
（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 Function
题目
（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 Function p2(x As Integer,By Val y As Integer) p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为 A.2 4 2 4 B.2 44 8C.4 4 8 8 D.10 1058 58
相似考题
参考答案和解析
【解析】程序中y为窗体变量，其作用范围为整个窗体中的所有子过程，要注意区分与作为p1、p2形式参数的y变量。
窗体变量y能够记录程序运行中对其的改变，第1次调用p1，y值为2；第2次调用p1，y为6；第3次调用p1，y为14；第4次调用p1，y为36；所以计算出的函数p1、p2的返回值也会不同。
更多“(27)窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序: Dim y As Integer P ”相关问题
-
第1题：
窗体上有两个文本框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
正确答案：D
解析：程序中y为窗体变量，其作用范围为整个窗体中的所有子过程，要注意区分与作为p1、p2形式参数的y变量。窗体变量y能够记录程序运行中对其的改变，第1次调用p1，y值为2；第2次调用p1，y为6；第3次调用p1，y为14；第4次调用p1，y为36；所以计算出的函数p1、p2的返回值也会不同。 -
第2题：
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text=Fun2(Funl(x),y)
Text2.Text=Funl(x)
End Sub
Private Function Funl(x As Integer) As Integer
x=x+y ∶y=x+y
Funl=x+y
End Function
Private Function Fun2(x As Integer,y As Integer) As Integer
Fun2=2*x+y
End 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
正确答案：C
解析：函数Fun1和Fun2都是传值调用,其中,Text1文本框中的内容使用了嵌套调用。实参X是过程变量,实参Y是窗体变量。 -
第3题：
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
正确答案：VB programming
VB programming 解析：本段程序是先把"VB programming"赋给Text1，然后再把Text1的内容赋给Text2，最后把"ABCD"赋给Text1。最后Text1中的内容是"ABCD"，而Text2中的内容是"VB programming"。 -
第4题：
窗体上有两个文本框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 p2(x As Integer, y As Integer) As Integer p2=2*x+yEnd 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的返回值也会不同。 -
第5题：
窗体上有两个文本框Text1、Text2以及一个命令按钮Comanand1，编写下列程序： 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
正确答案：D
解析：程序中y为窗体变量，其作用范围为整个窗体中的所有子过程，要注意区分与作为P1、p2形式参数的y变量。窗体变量y能够记录程序运行中对其的改变，第1次调用p1，y值为2；第2次调用p1，y为6；第3次调用p1，y为14：第4次调用p1，y为36：所以计算出的函数p1、p2的返回值也会不同。