更多"在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下"的相关试题:
[单项选择]窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form Load（ ）
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form Load（ ）
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]窗体上有一个列表框和一个文本框，编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.AddItem“Beijing"
List1.AddItem "Tianjin"
List1.AddItem”Shanghai”
Text1.Text=“”
End Sub
Private Sub List1_Db1Click（ ）
x=List1.Text
Print x+Text1.Text
End Sub
程序运行后，在文本框中输入“China”，然后双击列表中的“Shanghai”，则输出结果为( )。
A. China Beijing
B. China Tianjing
C. China Shanghai
D. Shanghai China
[单项选择]窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Dim n
If Text1.Text＜＞"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )
A. 在Dim n语句的下面添加一句：n=0
B. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次"
D. 把Dim n改为Static n
[填空题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程：
Private Sub Command1_Click（ ）
a=InputBox("请输入一个整数")
Text1．Text=a
If a ＞ 0 Then
If a Mod 3 = 0 Then
MsgBox "True"
Else
MsgBox "error"
End If
End If
End Sub
程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) ＞ 0 f2down% And f2down% Then If altdown% And f2down% Then Text ="abl" End If Ead Sub 程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
A. Alt+F2
B. abl
C. 随机出儿个数
D. 不发生变化
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)
Const Alt=4
Const Key_f2=&H71
altdown%=(Shift And Alt) ＞ 0
f2down% And f2down% Then
If altdown% And f2down% Then
Text ="abl"
End If
Ead Sub
程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是( )。
A. Alt+F2
B. abl
C. 随机出儿个数
D. 不发生变化
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程：
PriVate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=＆H71
altdown%=(Shift And Alt)＞0
f2down%=(KevCode=Kev_F2)
If altdown% And f2down% Then
Text1.Text="abl"
End If
End Sub
程序运行后，清除文本框中原有内容，如果按＜Shift+F2＞组合键，则在文本框中显示的是( )。
A. Alt+F2
B. abl
C. 随机出几个数
D. 不发生变化
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer，_ Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是( )。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
