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希望能对你有所帮助
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希望能对你有所帮助
(一抖大衣,竖起衣领,满天繁星下,sky100融入茫茫夜色,就此消失不见)
我也是刚学VB的