题目
A.List1.Select(i)
B.List1.Sort(i)
C.List1.List(i)
D.Ltst1.Select(List1.Listindex)
第1题
A.123
B.456
C.789
D.出错
第2题
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
Labe1.Caption= 【10】
End Sub
第3题
Pfivate Sub Form_Load()
Fori=1 To 100
If iMod7=
第5题
要求;
修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
第6题
要求:
修改列表框的适当属性,使得运行时可以多选;去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
第7题
窗体上有l个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:
程序运行后,单击命令按钮Command1,并输入“Happynewyear”,则在Listl中显示的内容为
第8题
窗体上有一个名为List1的列表框,其中已经输入了若干个项目(如图所示);
还有两个文本框,名称分别为Text1、Text2,一个名称为Command1的命令按钮,并有以下程序: Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)>0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是______。
A.京
B.北京 南京
C.南京 北京
D.没有匹配的项目
第9题
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sit3.vbp。
2.在考生文件夹中有工程文件sit4.vbp,它包含一个窗体文件form1。在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为Command1,标题为“复制”。要求程序运行后,在列表框中自动建立四个列表项,分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中(程序运行结果如图2—2)。
要求:编写程序,以实现试题要求的功能。
注意:存盘时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
第10题
Private Sub Form_Load()
For i=1 To 100
If i Mod 7 =0 Then
________
End If
Next
End Sub
Private Sub Command1_Click()
Sum = 0
For i = 0 To ________
Sum = Sum + ________
Next
Text1.Text = Sum
End Sub
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!