窗体上有两个文本框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 4B.2 4 4 8C.4 4 8 8D.10 10 58 58

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


相关考题:

在窗体中有两个文本框分别为 text1 和 text2 ,一个命令按钮 command1, 编写如下两个事件过程:Private sub command1_click()A=text1.value+text2.valueMsgbox aEnd subPrivate sub form_load()Text1.value= ””Text2.value= ””End sub程序运行时,在文本框 text1 中 78 ,在文本框 text2 中输入 87 ,单击命令按钮,消息框中输出的结果为____ 11 ___

在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:Function Fun(x As Integer,ByVal y As Integer)As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer,b As Integera=-10:b=5Text1.Text=Fun(a,b)Text2.Text=Fun(a,b)End Sub程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是______和______。

在窗体(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.444B.321123C.123321D.132231

在窗体中添加一个命令按钮,名称为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.abcEFGB.abcefgC.ABCefgD.ABCEFG

在窗体中添加一个命令按钮(名称为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.12B.0C.5D.7

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。

(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

(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

在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Text1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。

在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Text1),然后编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,y As Integer,z As Integerx=5:y=7:z=0Me!Text1=””Call p1(x,y,z)Me!Text1=zEnd SubSub p1(a As Integer,b As Integer,c As Integer)c=a+bEnd Sub打开窗体运行后,单击命令按钮,文本框中,显示的内容是【 】。

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:Private Sub Command_Click()Dim x AS Integer, y As Integer, z As Integerx=5:y=7:z=0Me!Textl=””Call pl(x,y,z)Me!Text1=zEnd SubSub pl(a As Integer,b As Integer,c As Integer)C=a+bEnd Sub打开窗体运行后,单击命令按钮,文本框中显示的内容是【 】 。

窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Fun1(x),y)Text2.Text=Fun1(x)End SubPrivate Function Fun1(x As Integer) As Integerx=x+y:y=x+yFun1=x+yEnd FunctionPrivate Function Fun2(x As Integer,y As Integer) As IntegerFun2=2*x+yEnd Function当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别是A.2 4 2 4B.2 4 4 8C.10 10 58 58D. 4 4 8 8

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是( )。A. 2B. 3C. 4D. 5

在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序: Private Sub Command1_Click() Dim x As String,y As String, C As String,d As String x = Text1.Text : y = TextText c = LCase(x):d = UCase(y) Print c; d End Sub 程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果是A.abcEFGB.abcefgC.ABCefgD.ABCEFG

下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能,程序如下:程序填空处应是______。

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:DimY As IntegerPrivate Sub Command1 Click( )Dim X As Integerx=2Text1.Text=p2(p1(X),Y)Text2.Text=p1(x)End SubPrivate Function p1(X As Integer)As Integerx+x+v: y=x+yp1=x+yEnd FunctionPrivate Function p2(X As Integer,Y As Integer)As Integerp2=2*x+yEnd Function当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别为( )。A.2 42 4B.2 44 8C.4 48 8D.10 1058 58

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)End SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yEnd FunctionPrivate Function p2(x As Integer,y As Integer)As Integerp2=2*x+yEnd Function当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别为( )。A.2 4 2 4B.2 4 4 8C.4 4 8 8D.10 10 58 58

窗体上有两个文本框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 4B.2 4 4 8C.4 4 8 8D.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 4B.2 4 4 8C.4 4 8 8D.10 10 58 58

窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Funl(x)End SubPrivate Function Funl(x As Integer) As Integerx=x+y ∶y=x+yFunl=x+yEnd FunctionPrivate Function Fun2(x As Integer,y As Integer) As IntegerFun2=2*x+yEnd Function当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别是A.2 4 2 4B.2 4 4 8C.10 10 58 58D.4 4 8 8

窗体上有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 4B.2 4 4 8C.10 10 58 58D.4 4 8 8

( 8 )在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称分别为 Text1 、 Text2 的文本框,如图 5 所示,然后编写下列程序:Function Fun(x As Integer,ByVal y As Integer)As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click( )Dim a As Integer,b As Integera=-10 : b=5Text1.Text=Fun(a, b)Text2.Text=Fun(a, b)End Sub程序运行后,单击命令按钮, Text1 和 Text2 文本框显示的内容分别是 【 9 】 和 【 10 】 。

在窗体中绘制两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:Private Sub Command1_Click()Text1="VB programming"Text2=Text1Text1="ABCD"End Sub程序运行后,单击命令按钮,文本框Text2中显示的内容为【 】。

设在一个窗体中已经设置了二个文本框Text1和Text2,以及一个命令按钮,且设计有下列程序,请指出程序的功能。

设在一个窗体中已设置了三个文本框Text1、Text2和Text3,以及若干个单选按钮,且设计有下列程序,请指出程序的功能。

在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为多少?

单选题在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:程序运行后,如果在文本框Text1中输入China Beijing,则在文本框Text2中显示的内容是(  )。AChina BeijingBChinaCBeijingDChinaB