100以内的随机两位数加法交流帖

寻梦发表于: 2008-3-23 09:25 来源: 扑奔PPT网

因为上课时测试判断反馈效果不理想,没有及时给朋友们解决问题!今天一大早起来琢磨代码,经测试,修改后的代码已能正常判断!只是代码长了点!需要源文件的朋友到这里二楼下载,一楼是未经修改的源文件!
;extra=page%3D1

因为只是自己修改的代码,希望大家测试一下效果,能得到大家的反馈!

大家对 100以内的随机两位数加法交流帖的评论

lcyjxjs 发表于 2008-3-23 11:28:42: 代码改为下面，就可以成为两位乘法了，哈哈
Dim a1, a2
Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Label1.Caption = ""
a1 = Int(100 * Rnd)
a2 = Int(100 * Rnd)
TextBox1.Value = a1
TextBox2.Value = a2
End Sub
Private Sub CommandButton2_Click()
If Int(TextBox3.Value) = a1 * a2 Then
Label1.Caption = "太棒了!"
Else
Label1.Caption = "再想想吧!"
End If
End Sub

Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
请大家测试，俺是初学者，感谢寻梦老师指导！
只是这个随机数值，不是真正的随机数，有待改进。

[ 本帖最后由 lcyjxjs 于 2008-3-23 12:14 编辑 ]

两位数乘法.jpg

121 KB, 下载次数: 60)
李在心发表于 2008-3-23 14:25:09: 请老师指导。代码真是神秘啊。

随机两位数加法.jpg

18.1 KB, 下载次数: 63)
amwyq 发表于 2008-3-24 13:26:16: 建议把Label标签控件换为Image控件，比文字生动多了。。。
寻梦发表于 2008-3-24 15:50:11: QUOTE:
原帖由 amwyq 于 2008-3-24 13:26 发表
建议把Label标签控件换为Image控件，比文字生动多了。。。
思索老师,这个任务就交给你了!
贵儿发表于 2008-3-25 06:33:40: 可惜没听课,下载琢磨一下,弄不明白再请教!
amwyq 发表于 2008-3-25 11:27:17: 我在这儿传了个，稍做改动，把Label标签控件换为Image控件，并加了减法，大家可以下载交流！

[ 本帖最后由 amwyq 于 2008-3-25 11:34 编辑 ]