vb中怎样利用数组和frame框架制作一组单选题？怎样编程？

界面只需要添加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

frame上摆放四个option控件来做就行了。