填空题
在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。
在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。
Private Sub Form_load()
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”湖北”
End Sub
Private Sub ______ ()
Label1.Caption= ______
End Sub
发布于 2022-05-11 10:20:20
登录后免费查看答案
关注者
0
被浏览
12
1 个回答
推荐阅读
-
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Private Sub Form_Load()List1.AddItem "Item 1"List1.AddItem "Item 2"List1.AddItem "Item 3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序运行后，单击命令按钮，其结果为
2022-05-11 关注 0 浏览11 1答案
-
窗体上有一个列表框和一个文本框，编写下列两个事件过程：Private Sub Form．Load（ ）List1．AddIte m＂北京＂List1．AddIte m＂天津＂List1．AddIte m＂上海＂Textl ．Text ＝＂＂End SubPrivate Sub List1．Click（ ）Print Textl ．Text ＋List1．TextEnd Sub程序运行后，在文本框中输入"中国"，然后单击列表框中的"北京"，则输出结果是（ ）。
2022-05-11 关注 0 浏览10 1答案
-
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
2022-05-11 关注 0 浏览14 1答案
-
在窗体中有一个标签Lable1，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：Private Sub Command1 CliCk()Lable1．Caption=”标签”End SubPrivate Sub Form_Load()Form．Caption=”举例’Command1．Caption=”移动”End Sub打开窗体后，单击命令按钮，屏幕显示（ ）。
2022-05-13 关注 0 浏览12 1答案
-
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Co mmand1，然后编写如下事件过程：Private Sub Form＿Load（）List1．AddIte m＂Ite m1＂List1．AddIte m＂Ite m2＂List1．AddIte m＂Ite m3＂End SubPrivate Sub Co mmand1＿Click（）List1．List（List1．ListCount）＝＂AAAA＂End Sub程序运行后，单击命令按钮，其结果为（ ）。
2022-05-11 关注 0 浏览11 1答案
-
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load()For i=1 To 100If i Mod 7 =0 Then______End IfNextEnd SubPrivate Sub Command1_Click()Sum = 0For i = 0 To ______Sum = Sum + ______NextText1.Text = SumEnd Sub
2022-05-11 关注 0 浏览12 1答案
-
设窗体上有一个名为List1的列表框，并编写下面的事件过程：Private Sub List1_Click（ ）Dim ch As Stringch=List1．List(List1．Listlndex)List1．RemoveItem List1．ListlndexList1．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是（ ）。
2022-05-11 关注 0 浏览14 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答案
