小编Nic*_*cpr的帖子

我正在尝试制作一个数学练习powerpoint,其中学生将使用数字1 - 20来呈现随机添加问题.我一直在使用David Marcovtiz(和其他人)的教程,并使用他的代码作为起点.由于我的观众是年轻学生,我希望数学问题不是在消息框中,而是在文本框或形状之类的东西,我可以自定义,并为年轻学生提供大的视觉吸引力.

所以,我想要做的......在一个powerpoint节目中

1. 学生可以点击"开始"按钮,将其带到下一张幻灯片
2. 下一张幻灯片会自动生成2个学生必须一起添加的随机数.
3. 学生输入答案
4. 如果答案是正确的 - 我想要一些东西来表示答案是正确的,但不是他们必须点击关闭的东西.理想情况下,一个小星星在角落闪烁然后消失

5. 如果答案不正确,则消息或图片会闪烁然后消失.

6. 自动/随机生成新的添加问题我想将添加问题的数量设置为例如20,然后将幻灯片移动到评分幻灯片,该幻灯片显示他们在图片中的分数,例如每个正确答案的星号.

更新:使用Activex文本框:

我已经成功使用activex文本框,能够随机显示两个数字并将它们相乘并在第三个activex文本框中显示答案,我将其隐藏在幻灯片中.我使用第四个作为输入框,让学生输入他们的答案.如果这与第三个框中的答案相同,我可以显示一个星形并清除框然后移动到下一张幻灯片.如果它不一样,我可以去显示另一张图片,然后转到下一张幻灯片.(我原本希望幻灯片更新并使用一张幻灯片提出20个问题,但发现这很困难.)

目前,这需要单击三个命令按钮.

到目前为止我所管理的内容(我知道这对你来说似乎很难过,可能不稳定,但对我来说是一项重大成就,并且'比特'正在运作)我可以管理它用于乘法但是当我+值时,例如9 + 3 ,我得到93

Private Sub CommandButton1_Click()
    TextBox1.Value = Int(10 * Rnd)
    TextBox2.Value = Int(10 * Rnd)
    TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub

Private Sub CommandButton2_Click()
    If TextBox4.Value = TextBox3.Value Then
        ActivePresentation.Slides("problem").Shapes("badge5").Visible = True
        ActivePresentation.Slides("score").Shapes("badge5").Visible = True
    Else 
        ActivePresentation.Slides("problem" _).Shapes("incorrect").Visible = True

        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
    End If
End Sub

Private Sub CommandButton3_Click()
    SlideShowWindows(1).View.Next …