填空题
在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。
在窗体上画两个组合框，其名称分别为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
发布于 2022-05-11 10:20:00
登录后免费查看答案
关注者
0
被浏览
11
1 个回答
推荐阅读
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label)L.Caption="1234"End SubPrivate Sub Form_Load()Label1.Caption="ABCDE"Label2.Caption=10End SubPrivate Sub Command1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：Private Sub func（LAs Label）L .Caption ＝＂1234＂End SubPrivate Sub Form＿Load（）Label1．Caption ＝＂ABCDE＂Label2．Caption ＝10End SubPrivate Sub Co mmand1＿Click（）a＝Val（Label2．Caption）Call func（Label1）Label2．Caption ＝aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：Private Sub rune(L AS Labe1)Caption="1234"End SubPrivate Sub Form Load（ ）Labe11．Caption="ABCDE"Labe12．Caption=10End SubPrivate Sub Command1Click（ ）a=Va1(Label2．Caption)Call func(Label1)Label2．Caption aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。 Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenFor i=0 To Combo1.ListCount-1If Combo1.Text= ______ ThenLabel2.Capti_dj=" 输入项已在组合框中。 "Exit SubEnd IfNext iLabel2.Capti_dj=" 已成功添加新输入项。 "Combo1.______ Combo1.TextEnd IfEnd Sub
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X = 5: Y = 3Call proc(X, Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在 【12】、【13】 和【14】处将程序补充完整。 Private Sub Combo1_ ______ (KeyAscii As Integer)If KeyAscii = 13 ThenFor i = 0 To Combo1.ListCount-1If Combo1.Text = ______ ThenLabel2.Caption = "输入项已在组合框中"Exit SubEnd IfNext iLabel2.Caption = "已成功添加输入项"Combo1. ______ Combo1.TextEnd IfEnd Sub
2022-05-11 关注 1 浏览14 1答案
-
在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click( ) X=5: Y=3 Call proc(X, Y) Label1.Caption=X Label2.Caption=YEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer) X=a*a Y=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
2022-05-11 关注 0 浏览10 1答案
-
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Co mmand1＿Click（）X＝5：Y ＝3Call proc（x，y）Labell ．Caption ＝xLabel2．Caption ＝yEnd SubPrivate Sub proc（a As Integer ，ByVal b As Integer）X＝a＊aY ＝b ＋bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
2022-05-11 关注 0 浏览11 1答案
