连线题制作.docVIP

步骤 1新建空白ppt，用艺术字添加题目 。步骤 2单击控件工具箱命令按钮，拖出三个命令按钮，分别修改属性中caption为重做、关闭音乐、显示帮助；单击控件工具箱单选按钮，拖出八个单选按钮，把相应的文字和图片拖到合适的位置：再通过单击控件工具箱标签按钮，拖出一个标签按钮，修改属性中caption为空，再通过绘图里的对其与分布里的对齐，把各个对象调节好。? 步骤 3修改各个控件的属性，三个命令按钮依次修改名称为cmd1、cmd2、cmd3；八个单选按钮依次修改名称为Opt1、Opt2、Opt3、Opt4、Opt5、Opt6、Opt7、Opt8；标签按钮修改名称为Lbl1。步骤 4双击显示帮助按钮，进入代码编辑窗口，在Private Sub Cmd3_Click()和End Sub中间粘贴如下代码：If Cmd3.Caption = 显示帮助 ThenLbl1.Caption = 点击图下的小圆，然后点击单词上面的小圆！Cmd3.Caption = 隐藏帮助ElseLbl1.Caption = Cmd3.Caption = 显示帮助End If步骤 5双击关闭音乐按钮，进入代码编辑窗口，在Private Sub Cmd2_Click()和End Sub中间粘贴如下代码：If Cmd2.Caption = 关闭音乐 ThenWrong.settings.volume = 0dui.settings.volume = 0Cmd2.Caption = 打开音乐ElseWrong.settings.volume = 100dui.settings.volume = 100Cmd2.Caption = 关闭音乐End If步骤 6双击重做按钮，进入代码编辑窗口，在Private Sub Cmd1_Click()和End Sub中间粘贴如下代码：SlideShowWindows(1).View.EraseDrawingOpt1.Value = FalseOpt2.Value = FalseOpt3.Value = FalseOpt4.Value = FalseOpt5.Value = FalseOpt6.Value = FalseOpt7.Value = FalseOpt8.Value = False步骤 7双击Opt5按钮，进入代码编辑窗口，在Opt5后选择GotFocus项，在Private Sub Opt5_GotFocus()和End Sub中间粘贴如下代码：If Opt2.Value = True ThenSlideShowWindows(1).View.DrawLine 372, 210, 300, 370dui.Controls.PlayElseOpt2.Value = FalseWrong.Controls.PlayEnd If步骤 8双击Opt6按钮，进入代码编辑窗口，在Opt6后选择GotFocus项，在Private Sub Opt6_GotFocus()和End Sub中间粘贴如下代码：If Opt4.Value = True ThenSlideShowWindows(1).View.DrawLine 530, 210, 375, 370dui.Controls.PlayElseOpt4.Value = FalseWrong.Controls.PlayEnd If步骤 9双击Opt7按钮，进入代码编辑窗口，在Opt7后选择GotFocus项，在Private Sub Opt7_GotFocus()和End Sub中间粘贴如下代码：If Opt1.Value = True ThenSlideShowWindows(1).View.DrawLine 297, 210, 452, 370dui.Controls.PlayElseOpt1.Value = FalseWrong.Controls.PlayEnd If步骤 10双击Opt8按钮，进入代码编辑窗口，在Opt8后选择GotFocus项，在Private Sub Opt8_GotFocus()和End Sub中间粘贴如下代码：If Opt3.Value = True ThenSlideShowWindows(1).View.DrawLine 452, 210, 530, 370dui.Controls.PlayElseOpt3.Value = FalseWrong.Controls.PlayEnd If步骤 11保