更多"通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (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
[单项选择]在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为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的组合框，并有以下程序：
Privale Sub Combol_ KeyPress(KeyAscii As Integer)
If（）=13 Then 回车符的ASCII码是13
For k=0 To Combo1. ListCount-1
If Combo1.Text=Combol. List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1. Text＜＞" "Then
Combo1. AddItem（）
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
[填空题]【说明】
在窗体上画一个名称为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的组合框，画两个名称分别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)
【10】 .Caption = 【11】 .Text
End Sub
[单项选择]在窗体上画一个组合框Combo1和一个命令按钮Command1，然后编写如下两个事件工程：
Private Sub form Activate(
a = Combo1. List (1)
Print a
End Sub
Private Sub form_ Load （ ）
Combo1. AddItem "11"
Combo1. AddItem "22"
Combo1. Addltem "33"
End Sub
窗体上打印出来的结果是______。
A. 11
B. 22
C. 33
D. 0
[单项选择]窗体上有一个名称为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
[填空题]文本框分为横排文本框和______文本框两种。
[填空题]下列程序的作用是使用字体对话框修改文本框字体的样式，完成下列程序。
Private Sub Command1_Click（ ）
CommonDialog1.CanceIError=True
On ErrorGo To ErrHandler
CommonDialog1.Flags=vbCFEffects Or vbCFBoth
CommonDialog1.______
Text1.Font Name=CommonDialog1.FontName
Text1.Font.Size=______
Text1.Font.Bold=CommonDialog, FontBold
Text1.Font.Italic=CommonDialog1Fontltalic
Text1.Font.Underline=______
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Exit Sub
ErrHandler：
End Sub
[填空题]在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。
Private Sub Form_Load（ ）
Check1.Caption="显示粗体"
Check2.Caption="显示斜体"
Text1.Text="May you a happy day!"
End Sub
Private Sub Check1_Click（ ）
If ______=1 Then
Text1.FontBold=True
Else
Text1.FontBold=False
End If
End Sub
Private Sub Check2_Click（ ）
If Check2.Value=1 Then
Text1.______
Else
Text1.______
End If
End Sub
