PPT中用VBA求指点

dragonfly007

我是一名小老师，为了活跃课堂气氛，激发学生上课的积极性，实行小组学习模式。要给课堂上表现积极的学生加分，在PPT课件里添加了些VBA代码，部分幻灯片实现计分功能。问题是学校的电脑配置稍低，PPT运行时明显不顺畅，很容易卡壳，希望可以精简。也在学习vb.net，但目前水平暂时很难做出像样的vb插件。求大神对我的PPT改进，问题困扰了我很久，如能改进，PPT运行流畅的话，课堂效率会更高，望各位赐教，不胜感激！
在幻灯片的“母版”视图下，小组幻灯片中的“+”“-”按钮的vb代码如下：
Private Sub S1分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S1加1分_Click()
With SlideShowWindows
S1分值.Text = Val(S1分值.Text) + Val(S1加1分.Caption)
End With
End Sub

Private Sub S1减1分_Click()
With SlideShowWindows
S1分值.Text = Val(S1分值.Text) + Val(S1减1分.Caption)
End With
End Sub

Private Sub S2分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S2加1分_Click()
With SlideShowWindows
S2分值.Text = Val(S2分值.Text) + Val(S2加1分.Caption)
End With
End Sub

Private Sub S2减1分_Click()
With SlideShowWindows
S2分值.Text = Val(S2分值.Text) + Val(S2减1分.Caption)
End With
End Sub

Private Sub S3分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S3加1分_Click()
With SlideShowWindows
S3分值.Text = Val(S3分值.Text) + Val(S3加1分.Caption)
End With
End Sub

Private Sub S3减1分_Click()
With SlideShowWindows
S3分值.Text = Val(S3分值.Text) + Val(S3减1分.Caption)
End With
End Sub

Private Sub S4分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S4加1分_Click()
With SlideShowWindows
S4分值.Text = Val(S4分值.Text) + Val(S4加1分.Caption)
End With
End Sub

Private Sub S4减1分_Click()
With SlideShowWindows
S4分值.Text = Val(S4分值.Text) + Val(S4减1分.Caption)
End With
End Sub

Private Sub S5分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S5加1分_Click()
With SlideShowWindows
S5分值.Text = Val(S5分值.Text) + Val(S5加1分.Caption)
End With
End Sub

Private Sub S5减1分_Click()
With SlideShowWindows
S5分值.Text = Val(S5分值.Text) + Val(S5减1分.Caption)
End With
End Sub

Private Sub S6分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S6加1分_Click()
With SlideShowWindows
S6分值.Text = Val(S6分值.Text) + Val(S6加1分.Caption)
End With
End Sub

Private Sub S6减1分_Click()
With SlideShowWindows
S6分值.Text = Val(S6分值.Text) + Val(S6减1分.Caption)
End With
End Sub

dragonfly007

希望哪位大侠能指点迷津，学校的电脑配置