（一） 陈某向贺某借款20万元，借期2年。张某为该借款合同提供保证担保，担保条款约定，张某在陈某不

l2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。

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

要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下的标签中显示出来，请填空使程序完整。Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End SubPrivate Sub Combo2_Click() Call ShowItem(Combo2,Label2)End SubPrivate Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label) Caption=_____.TextEnd Sub

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

图所示。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。

Privte Sub Combo1_Click() Call Showltem(Comb01.Label1) End Sub Private Sub Combo2_Click() Call Showltem(ComboLabe12) End Sub Public Sub Showhem(tmpCombo As ComboBox，tmpLabd As Label)， 【 】Caption=【 】.Text End Sub

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

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i＝0 To Combo1.ListCount-1

If Combo1.Text=【 】Then

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

Exit Sub

End If

Next i

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

Combo1.【 】Combo1.Text

End If

End Sub

求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。 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

称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：

如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。 Private Sub Combo1【 】(Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1 If Combo1.Text=【 】Then LabelCaption=“输入项已在组合框中” Exit Sub End If Next i LabelCaption=“已成功添加输入项” Combo1.【 】Combo1.Text End If End Sub

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As label，ByVal a As Integer) L.Caption ="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10