通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 （Combo1)和一个文本框（Text1)，代码如下。请填入适当的内容，将程序补充完整。 Private Sub Combo1_Cliek（) Text1. FontName=Combo1. List（Combo1. Listlndex) End Sub Private Sub Form_Load（) With Combol Add

通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。

Private Sub Combo1_Cliek()

TextFontName=ComboList(ComboListlndex)

End Sub

Private Sub Form_Load()

With Combol

Addltem"宋体"

Addltem"隶书"

Addltem"黑体"

&8226;Addltem"楷体_GB2312""

&8226;Listlndex＝0

End With

Text1.【 】30

Textl. 【 】=Combol.List(0)

End Sub

A．Combo1.AddItemText1.Text

B．Combo1.AddItemText1.SelStart

C．Combo1.AddItemText1.SelText

D．Combo1.AddItemText1.SelLength

A．Text1.Text=Combo1.List（2）

B．Text1.Text=Combo1.Text

C．Text1.Text=Combo1.List（3）

D．Text1.Text=Combo1.ListIndex

为 \" 城市名称 \" 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 \" 已成功添加新输入页。 \" ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 \" 输入项已在组合框中。 \" 。请填空。

Private Sub Combol_KeyPress（KeyAscii As Integer）

If KeyAscii=13 Then

For i=0 To Combo1  ListCount-1

If Combo1  Text= 【 12 】 Then

Label2  Caption=" 输入项已在组合框中。 "

Exit Sub

End If

Next i

Label2  Caption=" 已成功添加新输入项。 "

Combo1 ______ Combo1 Text

End If

End Sub

（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是 。

组合框和列表框类似，其主要区别是()。

A．组合框同时具有文本框及一个下拉列表

B．列表框只需要在窗体上保留基础列表的一个值所占的控件

C．组合框的数据类型比列表框多

D．列表框占内存空间少

窗体上有一个名称为Combo1的组合框，为了引用Combo1中最后一个列表项，应使用的表达式是

A.Combo1．List（ListCount）

B.Combo1．List（Comb01．ListCount-1）

C.Combo1．List（ListCount-1）

D.Combo1．List（Comb01．ListCount）