在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为_
A.For i=0 To List1.ListCount-1 …… Next
B.For i=0 To List1.Count-1 …… Next
C.For i=1 To List1.ListCount …… Next
D.For i=1 To List1.Count-1 …… Next
A.For i=0 To List1.ListCount-1 …… Next
B.For i=0 To List1.Count-1 …… Next
C.For i=1 To List1.ListCount …… Next
D.For i=1 To List1.Count-1 …… Next
第1题
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是______。
A.1
B.5
C.27
D.45
第2题
A.Private Sub List1_Click()
B.Private Sub List1_Click()Text1.Text = List1.List Text1.Text = List1.ListIndex/ End Sub End Sub
C.Private Sub List1_Click()
D.Private Sub List1_Click()Text1.Text = List1.Text Text1.Text = List1.Caption End Sub End Sub
第3题
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label
1.Caption = s
End Sub
程序运行后, 单击命令按钮, 则标签中显示的内容为
A.1
B.5
C.27
D.45
第4题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条,请在“属性”窗口中设置它的属性值,使之满足以下要求:它的最大刻度值为100,最小刻度值为1,在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图19-1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm
(2) 在名称为Form1的窗体上画两个文本框,名称分别为Text1和Text2,均无初始内容;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个子菜单项,名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程,使得程序运行时,单击“复制”菜单项,则把 Text1中的内容复制到Text2中,单击“清除”菜单项,则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
第5题
A.Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B.Private Sub Command1_ Click ()
Caption = "计算机等级考试"
End Sub
C.Private Sub Form1_ Click ()
Text1.Caption = "计算机等级考试"
End Sub
D.Private Sub Command1_ Click ()
Text1.Text = "计算机等级考试"
End Sub
第6题
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label
1.Caption = x
Label
2.Caption = y
Label
3.Caption = z
End Sub
运行程序后, 连续三次单击命令按钮后, 则三个标签中显示的内容分别是
A.10 10 10
B.30 30 30
C.30 30 10
D.10 30
第7题
第8题
A.第一个表项的序号为0
B.没有选中任何一个表项时,ListIndex属性的值为-1
C.最后一个表项的序号为ListCount
D.可用MultiSeleet属性设置是否可多选
第9题
A.Item
B.List
C.MultiSelect
D.SelectionMode
第10题
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
第11题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2<>0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后,单击命令按钮,输出结果是【 】。