计算机二级
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x)，y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y:y=x+y Fun1=x+y End Function Private Fun
题目
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x)，y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer，y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别是
A．2 4 2 4
B．2 4 4 8
C．10 10 58 58
D．4 4 8 8
相似问题和答案
第1题：
在窗体(Name 属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Commnd1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_ Load () Text1 Text=“” Text2 Text=“” End sub程序运行后，在第一个文本框(Text1)和第二个文本框(text2)中分别输入123和321，然后单击命令按钮，则输出结果为______ 。
A．444
B．321123
C．123321
D．132231
第2题：
在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
A．12
B．0
C．5
D．7
第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题：
在名为“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事件，完成两个字符串的连接。
第5题：
（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的返回值也会不同。
第6题：
在窗体中添加一个命令按钮，名称为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
第7题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
Call f(x,y,z)
End Sub
Sub f(a As Integer,b As Integer,c As Integer)
c=b*a
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
15
第8题：
在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：
Function Fun（x As Integer,ByVal y As Integer）As Integer
x=x+y
If x<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click（）
Dim a As Integer,b As Integer
a=-10：b=5
Text1.Text=Fun（a，b）
Text2.Text=Fun（a，b）
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。
-5 5
该题考查传值参数和传址参数的区别。Visual Basic通过关键字ByVal来实现对b进行传值，而对于a则是通过引用来传地址，因此a与Function过程里的x是同一地址。第一次调用Function过程时，过程返回值为-5，同时x=-5,即a=-5，因此第二次调用过程时，过程的返回值为5。
第9题：
（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 Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（ ）。A.2 4 B.2 4 C.4 4 D.10 10 2 4 4 8 8 8 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的返回值也会不同。
第10题：
在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，
然后编写如下程序：
Function Fun(X As Integer,ByVal y As Integer)As Integer
x=x＋y
If X＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1 Click()
Dim a As Integer,b As Integer
a=-10:b=5
Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【 】和【 】。
-5 , 5 解析：Fun函数的目的是修改参数x的值为x＋y，如果x0，则返回x，否则返回y。执行Command1_click时，初始a=-10,b=5，执行第一个Fun函数后，a的值为-5，小于0，故返回a的值-5。执行第二个Fun函数后，a的值为0，不小于0，故函数返回b的值5。所以本题两空分别为-5及5。