[这个贴子最后由王山而在 2005/07/26 05:43am 第 1 次编辑]

引用:

下面引用由sy112233在 2005/07/25 09:54pm 发表的内容：
答案是4就一定对。。。。

这就是"简单"的意思。
除法(2)

这个程序有很明显的bug，时钟不能完全显示出来。

引用:

下面引用由Bill6189在 2005/07/26 09:24am 发表的内容：
这个程序有很明显的bug，时钟不能完全显示出来。

我也觉得是这样，但是没查出原因来。

可能是你的Label控件长度不够。

应该是那样

引用:

下面引用由Bill6189在 2005/07/26 09:44am 发表的内容：
可能是你的Label控件长度不够。

有道理。

设置功能。。

发现了一个bug，进去后还没有选好运算符直接都可以按“出题”键并且还开始了计时。

引用:

下面引用由Bill6189在 2005/07/27 04:34pm 发表的内容：
发现了一个bug，进去后还没有选好运算符直接都可以按“出题”键并且还开始了计时。

小小BUG ^-^

混合运算应该怎么实现？

可以先随机生成n个数，再随机生成n-1个运算符，必要时添上括号，然后得出的式子用Script Control控件计算出标准答案即可。

引用:

下面引用由Bill6189在 2005/07/27 09:40pm 发表的内容：
可以先随机生成n个数，再随机生成n-1个运算符，必要时添上括号，然后得出的式子用Script Control控件计算出标准答案即可。

传上来看看。

引用:

下面引用由sy112233在 2005/07/27 08:15pm 发表的内容：
小小BUG ^-^

有发展，请继续。

下面是《Visual Basic 6.0 程序设计实务入门》一书第11章中的一个范例，其中关于文本的键盘事件[Text1_KeyPress(KeyAscii As Integer、Text2_KeyPress(KeyAscii As Integer)、Text3_KeyPress(KeyAscii As Integer))是不是画蛇添足、多此一举？

Private Sub Command1_Click()
Sum = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Label4.Caption = Sum / 3
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

这里的三个键盘事件是防止用户输入非数值文本的，不是多此一举。

设计混合运算思路
Private Sub Command1_Click()
    Dim N, I As Long
    Dim T As String
    N = Fix(3 * Rnd) + 2
    Dim S() As Long
    Dim O() As Integer
    ReDim S(N) As Long
    ReDim O(N - 1) As Integer
    For I = 0 To N - 1
        S(I) = Fix(1000 * Rnd) + 1
        O(I) = 2 * (Fix(4 * Rnd) + 20) + 1
        If O(I) = 41 Then O(I) = 42
    Next I
    S(N) = Fix(1000 * Rnd) + 1
    For I = 0 To N - 1
        T = T + CStr(S(I)) + Chr(O(I))
    Next I
    T = T + CStr(S(N))
    Label1.Caption = T
    Label2.Caption = ScriptControl1.Eval(T)
End Sub

引用:

下面引用由Bill6189在 2005/07/28 09:33am 发表的内容：
这里的三个键盘事件是防止用户输入非数值文本的，不是多此一举。

谢谢！

Label2.Caption = ScriptControl1.Eval(T)
其中：
ScriptControl1
是什么？

引用:

下面引用由王山而在 2005/07/28 08:04am 发表的内容：
下面是《Visual Basic 6.0 程序设计实务入门》一书第11章中的一个范例，其中关于文本的键盘事件[Text1_KeyPress(KeyAscii As Integer、Text2_KeyPress(KeyAscii As Integer)、Text3_KeyPress(KeyAscii As Intege ...

我加句on error resume next 不加Text1_KeyPress。。。。

我原先不是说了吗？使用Script Control控件嘛。