A.0.8m
B.1.2m
C.1.5m
注意:下面出现的“考生文件夹”均为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。
在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程:
PriVate Sub Commandl_CUck()
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1 To 100
If [12] Then
Max=arr(i)
A.单一整车发运
B.合装整车发运
C.合装整车中转发运
D.整车分卸
A、Timer1.Enabled=0.1
B、Timer1.Interval=0.1
C、Timer1.Enabled=100
D、Timer1.Interval=100
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后,窗体上显示的结果是______。
A.101
B.6
C.5
D.4
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
Next i
MsgBox sum
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
在窗体上添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后,单击命令按钮,则消息框的输出结果为_______。