[求助]如何利用VB6,设计一系列的填空题

是利用VB6,制造一个填空题,然后累计分数,最后显示出得了多少分/总分

不是设计关于VB6问题的填空题...而是

是用它来设计的填空题``

各位请帮帮忙..我不知道代码..

建立文本控件组和答案变量数组

然后循环他们。。。如果和你设置的答案一致就给分数累加，最后把分数输出。

如果是选择题,四个选项,不同题的不同选项所加的分不同...
那..

一样……看他选到是几给对应的分数。只要你的分数和他选的一致就可以。。。分数(题,选项)用个2唯的数组保存。

Private Sub Command1_Click()
Dim Mark As Integer, i As Integer
Dim Answer(3) As String
Answer(0) = "VBP": Answer(1) = "FRM": Answer(2) = "BAS"
For i = 0 To 2
If UCase(Text1(i)) = Answer(i) Then Mark = Mark + 1
Next
Print "做对了" & Mark & "道T。"
End Sub