修改如下：
Dim a As Integer
Dim b As Integer
Dim timu(50)
Dim ti
Const 题目数 = 6


Private Sub Form_Load()
    timu(1) = "世界上第一台电子计算机ENIAC诞生的年份是？/A.1936年/B.1946年/C.1956年/D.1966年/B"
    timu(2) = "现在我们常常听人家说到（或在报纸电视上也看到）IT行业各种各样的消息。那么这里所提到的IT指的是？/A.信息/B.信息技术/C.通信技术/D.感测技术/B"
    timu(3) = "下面设备中，哪个是输出设备？/A. 光笔/B. 显示器/C. 鼠标/D. 手写板/B"
    timu(4) = " RAM 有什么特点？/A. 断电后信息消失/B. 信息永远保存/C. 不能由用户写入/D. 速度慢/A"
    timu(5) = "在Windows98窗口中，用鼠标拖动那里，可以移动整个窗口？/A. 菜单栏/B. 标题栏/C. 工作区/D. 状态栏/B"
    timu(6) = "下列属于应用软件的是？/A. PowerPoint /B. 操作系统/C. Windows /D. Dos /A"
    huanti
End Sub

Private Sub Label1_Click(Index As Integer)
    If Mid(Label1(Index), 1, 1) = ti(5) Then
        MsgBox "正确"
    Else
        MsgBox "错误,正确答案是" & ti(5)
    End If
    huanti
End Sub

Sub huanti()
    Randomize
    Shu = Int(Rnd * 题目数) + 1
    ti = Split(timu(Shu), "/")
    For i = 0 To 4
    Label1(i) = ti(i)
    Next i
End Sub