[单选题]

窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1,设文本框Text1中内容为 12,文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str$(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub

A.12

B.34

C.46

D.1234

参考答案与解析:

相关试题

(27)窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl

[单选题](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 Fun

  • 查看答案
  • (30)窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl

    [单选题](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

  • 查看答案
  • 窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下

    [单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:D.im y As IntegerPrivate Sub Command1_Click()D.im x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)E.nd SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yE.nd FunctionPrivate Function p2(x

  • 查看答案
  • 窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下

    [单选题]窗体上有两个文本框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 p

  • 查看答案
  • 在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名

    [单选题]在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_Click( )D.im x!, y!, z!, t!x = Text1y = Text2z = Text3If x< y Thent = xx = yy = tE.nd IfIf y< z Thent = yy = zz = tIf x< y Thent = xx = yy = tE.nd IfE.

  • 查看答案
  • 在窗体中建立了三个文本框,名称分别为text1、text2和text3,编写以下

    [单选题]在窗体中建立了三个文本框,名称分别为text1、text2和text3,编写以下程序段:PrivateSubText2_LostFocus()D.imiAsIntegerIfIsNumeric(Text2)ThenText3.Text="正确!!"E.lseText2.Text=""Text2.SetFocusText3.Text="错误,再输入!!"E.ndIfE.ndSub当在text2中输入字符串"abcd"后

  • 查看答案
  • 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和

    [单选题]在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。编写如下程序:Private Sub Form_Load()Text1.Text=""Text2.Text=""Text3.Text=""E.nd SubPrivate Sub Command1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)E.nd SubF.unction f(B

  • 查看答案
  • 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和

    [单选题]在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub F

  • 查看答案
  • 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和

    [单选题]在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1),外观如下图所示。编写如下程序: Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.TextA.4B.6C.8D.12

  • 查看答案
  • 窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列

    [单选题]窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序D.im y As IntegerPrivate Sub Command1_Click()D.im x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Funl(x)E.nd SubPrivate Function Funl(x As Integer) As Integerx=x+y ∶y=x+yF.unl=x+yE.nd FunctionPrivate Fun

  • 查看答案
  • 窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Comman