2011.08.17两位数的加减竖式

笨巧果 发表于: 2011-8-17 19:36 来源: 扑奔PPT网

w12345678 发表于 2011-8-17 21:56:15

…………………………………………

12.9 KB, 下载次数: 68)

云淡风轻99 发表于 2011-8-17 21:57:35

老师辛苦了。

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

12.9 KB, 下载次数: 56)

清风三笑 发表于 2011-8-17 22:02:50

清风三笑《两位数加减法》

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

16.8 KB, 下载次数: 51)

远离抱怨 发表于 2011-8-17 22:03:19

老师辛苦，很有意思的制作

[ 本帖最后由 远离抱怨 于 2011-8-17 22:05 编辑 ]

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

296 KB, 下载次数: 60)

岩岫吟风 发表于 2011-8-17 22:06:36

笨巧果老师辛苦了！

(2011-08-17 22:06:36, Size: 92.1 KB, Downloads: 66)

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

﹪舍~︰~得﹪ 发表于 2011-8-17 22:08:43

谢谢笨巧果老师，辛苦了

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

132 KB, 下载次数: 62)

燕语123 发表于 2011-8-17 22:12:18

谢谢老师！您辛苦了！

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

73.7 KB, 下载次数: 46)

wdj1021 发表于 2011-8-17 22:17:25

交作业......

幻灯片1.PNG

幻灯片2.PNG

幻灯片3.PNG

幻灯片4.PNG

888 B , 下载次数: 70)

飘荡的风 发表于 2011-8-17 22:27:46

好好学习，做个好学生

两位数的加减.jpg

467 KB, 下载次数: 49)

花哭了 发表于 2011-8-17 22:38:46

老师辛苦了！

幻灯片1.PNG

幻灯片2.PNG

幻灯片3.PNG

幻灯片4.PNG

885 KB, 下载次数: 27)

旺行天下 发表于 2011-8-17 22:44:39

掌握了这个两位数的加装法的制作，真得很有益处。谢谢老师了！

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

369 KB, 下载次数: 27)

静待花开 发表于 2011-8-17 23:18:24

老师，我想给此课件加个封面和封底，结果不进位加法那一页（原来的第一页）就变成第二页了，放映时就不执行出题和计算的命令了，我分析是要把代码中的页码更改一下，可是今天已经很晚了，明天请教过您之后我再上传作业吧。

月影如镜 发表于 2011-8-18 00:20:18

老师,辛苦啦！学会这VB真不容易！

幻灯片1.JPG

幻灯片2.JPG

214 KB, 下载次数: 51)

西^-^ 发表于 2011-8-18 00:27:15

俺来交作业了

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

137 KB, 下载次数: 23)

jack0421 发表于 2011-8-18 08:14:15

触类旁通才是出路。可以加300分。

 

[ 本帖最后由 jack0421 于 2011-8-18 23:58 编辑 ]

w12345678 发表于 2011-8-18 10:26:22

好厉害！佩服！

静待花开 发表于 2011-8-18 12:11:16

交上我的第一份作业

静待花开 发表于 2011-8-18 12:22:42

晕啊  刚才没贴上截图和作业包  汗 -  -！经过阿瑛老师的热心帮助和笨巧果老师的耐心指导，终于完成了我的第一份作业，再次向老师们表示感谢！！！

[ 本帖最后由 静待花开 于 2011-8-18 13:12 编辑 ]

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

幻灯片5.JPG

幻灯片6.JPG

161 KB, 下载次数: 35)

laose 发表于 2011-8-19 16:27:41

不错，果果的代码都比较实用！
俺略加修改：将四个过程合并为1个，弄成混合运算，代码如下：

Dim a1 As Integer, a2 As Integer
Dim b1 As Integer, b2 As Integer
Dim c1 As Integer, c2 As Integer
Dim c As Integer, daan As Integer
Dim s1 As String, s2 As String


Sub jiajian()
    Randomize
sel:
    a1 = Rnd * 8 + 1
    a2 = Rnd * 9
    b1 = Rnd * 8 + 1
    b2 = Rnd * 9
    c = 100 * Rnd
    a = (-1) ^ c
    With ActivePresentation.Slides(1)
        If .Shapes("chuti").TextFrame.TextRange.Text = "出 题" Then
            .Shapes("sw").TextFrame.TextRange.Text = ""
            .Shapes("jw").TextFrame.TextRange.Text = ""
            If a = 1 Then
                .Shapes("sign").TextFrame.TextRange.Text = "+"
                If a1 + b1 < 9 Then
                    s2 = ""
                    If a2 + b2 >= 10 Then
                        s1 = "1"
                    Else
                        s1 = ""
                    End If
                Else
                    GoTo sel
                End If
                daan = 10 * a1 + a2 + 10 * b1 + b2
                c1 = daan \ 10
                c2 = daan Mod 10
            Else
                .Shapes("sign").TextFrame.TextRange.Text = "-"
                If a1 > b1 Then
                    s1 = ""
                    If a2 < b2 Then
                        s2 = "·"
                    Else
                        s2 = ""
                    End If
                Else
                    GoTo sel
                End If
                daan = 10 * a1 + a2 - 10 * b1 - b2
                c1 = daan \ 10
                c2 = daan Mod 10
                If c1 = 0 Then  GoTo sel               
            End If
            .Shapes("a1").TextFrame.TextRange.Text = a1
            .Shapes("a2").TextFrame.TextRange.Text = a2
            .Shapes("b1").TextFrame.TextRange.Text = b1
            .Shapes("b2").TextFrame.TextRange.Text = b2
            .Shapes("c1").TextFrame.TextRange.Text = ""
            .Shapes("c2").TextFrame.TextRange.Text = ""
            .Shapes("chuti").TextFrame.TextRange.Text = "看答案"
        Else
            .Shapes("c1").TextFrame.TextRange.Text = c1
            .Shapes("c2").TextFrame.TextRange.Text = c2
            .Shapes("jw").TextFrame.TextRange.Text = s1
            .Shapes("sw").TextFrame.TextRange.Text = s2
            .Shapes("chuti").TextFrame.TextRange.Text = "出 题"
        End If
    End With
End Sub

[ 本帖最后由 laose 于 2011-8-19 17:06 编辑 ]

14 KB, 下载次数: 29)

飘荡的风 发表于 2011-8-19 17:29:23

这一合并，让我们能够进行代码比较，有利于学习vba。

谢谢，果果、动感老师。