更多"通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (C"的相关试题:
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek（ ）
Text1. FontName=Combo1. List(Combo1. Listlndex)
End Sub
Private Sub Form_Load（ ）
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
·Addltem"楷体_GB2312""
·Listlndex＝0
End With
Text1. 【8】 30
Textl. 【9】 =Combol.List(0)
End Sub
[单项选择]窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
A. Text1.AddItem Combo1.Text
B. Combo1.AddItem Text1.Text
C. Combo1.Text=Text1.Text
D. Text1.Text=Combo1.Text
[单项选择]在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：
Private Sub Form_Load（ ）
Combo1. AddItem "AAAAA"
Combo1. AddItem "BBBBB"
Combo1. AddItem "CCCCC"
Combo1. AddItem "DDDDD"
Combo1. AddItem "EEEEE"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为( )。
A. Text1. Text = Combo1. List (2)
B. Text1. Text = Combo1. Text
C. Text1. Text = Combo1. List (3)
D. Text1. Text = Combo1. ListIndex
[填空题]设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If (9) =13 Then ’回车符的ASCII码是13
For k=0 To Combo1.ListCount-1
If Combo1.Text=Combo1.List(k) Then
combo1.Text=""
Exit For
End If
Next k
If Combo1.Text＜＞ "" Then
Combo1.AddItem (10)
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部，请填空。
[填空题]设窗体上有一个名称为Combo1的组合框，并有下列程序：
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If______=13 Then 回车符的ASCII码是13
For k=0 To Combo1.ListCount-1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text＜＞" "Then______
Combo1.Addltem
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除；否则把编辑区中的文本添加到列表的尾部。请填空。
[单项选择]窗体上有一个名称为Combo1的组合框，为了引用Combo1中最后一个列表项，应使用的表达式是
A. Combo1.List(ListCount)
B. Combo1.List(Combo1.ListCount-1)
C. Combo1.List(ListCount-1)
D. Combo1.List(Combo1.ListCount)
[填空题]设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub ComboLKeyPress(KeyAscii As Integer)
If (7) =13 Then 回车符的ASCⅡ码是13
For k=0 To (8) -1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text＜＞" "Then
Combo1.AddItem (9)
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。
[单项选择]能够将组合框Combo1中最后一个数据项删除的语句为
A. Combo1.RemoveItem Combo1.ListCount
B. Combo1.RemoveItem Combo1.ListCount-1
C. Combo1.RemoveItem Combo1.ListIndex
D. Combo1.RemoveItem Combo1.ListIndex-1
[填空题]【说明】
在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1 (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1. Text= (4) Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
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)
______.Caption=______.Text
End Sub
[简答题]在下完成下列操作：打开表单one，向其中添加一个组合框(Combo1)，并将其设置为下拉列表框。
[单项选择]窗体上有一个名称为Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。
A. Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer)
B. Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer)
C. Private Sub Combo1_Click( )
D. Private Sub Combo1_Click( )
[填空题]在窗体上画两个组合框，其名称分别为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
