level 2
![[乖]](/static/emoticons/u4e56.png)
求这类似题目方法是啥？
2014年09月13日 14点09分
level 9
*添加一个命令按钮
Private Sub Command1_Click()
Dim T As Single, Max As Double, Min As Double, tmp As Double
Randomize
tmp = Int(-10 * Rnd(3) - 12)
Max = tmp
Min = tmp
Print "稍等10秒！"
T = Timer
Do Until Timer - T >= 10
tmp = Int(-10 * Rnd(3) - 12)
If tmp > Max Then Max = tmp
If tmp < Min Then Min = tmp
DoEvents
Loop
Print "Max=" & Max & ",Min=" & Min
End Sub
2014年09月14日 05点09分
3
Private Sub Command1_Click()
Dim T As Single, Max As Double, Min As Double, tmp As Double
Randomize
tmp = Int(-10 * Rnd(3) - 12)
Max = tmp
Min = tmp
Print "稍等10秒！"
T = Timer
Do Until Timer - T >= 10
tmp = Int(-10 * Rnd(3) - 12)
If tmp > Max Then Max = tmp
If tmp < Min Then Min = tmp
DoEvents
Loop
Print "Max=" & Max & ",Min=" & Min
End Sub
如果10秒中还算不出正确答案，那就是你的电脑太菜了![[吐舌]](/static/emoticons/u5410u820c.png)
！
2014年09月14日 05点09分
！