在线等

Question

编写程序，完成所述功能：利用label控件数组和Timer控件实现“VB编程俱乐部”的霓虹灯效果。
要求（1）“VB编程俱乐部”几个字存放在Label控件数组中。
（2）每隔一秒钟显示一个字，逐个显示。
（3）全部显示完后，就进入下一轮的显示。

Answer 1

霓虹灯效果，应该就是改变字体颜色和背景颜色
告诉你实现方法：
Timer一秒触发一次，然后用一个数组array(8)保存“VB编程俱乐部”值，
在timer_timer中写实现，用索引来显示当前字

Answer 2

Option Explicit
    Dim xs(6) As String
    Dim i As Integer
    Dim sum As Integer
Private Sub Form_Load()
    xs(0) = "V"
    xs(1) = "B"
    xs(2) = "编"
    xs(3) = "程"
    xs(4) = "俱"
    xs(5) = "乐"
    xs(6) = "部"
    For i = 0 To 6
        Label1(i).Caption = xs(i)
        Label1(i).Visible = False
    Next
    Timer1.Interval = 1000
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    For i = 0 To 6
        Label1(i).Visible = False
    Next
    sum = sum + 1
    If sum = 1 Then
        Label1(0).ForeColor = vbRed
        Label1(0).Visible = True
    ElseIf sum = 2 Then
        Label1(1).ForeColor = vbRed
        Label1(1).Visible = True
    ElseIf sum = 3 Then
        Label1(2).ForeColor = vbRed
        Label1(2).Visible = True
    ElseIf sum = 4 Then
        Label1(3).ForeColor = vbRed
        Label1(3).Visible = True
    ElseIf sum = 5 Then
        Label1(4).ForeColor = vbRed
        Label1(4).Visible = True
    ElseIf sum = 6 Then
        Label1(5).ForeColor = vbRed
        Label1(5).Visible = True
    ElseIf sum = 7 Then
        Label1(6).ForeColor = vbRed
        Label1(6).Visible = True
        sum = sum - 7
    End If
End Sub