题目内容（请给出正确答案）

[主观题]

在窗体上画一个组合框Combo1和一个命令按钮Command1，然后编写如下两个事件工程：Private Sub form

. Activate(a = Combo1. List (1) Print aEnd SubPrivate Sub form_ Load () Combo1. AddItem "11" Combo1. AddItem "22" Combo1. Addltem "33"End Sub窗体上打印出来的结果是______。

A．11

B．22

C．33

D．0

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“在窗体上画一个组合框Combo1和一个命令按钮Command…”相关的问题

第1题

在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别

为 \" 城市名称 \" 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 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

点击查看答案

第2题

在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Labe

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

点击查看答案

第3题

（13）在窗体上画两个组合框，其名称分别为Combo1、Combo2,然后画两个标签，名称分别为Label1、Label2.

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

点击查看答案

第4题

（10 ）在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题

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

点击查看答案

第5题

在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码： Private Sub Form_Load（) List1.AddItem "111" List1.AddItem "222" List1.AddItem "333" Combo1.AddItem "444" Combo1.AddItem "555" Combo1.AddItem "666" Text1.Text = "" End Sub 程序运行后，如果单击窗体，要求在文本框中显示"222555"，以下能实现该操作的事件过程是________。

A.Private Sub Form_Click() Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub

B.Private Sub Form_Click() Combo1.ListIndex = 2 List1.ListIndex = 2 Text1.Text = List1.Text + Combo1.Text End Sub

C.Private Sub Form_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub

D.Private Sub Form_Click() Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub

点击查看答案

第6题

A.Private Sub Form_Click() Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub

B.Private Sub Form_Click() Combo1.ListIndex = 2 List1.ListIndex = 2 Text1.Text = List1.Text + Combo1.Text End Sub

C.Private Sub Form_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub

D.Private Sub Form_Click() Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub

点击查看答案

第7题

阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在对应栏内。【说明】在窗体

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

在窗体上画一个名称为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

点击查看答案

第8题

通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框（Combo1)和一个文本框（Text1

通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (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

点击查看答案

第9题

●试题五阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题五

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。

【程序】

Private Sub Combo1_ (1) (KeyAscii As Integer)

If KeyAscii= (2) Then

For i=0 To (3)

If Combo1．Text= (4) Then

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

Exit Sub

End If

Next i

Label2．Caption="已成功添加输入项"

Combo1． (5) Combo1．Text

End If

End Sub

点击查看答案

第10题

注意：下面出现的“考生文件夹”均为C：\wexam\25160002。（1) 在名称为Form1的窗体上画一个名称为Lab

注意：下面出现的“考生文件夹”均为C：\wexam\25160002。

(1) 在名称为Form1的窗体上画一个名称为Label1，标题为“添加项目：”的标签；画一个名称为 Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于3个，内容任意)；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”和“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图23-3所示。请编写两个命令按钮的Click事件过程。

注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

(2) 在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图23-4所示。该程序用来对在上面文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。

注意：下面出现的“考生文件夹”均为C：wexam25160002。（1) 在名称为Form1的