vb课程考试题目,本人小白,求各位大神给帮帮忙
大一了,也大意了,因为VB是公共选修课的原因,所以逃了几节课,等到想认真的听的时候已经真的晚了,,完全听不懂啊,这不老师给布置了作业,一点都不会,所以抱着试一试的心态来VB论坛求助来了。希望大神们可以帮帮忙,在此谢谢你们了。题目在图片上(⊙o⊙)哦

说了晚安去睡的人,往往半小时以后还在得瑟。-------qq1406998801
Dim X As Integer, Y As Integer Private Sub Form_Load() For I = 0 To 4 Label1(I).Caption = "" Label1(I).Visible = True Label2(I).Visible = True Next I Label1(0).Caption = "你的姓名" Label1(1).Caption = "你的学号" Label1(2).Caption = "你的专业" Label1(3).Caption = "你的班级" Label1(4).Caption = "你的职务" '这些你自己修改为你的信息就可以了 Timer1.Enabled = True Timer1.Interval = 1000 Timer2.Enabled = False Timer2.Interval = 1000 X = 0 End Sub Private Sub Timer1_Timer() X = X + 1 If X = 15 Then For I = 0 To 4 Label1(I).Visible = False Label2(I).Visible = False Next I End If If X = 16 Then Label1(0).Visible = True Label2(0).Visible = True Timer1.Enabled = False Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer() Y = Y + 1 Select Case Y Case 1 Label1(0).ForeColor = &H1000FF Label1(0).FontSize = Label1(0).FontSize + 2 Case 2 Label1(0).ForeColor = &HFF00FF Label1(0).FontSize = Label1(0).FontSize + 2 Case 3 Label1(0).ForeColor = &H9900FF Label1(0).FontSize = Label1(0).FontSize + 2 Case 4 Label1(0).ForeColor = &HFF99FF Label1(0).FontSize = Label1(0).FontSize + 2 Case 5 Label1(0).ForeColor = &HFF8822 Label1(0).FontSize = Label1(0).FontSize + 2 Case 6 Y = 0 Label1(0).ForeColor = &H109901 Label1(0).FontSize = 14 End Select End Sub
[此贴子已经被作者于2016-5-10 13:16编辑过]