PPT实现随机两位数加法

寻梦 发表于: 2008-3-22 19:58 来源: 扑奔PPT网

寻梦 发表于 2008-3-23 09:17:43

原来上传的源文件,测试后,结果运行不是很理想!判断反馈不能实现!经修改代码后已经可以实现判断效果!请将幻灯片里的代码修改如下:再测试一下效果!
Dim a1, a2, a3, a4, a5
Private Sub CommandButton1_Click()
a1 = Int(100 * Rnd)
a2 = Int(100 * Rnd)
a4 = "太棒了!"
a5 = "再想想吧!"
TextBox1.Value = a1
TextBox2.Value = a2
TextBox3.Value = a3
Label1.Caption = ""
End Sub

Private Sub CommandButton2_Click()
If Int(TextBox3.Value) = a1 + a2 Then
Label1.Caption = a4
Else
Label1.Caption = a5
End If
End Sub
Private Sub CommandButton3_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Text = ""
Label1.Caption = ""
End Sub

随机两位数加法1.png

18.2 KB, 下载次数: 47)

shxxkn 发表于 2008-3-23 09:28:31

不错的,好啊

lcyjxjs 发表于 2008-3-23 09:55:55

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
连清空按纽也不要了，哈哈，我测试成功！

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

两位数加法(如风).jpg

121 KB, 下载次数: 30)

绝缘体 发表于 2008-3-23 10:11:42

你真是太牛了
我下来看看

寻梦 发表于 2008-3-23 10:32:08

谢谢!希望以后多研究VB实例!这样我们的PPT功能会显得更强大!

育书课件制作 发表于 2008-3-23 10:52:10

好东东！下载了    ！！！谢谢！！！！！

李在心 发表于 2008-3-23 14:21:01

很棒啊。很有趣。好好研究研究。

townny 发表于 2008-3-24 10:44:48

能写代码的我都很佩服，支持楼主分享！

amwyq 发表于 2008-3-24 13:23:33

好啊，不过如果把Label控件换为image控件可能会更生动些！搞个GIF卡通不是会更吸引孩子吗？

gzlg_2001 发表于 2008-3-24 20:01:07

谢谢LZ，努力学习中!

wangfei983 发表于 2008-11-24 00:28:02

能写代码的我都很佩服，支持楼主分享！