交互式幻灯片(第三课时)

交互式幻灯多项选择题的效果及累计总分效果
此相关视频如下



累计总分按钮代码如下:
Dim sum As Integer
If Slide2.TextBox1.Text = "中国" Then sum = sum + 10
If Slide2.TextBox2.Text = "北京" Then sum = sum + 10
If Slide2.TextBox3.Text = "巴黎" Then sum = sum + 10
If Slide2.TextBox4.Text = "堪培拉" Then sum = sum + 10
If Slide3.a3.Value = True Then sum = sum + 10
If Slide3.b4.Value = True Then sum = sum + 10
If Slide3.c2.Value = True Then sum = sum + 10
If Slide3.d1.Value = True Then sum = sum + 10
If Slide4.CheckBox1.Value = True And Slide4.CheckBox3.Value = True And Slide4.CheckBox2.Value = False And Slide4.CheckBox4.Value = False Then sum = sum + 10
If Slide4.CheckBox6.Value = True And Slide4.CheckBox7.Value = True And Slide4.CheckBox8.Value = True And Slide4.CheckBox5.Value = False Then sum = sum + 10
Slide5.zcj.Caption = sum

全部清空按钮代码如下:
Slide2.TextBox1.Text = ""
Slide2.TextBox2.Text = ""
Slide2.TextBox3.Text = ""
Slide2.TextBox4.Text = ""
Slide2.cj1.Caption = ""
Slide3.a1.Value = False
Slide3.a2.Value = False
Slide3.a3.Value = False
Slide3.a4.Value = False
Slide3.b1.Value = False
Slide3.b2.Value = False
Slide3.b3.Value = False
Slide3.b4.Value = False
Slide3.c1.Value = False
Slide3.c2.Value = False
Slide3.c3.Value = False
Slide3.d1.Value = False
Slide3.d2.Value = False
Slide3.cj2.Caption = ""
Slide4.CheckBox1.Value = False
Slide4.CheckBox2.Value = False
Slide4.CheckBox3.Value = False
Slide4.CheckBox4.Value = False
Slide4.CheckBox5.Value = False
Slide4.CheckBox6.Value = False
Slide4.CheckBox7.Value = False
Slide4.CheckBox8.Value = False
Slide4.cj3.Caption = ""
Slide5.zcj.Caption = ""