更多"在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程。"的相关试题:
[单项选择]在窗体上画一个列表框、一个文本框和一个按钮，然后编写如下事件过程：
Private Sub Form_Load（ ）
List.AddItem“357”
List.AddItem“246”
List.AddItem”123”
List.AddItem”456”
TEXT1.Text="
End Sub
Private Sub Command1_C1ick（ ）
List.Listindex=3
Print List.Text+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中“456”，则输出结果为( )。
A. 789123
B. 456789
C. 789456
D. 12345
[单项选择]在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.Addltem "357"
List1.Addltem "246"
List1.Addltem "123"
List1.AddItem "456"
Text1.Text = ""
End Sub
Private Sub Listl_DblClick0
m=List1.Text
Print m + Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。
A. 1245
B. 456123
C. 123456
D. 0
[单项选择]在窗体上画一个文本框和一个列表框，然后编写下列两个事件过程：
Private Sub Form_Load（ ）
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1 DblClick（ ）
m=List1.Text
Print m+Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的"456"，输出结果是( )。
A. 1245
B. 456123
C. 123456
D. 0
[单项选择]在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.AddItem "357"
List1.AddItem "246"
List1.AddItem "123"
List1.AddItem "456"
Text1.Text=""
End Sub
Private Sub List1_Db1Click（ ）
m=List1.Text
Print m+Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。
A. 1245
B. 456123
C. 123456
D. 0
[填空题]在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click（ ）
List1．RemoveItem 1
List1．Removeltem 3
List1．RemoveItem 1
End Sub
Private Sub Form Load（ ）
List1．AddItem "ItemA"
List1．AddItem "ItemB"
List1．AddItem "ItemC"
List1．AddItem "ItemD"
List1．AddItem "ItemE"
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的项目为 【10】 。
[单项选择]在窗体上画一个名称为File的文件列表框，并编写如下程序：
Private Sub File1_DblClick( )
x=Shell(File1．FileName，1)
End Sub
以下关于该程序的叙述中，错误的是
A)x没有实际作用，因此可以将该语句写为：Call Shell(File．FileName，1)
B)双击文件列表框中的文件，将触发该事件过程
C)要执行的文件的名字通过File1．FileName指定
D)File1中显示的是当前驱动器、当前目录下的文件
[单项选择]在窗体．上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程： Prirate Sub Form_Loab（ ） List.Addltem"357" Llst.Addltem"246" List.Addltem"123" List.Addltem"456" TEXTl.Text="" End ub Private Sub Commandl_Click（ ） List.LiSdndex=3 Print List.Text+Textl.Text End Sub 程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为 ( )。
A. 789123
B. 456789
C. 789456
D. 1245
[单项选择]在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click（ ） Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[填空题]在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click( )
Text1.Text=“VB程序设计”
End Sub
PrivmeSubText1_Change（ ）
Picture1.Print"VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。
[填空题]在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click（ ）
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change（ ）
Picture1.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内
容是 【8】 。
[填空题]在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（ ）
Dim str As String，s As String，c As String
str=UCase(Textl)
s = " "
c = "Z"
While c＞="A"
If InStr(str，c)=0 Then
s = ______
End If
c = Chrs(Asc(c) ______)
Wend
If s＜＞" " Then
Text1 = s
End If
End Sub
