应用思考-教育技术论坛

标题: 制作一个可以自已出题的PPT [打印本页]
作者: etthink    时间: 2018-12-16 16:53
标题: 制作一个可以自已出题的PPT
主要方法，通过VBA代码实现
  1. '声明变量
  2. Dim a As Integer
  3. Dim b As Integer
  4. Private Sub CommandButton1_Click()
  5. '为变量赋值，生成一个1-100之间的随机数，Rnd是生成随机数，Int()是取整，将小数转换为整数的一种方法
  6. a = Int((100 * Rnd) + 1)
  7. b = Int((100 * Rnd) + 1)
  8. '将a和b的值传递（或赋值）给文本框，在界面上显示出来（实际本案例可以将生成的数不通过变量，直接传递给文本框控件，但使用变量是一种好习惯）
  9. TextBox1.Text = a
  10. TextBox2.Text = b
  11. End Sub

  13. Private Sub CommandButton2_Click()
  14. '需要将文本框中的文本转换为数值，才能相加，否则a+b会得到ab
  15. '在这个代码片段中为才能没有用到前面定义的变量a,b呢，因为定义的变量办能在相应的程序块中使用，如果想让它通用，可以将声明变量放到整个PPT范围，如通用
  16. 'TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
  17. '如果你的代变量是在通用范围中声明的，则可以使用以下的代码为判断条件
  18. If TextBox3.Text = a + b Then
  19. MsgBox ("恭喜，您做对了！")
  20. Else
  21. MsgBox ("再想一想，重新输入答案")
  22. '清空答案文本框，等输入新的答案
  23. TextBox3.Text = ""
  24. End If

  26. End Sub
复制代码
其中TextBox1/TextBox1/TextBox1/CommandButton1/CommandButton2是使用到的PPT中Activex控件。
PPT文件下载： (, 下载次数: 74)

作者: etthink    时间: 2018-12-17 10:32
把其修改为1-100以内的加减法口算题
  1. Dim a, b, c, d,  As Integer
  2. Private Sub CommandButton1_Click()
  3. a = Int(Rnd * 100 + 1)
  4. b = Int(Rnd * 100 + 1)
  5. c = Rnd
  6. If c > 0.5 Then
  7. Label1.Caption = "+"
  8. TextBox1.Text = a
  9. TextBox2.Text = b

  11. Else
  12. Label1.Caption = "-"
  13. If a < b Then
  14. TextBox1.Text = b
  15. TextBox2.Text = a
  16. Else
  17. TextBox1.Text = a
  18. TextBox2.Text = b

  20. End If
  21. End If
  22. End Sub
复制代码
这里关键的变化是通过产生的随机数来决定是加法还是减法，小于等于0.5就是减法，在减法时还需要判断两个数的大小，让大的数在前面，所以嵌套了一个条件判断。
在判断答案时，同样需要依据加法减法条件来判断。






欢迎光临 应用思考-教育技术论坛 (http://etthink.com/) Powered by Discuz! X3.4