更多"在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输"的相关试题:
[填空题]在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load（ ）
Show
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer)
Text2.Text = ______
End Sub
[填空题]在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAseii As Integer)
Text1.Text=Text1.Text+Chr(KeyAscii-5)
End Sub
[填空题]在窗体上画两个组合框，其名称分别为Combo1、Comb02，然后画两个标签，名称分别为Label1、 Labe12。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。
Private Sub Comb01_Click（ ）
Call ShowItem(Combo1，Labe11)
End Sub
Private Sub Combo2_Click（ ）
Call ShowItem(Combo2, Labe12)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
______.Caption=______.Text
End Sub
[填空题]在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。[*]Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click（ ）
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【10】 .Caption = 【11】 .Text
End Sub
[单项选择]在窗体上画两个命令按钮，然后编写以下代码：
Private Sub Commandl_ Click（ ）
Dim i As Long
Dim i As Integer
Dim x
For i=1 To 10000000
x=DoEvents
For j=1 To 1000000
Next j
Cls
Print i
Next i
End Sub
Private Sub Command2_Click（ ）
Dim x As Integer
Dim i As Integer
x=0
For i=1 To 10
x=x+i
Next i
MsgBox x
End Sub
当程序执行后，单击命令按钮Command1，在窗体上将显示以一定的时间间隔(从1、2、…一直到 10000000这10000000个数字)，如果再单击命令按钮Command2，将会出现的情况是______。
A. 没有任何变化，数字仍按原有的规律显示
B. 将会中断在窗体上数字从小到大的显示，弹出一个对话框，待用户单击“确定”按钮关闭对话框后，数字再按原来的规律继续在窗体上显示
C. 将会弹出一个对话框，待用户单击“确定”按钮关闭对话框后，窗体上的数字将保持中断时候的值，也就是说不再按规律变化显示
D. 窗体上的数字仍按原有的规律在窗体上显示，然后同时会弹出一个对话框，待用户单击“确定”按钮后对话框关闭
[填空题]在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
Private Sub Command1_Click（ ）
Text1. Text＝"VB Programming"
Text2. Text＝Text1. Text
Text1. Text＝"ABCD"
End Sub
程序运行后，单击命令按钮，两个文本框中显示的内容分别为 【7】 和 【8】 。
[填空题]在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
Private Sub Command1_Click（ ）
Text1.Text="VB Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序运行后，单击命令按钮，Text1文本框中显示的内容为______。
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1， 然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load（ ） Labell.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click（ ） a=Val(Label2.Caption) Call func(Labell，A) Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是：_______。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
[填空题]在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
Private Sub Coraraand1_Click( )
Text1.Text="计算机"
Text2.Text=Text1.Text
Text1.Text="等级考试"
End Sub
程序运行后，单击命令按钮，两个文本框(Text1和Text2)内容分别为 (6) 和 (7) 。
