请教VB循环语句问题

来源：百度知道 编辑：UC知道 时间：2024/05/02 06:39:02
本人正在做一个选择题判断的小程序，题目有20道（每小题1分），选项A、B、C、D方面用单选按钮，在完成20到题后并退出时自动将结果和正确答案进行比较，将最终的分数写入保存一个记事本上。请求各位大虾帮忙。
可用数组、条件语句及循环语句做[我本人还没有做出来，请各位大虾帮忙写写]

ans()数组为存放答案的，我在此先设定答案都为A，具体请自己设定。文件路径假定为“d:\a.txt”，也请自己设定。代码如下。
------------------------------------
Dim ans(19) As String, i As Integer, s As Integer, m As Integer

Private Sub Form_Load()
Open "d:\a.txt" For Output As 1
For i = 0 To 19
ans(i) = "A"
Next
Option1(0).Caption = "A"
Option1(1).Caption = "B"
Option1(2).Caption = "C"
Option1(3).Caption = "D"
i = 0
End Sub

Private Sub Option1_Click(Index As Integer)
If Option1(Index).Caption = ans(m) Then s = s + 1
For j = 0 To 3
Option1(j).Value = False
Next
m = m + 1
If m = 20 Then Write #1, s: End
End Sub

你想让干什么 啊。？帮你写出整个程序？还是那错了。错了把代码贴出来让看看。