VBA应用示例教程：小学数学减法计算

界面与功能说明：

单击数字分别在减数与被减数框中输入数，完成出题过程
计算是对题目进行运算并在得数框中得出结果
清空是分别清空减数与被减数以及得数框中的数

实现过程：
1，为控制方便以及按文本框名称属性取值功能的实现（单击数字分别在减数与被减数框中输入数），利用选择窗格检查对象名称或重命名：


2，按上面功能，编写三个过程函数（宏）：addtext、 clear()、Sub subtraction()

1. Sub addtext(oShp As Shape)
   
2.    
   
3.     With ActivePresentation.Slides(1)
   
4.         If .Shapes("减数框").TextFrame.TextRange.Text = "" Then
   
5.             .Shapes("减数框").TextFrame.TextRange.Text = Right(oShp.Name, 1)
   
6.         ElseIf .Shapes("被减数框").TextFrame.TextRange.Text = "" Then
   
7.             .Shapes("被减数框").TextFrame.TextRange.Text = Right(oShp.Name, 1)
   
8.         End If
   
9.     End With
   
10. 
    
11. End Sub
    
12. 
    
13. 
    
14. Sub clear()
    
15. 
    
16.     With ActivePresentation.Slides(1)
    
17.         .Shapes("减数框").TextFrame.TextRange.Text = ""
    
18.         .Shapes("被减数框").TextFrame.TextRange.Text = ""
    
19.         .Shapes("得数框").TextFrame.TextRange.Text = ""
    
20.     End With
    
21. 
    
22. End Sub
    
23. 
    
24. 
    
25. Sub subtraction()
    
26.    
    
27.     With ActivePresentation.Slides(1)
    
28.         .Shapes("得数框").TextFrame.TextRange.Text = Str(Val(.Shapes("减数框").TextFrame.TextRange.Text) - Val(.Shapes("被减数框").TextFrame.TextRange.Text))
    
29.     End With
    
30.    
    
31. End Sub

复制代码

3、指定宏运行：插入动作设置-选择相应功能的宏



示例下载：[attach]7429[/attach

看看这个，正好学习学习