VB题目，求代码：新建一个工程,完成"字幕闪烁"程序设计,运行结果如图3所示.

Question

新建一个工程，完成“字幕闪烁”程序设计，运行结果如图3所示。要求固定边框，设标签1的Caption属性为“祝您考试成功！”。放上定时器的时间间隔为0.3秒。单击窗体后标签框的字不停的以红绿闪烁。

Answer 1

Private Sub FlashTimer_Timer()
If FLashLabel.ForeColor = vbRed Then
FLashLabel.ForeColor = vbGreen
Else
If FLashLabel.ForeColor = vbGreen Then
FLashLabel.ForeColor = vbRed
End If
End If
End Sub

Private Sub Form_Click()
FLashLabel.ForeColor = vbRed
FlashTimer.Enabled = True
EndFLashLabel Sub

注意：

FLashLabel就是显示字的label

FlashTimer是控制字闪烁的Timer

设置字的颜色是控件的ForeColor属性

VB颜色名称是vb+颜色的英文字母或直接写代号

Timer控件里面的Interval属性就是调整计时间隔，单位是毫秒，0.3秒，换算成毫秒就是300毫秒

我做的时候，字体大小设置的是初号，你在label的Size属性可以设置其它大小，我字体还有Timer的计时间隔，都是直接在控件上设置的

Timer控件启动是使用Enabled属性，这个属性值为False的时候是停止计时器（计时器不可用），当属性值为True的时候是启动计时器（计时器可用）

Form_Click是窗口单击事件，注意在程序开始前将Timer的Enabled属性设置成False