Dim a As Integer
Dim b As Integer
Dim timu(50)
Dim ti


Private Sub Form_Load() '以/区分,第1个是题目,第5个是标准答案
imu(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 (6) '表示题目上限
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
End Sub

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


我现在运行 随机出现题目之后 选择答案 出现提示框 点击确认后 不能够自动换题
求大虾帮忙

你只是在Form_load的事件里调用了huanti函数，并没有在你的 Label1_Click里调用。
Private Sub Label1_Click(Index As Integer)
If Mid(Label1(Index), 1, 1) = ti(5) Then
MsgBox "正确"
Else
MsgBox "错误,正确答案是" & ti(5)
End If
huanti(6)
End Sub
添上红色的代码，试试看


[ 本帖最后由 wei855198 于 2011-11-21 21:44 编辑 ]