( 29 )在窗体上画一个命令按钮和两个文本框,其名称分别为 Command1 、 Text1 和 Text2 ,然后编写如下程序:Dim S1 As String, S2 As StringPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)S2 = S2 Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1 = S1 Chr(KeyAscii)End SubPrivate Sub Command1_Click()Text1.Text = S2Text2.Text = S1S1 = ""S2 = ""End Sub程序运行后,在 Text1 中输入 “ abc ” ,然后单击命令按钮,在文本框 Text1 和 Text2 中显示的内容分别为A ) abc 和 ABCB ) abc 和 abcC ) ABC 和 abcD ) ABC 和 ABC

( 29 )在窗体上画一个命令按钮和两个文本框,其名称分别为 Command1 、 Text1 和 Text2 ,然后编写如下程序:

Dim S1 As String, S2 As String

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

S2 = S2 & Chr(KeyCode)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

S1 = S1 & Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text = S2

Text2.Text = S1

S1 = ""

S2 = ""

End Sub

程序运行后,在 Text1 中输入 “ abc ” ,然后单击命令按钮,在文本框 Text1 和 Text2 中显示的内容分别为

A ) abc 和 ABC

B ) abc 和 abc

C ) ABC 和 abc

D ) ABC 和 ABC


相关考题:

在窗体上画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

在名为“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)中显示的内容为【 】。

在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:Function Fun(X As Integer,ByVal y As Integer)As Integerx=x+yIf X<0 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文本框显示的内容分别是【 】和【 】。

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

在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为A.77B.33+44C.3344D.4433

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

在窗体上画两个文本框(其Name属性分别为Text1和Tex12)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: 程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。A10和0B2和100C3和50D4和168

在窗体上画两个文本框,(其Name 属性分别为Text1和Text2)和一个命令按纽(其Name属性为Command1),然后编写如下事件过程() A1和0B2和72C3和50D4和168

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