界面只需要添加1個frame和4個單選框（如果是多選題則替換成多選框），每次點擊下壹題，將題目和選項顯示到上面，類似這樣：
至於記分，用壹個變量計算就可以了，每壹題提交後就記分，全部題目完成後顯示總分數。
代碼：
Dim QS(99,5)'二維數組，這裏定義了100道題，第二維是題目內容。這裏用自定義結構會更加自然
'初始化數組
QS(0, 0) = "地球自傳壹周是多少小時？"'題目
QS(0, 1) = "8"'選項1
QS(0, 2) = "12"'選項2
QS(0, 3) = "24"'選項3
QS(0, 4) = "48"'選項4
QS(0, 5) = "3"'答案
...
'顯示題目，比如單擊按鈕“下壹題”
Private Sub cmdNext_Click()
mnIndex = mnIndex + 1 '全局變量
Frame1.Caption ="題目" & mnIndex & ":" &?QS(0, 0)?
Option1(0).Caption = QS(0, 1)?
Option1(1).Caption = QS(0, 2)?
Option1(2).Caption = QS(0, 3)?
Option1(3).Caption = QS(0, 4)?
End Sub