PPT基础知识交流帖(第二课时4月11日)

寻梦 发表于: 2008-4-11 17:41 来源: 扑奔PPT网

huaxianziyuemei 发表于 2008-4-11 18:54:36

老师我下载下来了，我出差刚回来，有幸今晚能听到您的课！好高兴！

zjgg520 发表于 2008-4-11 18:56:49

好好学习哦，我还差的远呢

寻梦 发表于 2008-4-11 20:01:57

QUOTE:

原帖由 huaxianziyuemei 于 2008-4-11 18:54 发表
老师我下载下来了，我出差刚回来，有幸今晚能听到您的课！好高兴！

辛苦了，为你接尘！

红烛咖啡 发表于 2008-4-11 21:42:20

老师给看看，辛苦您了！！！我的第四张，代码错误。第六张，卡了没做完。

评改：
第四张代码，提交判断按钮上，最后一行语句错：and Sub 改成 End Sub就可以了
第六张代码，提交判断按钮上，少一行显示得主语句：df.caption=sum
清空代码：
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
df.caption=""

[ 本帖最后由 寻梦 于 2008-4-11 23:20 编辑 ]

143 KB, 下载次数: 38)

独立寒秋 发表于 2008-4-11 21:48:54

老师好，我第四张选择题提交判断后全都答对了和再想想吧是紧接着出现的，如果有一个不选，点提交判断，什么也不出现，如果全选，先是恭喜你，点确定后，紧接着出现一个再想想吧，这是怎么回事呢？请老师费心多指教啊！谢谢！

1、第四张幻灯片出现的问题，是因为你少了一个else语句，
Private Sub CommandButton1_Click()
If Box1.Value = True And Box2.Value = True And Box3.Value = True And Box4.Value = True And Box5.Value = True And Box6.Value = True And Box7.Value = True Then
ct = MsgBox("恭喜你，你答对了", vbOKCancel, "结果提示")
Else
ct = MsgBox("再想想吧！", vbOKCancel, "结果提示")
End If
End Sub

2、第六张幻灯片出现的问题，首先，你和显示成绩的控件使用的是文本框，并且名称为“得分”，所以，你的语句应该作如下修改，
Private Sub CommandButton1_Click()
If TextBox1.Text = "1" Then sum = sum + 25
If TextBox2.Text = "5" Then sum = sum + 25
If TextBox3.Text = "3" Then sum = sum + 25
If TextBox4.Text = "4" Then sum = sum + 25
得分.Text = sum
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
得分.Text = sum
End Sub

请根据问题修改，再测试一下，祝你好运！

[ 本帖最后由 寻梦 于 2008-4-11 23:10 编辑 ]

215 KB, 下载次数: 34)

ffxq200808 发表于 2008-4-11 21:54:58

多项选择题,好难！代码太难了呀！！

209 KB, 下载次数: 47)

PPT基础讲座寻梦老师讲1.jpg

PPT基础讲座寻梦老师讲.jpg

春之声 发表于 2008-4-11 22:05:30

老师谢谢你！晚上的语句是明白，第4这做对了，但在做第6张时，做不大对。

[ 本帖最后由 春之声 于 2008-4-11 22:06 编辑 ]

红烛咖啡 发表于 2008-4-11 22:09:50

老师，怎么我下载您能的完整稿，也出不来效果啊。 :loveliness: :loveliness: :loveliness: :loveliness:

pp800 发表于 2008-4-11 22:39:26

因出差在外，未能听到老师的课，非常遗憾。好在老师有模板给出，谢谢了！

loveuc 发表于 2008-4-11 22:53:30

有的代码不太懂，英语太差了

PPT基础知识.jpg

幻灯片4.JPG

359 KB, 下载次数: 21)

linda027 发表于 2008-4-11 22:58:39

今天真呀真高兴.
上课迟到了30分钟,但还是听懂了,作业也在老师的帮助下完成了.
交作业呀,交作业呀.请老师批改.

[ 本帖最后由 linda027 于 2008-4-11 23:05 编辑 ]

146 KB, 下载次数: 28)

幻灯片1.JPG

幻灯片4.JPG

幻灯片6.JPG

寻梦 发表于 2008-4-11 22:59:13

QUOTE:

原帖由 红烛咖啡 于 2008-4-11 21:42 发表
老师给看看，辛苦您了！！！我的第四张，代码错误。第六张，卡了没做完。

第四张代码，提交判断按钮上，最后一行语句错：and Sub 改成 End Sub就可以了
第六张代码，提交判断按钮上，少一行显示得主语句：df.caption=sum
清空代码：
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
df.caption=""

寻梦 发表于 2008-4-11 23:14:43

QUOTE:

原帖由 红烛咖啡 于 2008-4-11 22:09 发表
老师，怎么我下载您能的完整稿，也出不来效果啊。 :loveliness: :loveliness: :loveliness: :loveliness:

估计是你的宏安全性没有设置，工具——宏——安全性——低——确定，退出PPT，再重新启动PPT，再看看效果！

红烛咖啡 发表于 2008-4-12 11:16:06

谢谢老师！！！我一定努力！！！

yifeng00 发表于 2008-5-08 18:32:26

哦，好难懂，慢慢学习