vb简单问题 帮忙看下

来源：百度知道 编辑：UC知道 时间：2024/06/06 10:48:08
在窗体上每0.5s输出一行文本（楷体三号，男生蓝色、女生红色），运行结果如例图（院系、专业、姓名、性别、学号

用timer控件

Option Explicit

Dim S(5) As String

Private Sub Form_Load()
S(0) = " VB6.0期中测验"
S(1) = "学院: ***"
S(2) = "专业：***"
S(3) = "性别：***(女)"
S(4) = "学号：***"

Me.FontName = "楷体_GB2312"
Me.FontSize = 20
If InStr(1, S(4), "(男)") > 0 Then
Me.ForeColor = vbBlue
Else
Me.ForeColor = vbRed
End If
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Integer
If i <= 4 Then
Print S(i)
i = i + 1
Else
Timer1.Enabled = False
End If
End Sub