奥运知识小测验交流帖

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

请朋友们交作业哦

源文件下载1:
源文件下载2:

3月8日晚上代码对照
判断代码
Private Sub CommandButton1_Click()
Dim sum As Integer
sum = 0
If Slide1.b1.Value = True Then
sum = sum + 25
dui = dui + 1
cuo = cuo + 0
Else
dui = dui + 0
cuo = cuo + 1
End If
If Slide2.b2.Value = True Then
sum = sum + 25
dui = dui + 1
cuo = cuo + 0
Else
dui = dui + 0
cuo = cuo + 1
End If
SlideMaster.dd.Caption = dui
SlideMaster.dc.Caption = cuo
SlideMaster.df.Caption = sum
End Sub

清空代码
Private Sub CommandButton2_Click()
Slide1.a1.Value = False
Slide1.b1.Value = False
Slide1.c1.Value = False
Slide1.d1.Value = False
Slide2.a2.Value = False
Slide2.b2.Value = False
Slide2.c2.Value = False
Slide2.d2.Value = False
SlideMaster.dd.Caption = ""
SlideMaster.dc.Caption = ""
SlideMaster.df.Caption = ""
End Sub

[ 本帖最后由寻梦于 2008-3-8 21:50 编辑 ]

奥运知识小测验交流帖 (164 KB, 下载次数: 148)

大家对奥运知识小测验交流帖的评论

村名发表于 2008-3-08 22:41:07: 个人认为程序还是有点问题本人只学过VC 没学过VB

330 KB, 下载次数: 166)
blsusanna 发表于 2008-3-08 23:15:55: 梦梦老师,我做的课件,代码好像也是对的,不知播放时怎么老出问题,请帮忙指正问题所在,非常感谢!!

236 KB, 下载次数: 75)
月影如镜发表于 2008-3-08 23:20:44: 梦梦老师，您布置的作业我终于完成了！谢谢梦梦老师，您辛苦啦！

幻灯片1.JPG

幻灯片2.JPG

幻灯片4.JPG

267 KB, 下载次数: 437)
柒分kù牛发表于 2008-3-09 10:07:37: 自己模仿做了个，听课的最后部分代码没听（刚好有事去了），因此没写。
版面里做了点动画~望老师指点~

411 KB, 下载次数: 1721)
寻梦发表于 2008-3-09 17:48:44: 村名朋友你好，看过你的源文件后，请依照下面的处点修改意见进行修改，相信的你的程序就能正常运行了！
（1）每张幻灯片“选项按钮”的组名“GroupName”属性按钮要修改。请将第二张幻灯片的“GroupName”属性改为“Slide2”，第三张幻灯片的“GroupName”属性改为“Slide3”，第四张幻灯片的“GroupName”属性改为“Slide4”
（2）“判断”代码修改
SlideMaster.dd.Caption = dui
SlideMaster.dc.Caption = cuo
SlideMaster.df.Caption = sum
此三行语句有重复，只需保留最后一部分内容。

sum=0有重复
我想你应该理解这句代码的含义，让sum变量初始化为零。你不能让它在每张幻灯片开始时都出现，重复的话，不能实现sum变量的累加！

三处修改后，相信你的效果就能实现了！
寻梦发表于 2008-3-09 18:03:35: 请依照下面的几点进行修改
（1）答对、答错、得分标签名没有改，请到母版中将“你答对了 ”后面的标签名称改为“dd”;“你答错了 ”后面的标签名称改为“dc”;“共得 ”后面的标签名称改为“df”;
（2）标签文字颜色和底色相同，均为白色，让判断文字无法显示。请选择标签文字颜色“foreColor”属性颜色改为红色。
（3）每张幻灯片“选项按钮”的组名“GroupName”属性按钮要修改。请将第二张幻灯片的“GroupName”属性改为“Slide2”，依此类推！

[ 本帖最后由寻梦于 2008-3-9 23:13 编辑 ]
寻梦发表于 2008-3-09 18:04:49: 月影和IP 柒分kù牛的，要等下班后才能看了
李在心发表于 2008-3-09 21:16:18: 这两天有的忙晕了，忘了交作业了。谢谢老师，我好不容易做完了作业，可是编代码的原理还不太明白，以后再继续学。

[ 本帖最后由李在心于 2008-3-9 21:19 编辑 ]

aoyun.jpg

aoyun1.jpg

240 KB, 下载次数: 82)
blsusanna 发表于 2008-3-09 21:32:49: 谢谢老师,修改后,我的幻灯能播放您说的效果了
另外,理解有教vb语言的教学资料或网站吗,只要简单的就行了,难的俺暂时放到第二步,只想在课件中用一用,有些语言还是不太理解.
村名发表于 2008-3-09 22:45:21: 谢谢老师了呵呵以后再有交作业的时候记得提醒我哦最近比较忙上线的时间比较短
寻梦发表于 2008-3-09 23:15:23: 作业还有一小部分要修改，
每张幻灯片“选项按钮”的组名“GroupName”属性按钮要修改。请将第二张幻灯片的“GroupName”属性改为“Slide2”。
mafeng2465 发表于 2008-3-10 14:14:11: 噢噢噢晕啊~~~~~~~~~·······
育书课件制作发表于 2008-3-10 22:03:02: 来交一下作业！
sukou 发表于 2008-3-14 13:27:37: 这个。。真是太高级了！！！！！！