Question

用VB做一个选择题系统

一共有20道题，是顺序出题的不用抽选。每道题都是单选题，有三个单选按钮OPTION和一个确定按钮。例如第一题正确答案是A，如果选择正确就直接进入第二题。如果选择错误则弹出小窗口显示【回答错误，正确答案是A】，之后关闭这个小窗口之后页面还会停留在第一题，直到选择正确进入第二题为止。
求这个系统的VB代码！不用写20个题，写几个明白大概意思就可以！
页面大意如下图：

Answer 1

Private Type utQuestion
Description As String '问题描述
Option(2) As String '备选答案
Answer As Integer '正确答案的序号（0-2）
End Type
Dim Questions(19) As utQuestion, id As Integer, answer As Integer

Private Sub Form_Load()
Dim i As Integer
'问题初始化从下一行开始
With Questions(0)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入：0、1、2的其中1个
End With
With Questions(1)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入：0、1、2的其中1个
End With

With Questions(2)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入0、1、2
End With
'……
With Questions(19)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入0、1、2
End With
'问题初始化到上一行结束

ShowNext 0 '显示第1个问题
End Sub

Private Sub ShowNext(ByVal Index As Integer)
'改变问题: Index = 0 To 19
Dim i As Integer
With Questions(Index)
AskContent = “1、" & .Description 'AskContent是Label控件的Name
For i = 0 To 2
AnswerItems(i).Value = False
AnswerItems(i).Caption = Chr(i+65) & "、" & .Option(i) 'AnswerItems是Option控件数组的Name
Next
End With
answer = -1
End Sub

Private Sub Answers_Click(Index As Integer)
answer = Index '获取答案序号
End Sub

Private Sub Submit_Click() 'Submit是CommandButton控件的Name
If id >19 Then
MsgBox "已完成全部题目！"
Exit Sub
End If
If answer < 0 Then
MsgBox "请选择答案后在单击【确定】按钮！"
Else
If answer = Questions(id).Answer Then
id = id + 1
ShowNext id
Else
MsgBox "回答错误，正确答案是【" & Choose(Questions(id).Answer+1, "A","B","C") & "】"
End If
End If
End Sub