VB基础试题选编.pptxVIP

VB合作学习报告;组长：张建迢 组员：彭佳媛 徐彩依 李静雯 邬祺轲 汤敦邦 ;一：滚动字幕程序设计;Private Sub Timer1_Timer() If Label1.Left Form1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = -Label1.Width End If End Sub;二：利用计时器可以按指定间隔时间对字体进行放大。 并要求字的颜色也按指定时间间隔随机改变;Private Sub Form_Load() Label1.Caption = 放大 Label1.Font = 宋体 Label1.FontBold = True Label1.FontSize = 20 Label1.ForeColor = vbRed End Sub Private Sub Timer1_Timer() If Label1.FontSize 100 Then Label1.FontSize = Label1.FontSize + 10 Else Label1.FontSize = 20 End If Label1.ForeColor = RGB