VB的猜数小游戏

Question

有两个text窗口：text1.text、text2.text ,滚动显示1到100的整数，用户单击左大或右大，猜对了text3.text就显对了，反之… 需要三个按钮：左大、右大、开始、还有一个计时器，其实我已经做好了，我运行的时候按下开始计时器开始计时，text1.text好text2.text都在动，我点左大的时候，却出现了这样的问题：先出现了你错了/你对了，然后才在text3.text里出现数字。这是为什么，我的要求是点左大先出现左大的数字，然后才出现你对了，反之你懂得… 兄弟们为了这20分，努力地答题吧！

Answer 1

这是界面布局，当然，你可以弄好看一些!代码如下：Dim i As Integer, j As Integer
Private Sub Timer1_Timer()
i = Val(Rnd * 100) + 1
j = Val(Rnd * 100) + 1
Text1.Text = Str(i)
Text2.Text = Str(j)
End Sub
Private Sub Command1_Click()
Timer1.Enabled = False
If i < j Then
Text3.Text = "很遗憾，你猜错了"
Else
Text3.Text = "恭喜，你猜对了"
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = 10
Text1.Visible = True'滚动显示
Text2.Visible = True'同上
Text3.Text = ""
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
If i > j Then
Text3.Text = "很遗憾，你猜错了"
Else
Text3.Text = "恭喜，你猜对了"
End If
End Sub

Answer 2

说说你第一个程序的问题吧。。就是你点击的那一段代码是放在了一起。。因为他先执行了上一段代码才执行了下一段代码。。运行效果就看到先执行的是你说的先出现你猜错或猜对等~