为什么我加了
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
后输入数字不能删除？

因为删除的Ascii码为8，不符合这里48～57的范围内，就被那过程过滤了删除操作了。 因而那句应改为If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscll <> 8 Then

为什么我引用了Script Control控件还是发生要求对象？

不是引用，Script Control是ActiveX控件来的。

引用:

下面引用由Bill6189在 2005/07/28 12:15pm 发表的内容：
不是引用，Script Control是ActiveX控件来的。

哦，不过得数的小数点部分应该怎么处理

可以说明保留几位小数。答题者就只需要输入几位就行了。

引用:

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

“防止用户输入非数值文本”一语道破天机！
    “程解说”说：第29行~33行：对象名称为Text3，事件名称为_KeyPress，控制TextBox只能输入0~9间的数值。
     我用这段话问一位高中教师：“输入10可以吗？”答：“不可以。只能输入0~9间的数值。”

因为0-9的Ascii码为48-57

引用:

下面引用由sy112233在 2005/07/28 11:40am 发表的内容：
我加句on error resume next 不加Text1_KeyPress。。。。

人家目的是说键盘事件,所以不能删除,不能改为非键盘事件.

引用:

下面引用由王山而在 2005/07/28 12:33pm 发表的内容：
人家目的是说键盘事件,所以不能删除,不能改为非键盘事件.

哦

根据Bill6189的思路加了混和运算
如果选混和运算按出题2次或2次以上，则显示题目区域会加上上一次的题目，如何解决？

你在这两句之间：
   S(N) = Fix(1000 * Rnd) + 1
   For I = 0 To N - 1
加上一句T = ""即可。

我想你的程序是为小学生做的，小学生没学过负数，你最好这样。
得出一条算式，计算出标准答案后先检验其正负，如果为负数就自动重新出题。

请问那个倒计时是怎么做的?

我发现了一个bug

[这个贴子最后由Bill6189在 2005/07/28 04:51pm 第 1 次编辑]

引用:

下面引用由王山而在 2005/07/28 03:27pm 发表的内容：
请问那个倒计时是怎么做的?

利用Timer控件，每隔一秒数字减1即可。

引用:

下面引用由Bill6189在 2005/07/28 04:20pm 发表的内容：
利用Timer控件，每格一秒数字减1即可。

请说得具体点。
我再传一个

到底是减1还是减2?

当然是减1啦，怎么来个减2？

Private Sub Form_Load()
Timer1.Interval = 1000
Form1.FontSize = 25
End Sub
Private Sub Timer1_Timer()
Cls
Print
Print Spc(3); Second(Time - 2)
End Sub