Question

VB题目：要求单击“交换”按钮,每隔一秒钟两幅图片交换一次,单击“闪烁”按钮,两幅

Answer 1

添加两个图片框 name属性 写为p1 p2
添加两个按钮 用默认名字

然后粘贴以下代码
Private WithEvents t1 As Timer
Private WithEvents t2 As Timer

Private Sub Form_Load()
Set t1 = Me.Controls.Add("VB.Timer", "t1")
t1.Interval = 1000
t1 = False
Set t2 = Me.Controls.Add("VB.Timer", "t2")
t2.Interval = 1000
t2 = False
End Sub

Private Sub Command1_Click()
t1 = True
t2 = False
End Sub
Private Sub Command2_Click()
t1 = False
t2 = True
End Sub

Private Sub t1_timer()
Clipboard.SetData p1.Picture
p1.Picture = p2.Picture
p2.Picture = Clipboard.GetData
Clipboard.Clear
End Sub

Private Sub t2_timer()
p1.Visible = Not p1.Visible
p2.Visible = Not p2.Visible
End Sub

Answer 2

Dim times as bloon
按钮单机事件输入
If times=ture then
Image1.visibale=ture
Times=flast
Elseif times=flast then
Image2. Visibale=ture
Times=ture
End if