求一个vb心理测试小程序

就是一个程序，开始就是问题，比如说你“你喜欢什么颜色？”选项A红B黄C蓝D绿都是前面有小圆点的可以选择的，然后点下一题就出现下一个问题，到最后提交能显示总得分和结果，A1分B2分C3分D4分。就是最后那个计分不会弄，所以求高手给我一个完成的代码，不用做太多，两个问题结束就出计分板就行，我学习一下可以自己完善。谢谢！！！！！！！！分数不多，因为最近被扣分了……求求各位了…………………… 

答案：
你分析一下我下面的代码，相信你会很快解决问题的！
Dim Zf As Integer
Dim An As Integer
Private Sub Command1_Click()
Dim Dcf As Integer
An = An + 1
Dcf = InputBox("请输入本次得分数：")
Zf = Zf + Dcf
Print "第" & An & "次按按钮后总分为：" & Zf
End Sub

其他：定义一个dim score as integer
第一题点击“下一题”按钮时，判断选择了哪个，然后score=score+多少分
第二题点击“提交”时，再判断下score=score+多少分
这个score就是2题的总分

大概思路是这样的，我这没VB，代码也不好写。

上一个：vb怎么判断焦点
下一个：lingo里怎么表示正取0，负取1