更多"窗体上有一个名称为Picturel的图片框控件，一个名称为Label1"的相关试题:
[单项选择]窗体上有一个图片框和一个命令按钮(拖动模式为自动)，执行程序后，拖动按钮经过图片框时输出结果为
Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Static a As Boolean
If Not a Then
Print"AA"
a=True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Shingle, Y As Single)
Static b As Boolean
If Not b Then
Print"BB"
b=True
End If
End Sub
A. AABB
B. BBAA
C. AA
D. BB
[填空题]窗体上有两个图片框为Picture1和Picture2，当把Picture1拖到Picture2上时将Picture2中的图片改为Picture1中的图片，完成下列程序。
Private Sub Picture2______(Source As Control, X As Single, Y As Single, State As Integer)
Picture2.Picture=______
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕，可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕，可再双击窗体”
End Sub
[单项选择]窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。
Priate Sub Form_Click（ ）
For i=0 To List1．ListCount-1
If i Mod 2=0 Then
Print List1．List(i)；
End If
Next i
End Sub
Private Sub Form_Load（ ）
List1．AddItem"中国"
List1．AddItem"日本"
List1．AddItem"韩国"
List1．AddItem"新加坡"
List1．AddItem"香港"
End Sub
A. 中国韩国
B. 日本新加坡
C. 中国韩国香港
D. 中国日本韩国新加坡香港
[单项选择]设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是( )
A. Picture1.Picture="Flie1.jpg"
B. Picture1.Picture=LoadPicture("File1.jpg")
C. LoadPicture("File1.jpg")
D. Call LoadPicture("File1.jpg")
[多项选择]在考生文件夹下有一个过程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。
在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。
sjt5.frm文件内容如下：
Dim a%,b As Boolean
Private Sub C1_Click（ ）
’ Timer2.Enabled=
b=True
End Sub
Private Sub Timer1_Timer（ ）
a=a+1
If a＞6 Then
a=1
End If
Select Case a
Case 1
P1.Picture=LoadPicture("黄灯.ico" )
Case 2,3
P1.Picture=LoadPicture("红灯.ico")
Case 4,5,6
’ P1.Picture=LoadPicture("")
If b Then Timer2.Enabled=True
End Select
End SubPrivate Sub Timer2_Timer（ ）
If (a＜4) And (P2.Left＞P1.Left And P2.Left＜P1.Left+P1.Width)
Or P2.Left＜=100 Then
’ Timer2.Enabled=
Else
’ P2.Move —10,P2.Top,P2.Width,
[单项选择]
窗体上有一个名为Command1的命令按钮和一个名为Timed的计时器，并有下面的事件过程：
Private Sub Command1_Click（ ）
Timer1. Enabled=True
EndSub
Private Sub Form_Load（ ）
Timer1. Interval=10
Timed. Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1. Left=Command1. Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（）。
A. 命令按钮每10秒向左移动一次
B. 命令按钮每10秒向右移动一次
C. 命令按钮每10毫秒向左移动一次
D. 命令按钮每10毫秒向右移动一次
[填空题][说明] 已有一个工程文件，窗体上有两个图片框，名称为P1，P2。分别用来表示信号灯合汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器 Timer1 和Timer2，Timer1 用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运动时，信号灯不断变换，单击“开车”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动。下面是实现上述功能的程序，请填空。
Private Sub Timer41_ Timer（ ）
a=a+1
If (1) Then
a=1
End If
Select Case a
Case 1
P1. Picture = LoadPicture( “黄灯.ico” )
Case 2, 3
P1. Picture = LoadPicture( “红灯”.ico” )
Case4, 5, 6
P1. Picture = LeadPicture( “绿灯. ico” )
(2)
End Select
End Sub
Private Sub Timer2_Timer( )
If (3) And (P2. Left ＞ P1. Left And P2. Left ＜ P1. Left + P1. Width) Or P2. Left ＜ = 100 Then
Timer2. Enabled = False
Else
(4)
End If
End Sub
[单项选择]窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面事件过程：
Private Sub Command1_Click（ ）
Timer1.Enabled=True
End Sub
Private Sub Form_Load（ ）
Timer1.Interval=5
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1.Left=Command1.Left+5
End Sub
程序运行时，单击命令按钮，则产生的结果是______。
A. 命令按钮每5毫秒向左移动一次
B. 命令按钮每5毫秒向右移动一次
C. 命令按钮每5秒向左移动一次
D. 命令按钮每5秒向右移动一次
[单项选择]确定图片框Picturel在窗体上位置的属性是( )。
A. Width和Height B) Left和Top
B. Width和Top D) Height和Left
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1.Text)
Select Case x
Case Is＜-10.Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是______。
A. 5
B. 20
C. 25
D. 输入错误
[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（ ）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer,b As Integer
a=13
b=27
Print Fun(a,b)；a;b
End Sub
Private Function Fun(ByVal a As Integer,b As Integer) As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时，单击命令按钮，则输出的结果是______。
A. 3 8 5
B. 3 13 5
C. 3 13 27
D. 13 13 27
