如何在仓鼠打斗中控制仓鼠在接下来的时间里出现和消失？详细程序求VB。
这是动画。
选项显式
Dim lZQ As Long
Dim lCW As Long
将数据开始时间设为双“开始时间”
将数据停止显示为双“停止时间”
“Dim iNum As Integer”字
' Dim lTime一样长'
Dim iTime为整数
Dim iCode为整数
' Dim是整数形式百分比'
将bOK定义为布尔值
私有子窗体_DblClick()
开始
我。定时器1。启用=真
dStart =时间
末端接头
私有子窗体_Resize()
Me.lblInfo.Top =我。高度- 1000
末端接头
Private Sub Form_KeyDown(KeyCode为整数，Shift为整数)
如果dStart & lt& gt那么0
如果键码= iCode或键码= iCode - 32，则
如果iCode & lt= 90°和Shift & lt& gt2然后大写
哔哔声
lCW = lCW + 1
其他
lZQ = lZQ + 1
iScorce = iScorce + 1
如果…就会结束
其他
哔哔声
lCW = lCW + 1
iScorce = iScorce - 1
如果…就会结束
如果…就会结束
bOK = True
lTime = 0
iTime = 0
If iScorce & lt0则iScorce = 0
me . LBL info . caption = " Total words:" &；iNum & amp";正确数量:“&；lZQ & amp";错误数:“&；lCW & amp";正确率:“&；Round(lZQ / iNum * 100，2)& amp；"%;分数:“&；因为“”，“统计”
呼叫定时器1_Timer
末端接头
私有子窗体_Load()
我。定时器1。间隔= 50
我。定时器1。启用=假
末端接头
私有子定时器1_Timer()
整数形式的静态I
静态j为整数
整数形式的静态k
整数形式的静态l
我。AutoRedraw = True
我。KeyPreview = True
如果是我。定时器1。interval/1000 & gt；= 500则'指定500秒的任务。
转到结束
如果…就会结束
如果((itime *我。计时器1。interval) mod 5000 = 0)或bok = true则‘每个单词要求最多显示5秒。
如果it time & lt；& gt那么0
lCW = lCW + 1
iScorce = iScorce - 1
If iScorce & lt0则iScorce = 0
me . LBL info . caption = " Total words:" &；iNum & amp";正确数量:“&；lZQ & amp";错误数:“&；lCW & amp";正确率:“&；Round(lZQ / iNum * 100，2)& amp；"%;分数:“&；因为“”，“统计”
如果…就会结束
iTime = 0
bOK = False
我。Cls
使不规则化
i = Int(Rnd() * Me。刻度宽度- 500)
j = Int(Rnd() * Me。比例尺高度- 500)
K = Int(Rnd() * 90)+10 '字体大小
L = Int(Rnd() * 26)'产生52个字母中的一个。
L = Int(Rnd() * 53)'产生52个字母中的一个。
如果我& lt= 25然后大写
l = 65 + l
其他
l = 97 + l - 26
如果…就会结束
ICode = l '记录
我。CurrentX = i
我。CurrentY = j
我。FontSize = k
我。打印Chr(l)
iNum = iNum + 1
l = 0
其他
我。Cls
l = l + 1
如果I-100 * l & lt；那就100
l = 0
我。CurrentX =我。宽度- 500
我=我。宽度- 500
其他
我。CurrentX = i - l * 100
如果…就会结束
我。CurrentY = j
我。FontSize = k
我。打印记录(iCode)
如果…就会结束
如果iNum & gt= 101然后
iNum=100
转到结束
结束If iTime = iTime + 1
lTime = lTime + 1
出口接头
结束:
我。定时器1。启用=假
dStop =时间
If iScorce & lt0则iScorce = 0
Me.lblInfo.Caption = "总时间:" &；Round((dStop - dStart) * 24 * 3600，2)& amp；“秒，”&；vbCrLf & amp；"总字数:" &；iNum & amp";正确数量:“&；lZQ & amp";错误数:“&；lCW & amp";正确率:“&；Round(lZQ / iNum * 100，2)& amp；"%;分数:“&；iScorce
lTime = 0
iTime = 0
iNum = 0
末端接头
这是我给别人写的一个打字程序，类似打地鼠。希望对你有帮助。