PPT单项选择题演示

amwyq 发表于: 2009-2-14 23:02 来源: 扑奔PPT网

dreaujyc 发表于 2009-2-15 09:57:57

版主大人有没有详细的代码呀

ly27ssh 发表于 2009-2-15 11:25:19

最好附上范例才好学习。:$

amwyq 发表于 2009-2-15 13:38:19

 

Private Sub Cmd1_Click()
n = 0
Lab1.Caption = ""
Slide2.Lab2.Caption = ""
Slide4.Lab3.Caption = ""
Slide3.t.Text = ""
End Sub
Private Sub Cmd2_Click()
If Opt1.Value = True Then
n = n + 5
Slide1.Wr.Controls.Play
Else
Slide1.Ww.Controls.Play
End If
With SlideShowWindows(1).View
    .Next
    End With
End Sub
Private Sub Opt1_Click()
Lab1.Caption = "A"
End Sub
Private Sub Opt2_Click()
Lab1.Caption = "B"
End Sub
Private Sub Opt3_Click()
Lab1.Caption = "C"
End Sub

allkill5488 发表于 2009-2-15 14:18:28

这是我做的！
不知道能不能做出填空题的效果呢？

19.3 KB, 下载次数: 97)

冬雪儿 发表于 2009-2-15 21:25:01

老师您辛苦了

VBA第一课.jpg

493 KB, 下载次数: 88)

情意阿瑛 发表于 2009-2-15 21:27:14

老师辛苦了 我的作业 请多多指导
先学的内容先交这么多

幻灯片1.JPG

幻灯片2.JPG

123 KB, 下载次数: 87)

pnz79414 发表于 2009-2-15 21:29:30

选择题....

14.5 KB, 下载次数: 85)

幻灯片1.JPG

情意阿瑛 发表于 2009-2-15 21:37:13

请发图

冬雪 发表于 2009-2-15 21:38:47

老师讲的真好。交作业

vb1.jpg

15.6 KB, 下载次数: 69)

轻轻小草 发表于 2009-2-15 21:40:41

交作业喽 ，谢谢老师，您辛苦了，今天老掉线。

[ 本帖最后由 轻轻小草 于 2009-2-17 21:16 编辑 ]

VB基础1选择题.jpg

木子禾I 发表于 2009-2-15 21:44:55

谢谢老师！老师辛苦了！

VB第一课20090215.jpg

54.4 KB, 下载次数: 27)

相偎 发表于 2009-2-15 21:48:06

谢谢思索老师！

14.9 KB, 下载次数: 26)

幻灯片1.JPG

赤丹 发表于 2009-2-15 21:57:16

谢谢老师！

VB基础.jpg

129 KB, 下载次数: 20)

jack0421 发表于 2009-2-15 21:58:42

学做选择题（网络太差没法传图，晕啊！）我的机器该重装了！

 

演示效果：

 

[ 本帖最后由 jack0421 于 2009-2-18 11:27 编辑 ]

30.4 KB, 下载次数: 47)

好好学习PPT 发表于 2009-2-15 22:07:35

老师辛苦了 ！！！！！

幻灯片1.JPG

幻灯片2.JPG

54.1 KB, 下载次数: 22)

幽兰 发表于 2009-2-15 22:11:58

 

(2009-02-15 22:11:58, Size: 195 KB, Downloads: 40)

amwyq 发表于 2009-2-15 22:25:02

都比我做的好，呵呵

ahwsr 发表于 2009-2-15 22:30:54

谢谢老师！

20.4 KB, 下载次数: 23)

选择题的制作.gif

逆光回原 发表于 2009-2-15 22:52:14

谢谢老师，您辛苦了

幻灯片1.JPG

26.3 KB, 下载次数: 27)

春天里的太阳 发表于 2009-2-15 22:56:43

老师辛苦了，看看我做的，不会复选

88 KB, 下载次数: 20)