to haishen(海神) :vb不会连这样一个简单问题都作不到的,人的反映再快也不会比电脑快!to lifugui:这个算法很简单,可能你刚学vb,所以对vb的语法不太熟吧? 首先定义一个计数变量叫total 
Private Sub Form_Load()
Dim total As Integer
total =0 ’设置total初值
End SubPrivate Sub Command1_Click() ‘command1 为确定按钮
if 答对问题 then 
             total=total+1
            else
             total=0
end ifif total=3 then 
           total=0‘重置total以备下一次使用
           进入下一实验
ebd if
  End Sub希望能对你有所帮助