PowerPoint的动画效果和路径绘制.doc

PowerPoint的动画效果和路径绘制一、基本构想本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题;单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。图1 PowerPoint实例二、制作过程1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在编辑区内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”，“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。 4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在编辑区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。三、添加代码1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2) as integer”。2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入If ti2.Value = True Thenfen(0) = 2Elsefen(0) = 0End IfWith SlideShowWindows(1).View.GotoSlide (2)End With3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入If ti3.Value = True Thenfen(1) = 2Elsefen(1) = 0End IfDim i, ss = 0For i = 0 To 2s = s + fen(i)Nextsum = s好了，退出“Microsoft visual basic”编辑器，按F5试一下效果吧，怎么样，是不是和原来设计的一样呢。紧急求助！PPT vba if语句的用法 浏览次数：415次悬赏分：50 | 解决时间：2010-3-27 12:46 | 提问者：无间沉沦 求助在PPT 中 if 语句的用法，还有想问一下，如何在加载幻灯片的时候将所有单选按钮的VALUE值设置为FALSE问题补充： 我想做4个单选按钮，一个标签，一个命令按钮单击按钮，根据选择的按钮，来控制标签显示的字最佳答案 在PPT中点击【视图】-【visual basic】，加载vb视窗，添加4个单选按钮，一个标签，一个命令按钮，在代码窗口输入下面代码：Private Sub CommandButton1_Click()If OptionButton1.Value = True Then Label1.Caption = 单选钮1ElseIf OptionButton2.Value = True Then Label1.Caption = 单选钮2ElseIf OptionButton3.Value = True Then Label1.Caption = 单选钮3ElseIf OptionButton4.Value = True Then Label1.Caption = 单选钮4ElseMsgBox 请选择单选钮！End IfEnd SubVBA中的WITH 语句用法 及含义 浏览次数：459次悬赏分：0 | 解决时间：2010-9-6 11:40 | 提问者：夜风长门 最佳答案 通俗点讲with的作用就是简化代码，让代码简洁易懂让你不需要输入重复的内容例如：With A1 .RowHeight =