制作一个可以自已出题的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
    
12. 
    
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
    
25. 
    
26. End Sub

复制代码

其中TextBox1/TextBox1/TextBox1/CommandButton1/CommandButton2是使用到的PPT中Activex控件。
PPT文件下载： XX的人生第一个程序——用PPT出个计算题-完成版.rar (29.7 KB, 下载次数: 74)

2018-12-16 18:16 上传

点击文件名下载附件

把其修改为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
   
10. 
    
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
    
19. 
    
20. End If
    
21. End If
    
22. End Sub

复制代码

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