在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后,通过Form. _Load事件过程加载
第1题
注意:下面出现的“考生文件夹”均为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。
第2题
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
第3题
第4题
在窗体上画一个名称为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
第5题
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:
Private Sub Command1 Click()
Static x As Variant
n=0
x=Array(1,2,3,4,5,6,7,8,9,10)
While n<=4
x(n)=x(n+5)
Print x(n):
n=n+1
Wend
End Sub
运行程序,单击命令按钮Command1,窗体上显示的是()。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
第6题
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
第7题
第8题
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
第9题
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
第11题
A.CommonDialog1.ShowOpen
B.CommonDialog1.ShowFont
C.CommonDialog1.ShowColor
D.CommonDialog1.ShowSave