20120309笨巧果老师单选题作业

Sub A()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "A"
ActivePresentation.Slides(1).Shapes("duicuo").TextFrame.TextRange.Text = "√"
MsgBox "对了！"
End Sub
Sub B()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "B"
ActivePresentation.Slides(1).Shapes("duicuo").TextFrame.TextRange.Text = "×"
MsgBox "错了！"
End Sub
Sub C()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "C"
ActivePresentation.Slides(1).Shapes("duicuo").TextFrame.TextRange.Text = "×"
MsgBox "错了！"
End Sub
Sub D()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "D"
ActivePresentation.Slides(1).Shapes("duicuo").TextFrame.TextRange.Text = "×"
MsgBox "错了！"
End Sub
Sub chongzuo()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = " "
ActivePresentation.Slides(1).Shapes("duicuo").TextFrame.TextRange.Text = " "
End Sup

                                                     10效果图

 

(2012-03-09 21:24:43, Size: 252 KB, Downloads: 57)

           03效果图

 

(2012-03-09 21:59:39, Size: 394 KB, Downloads: 142)

[ 本帖最后由 嫦娥奔月 于 2012-3-9 22:03 编辑 ]