会员登录 立即注册

搜索

开启左侧

制作一个可以自已出题的PPT

[复制链接]
etthink 发表于 2018-12-16 16:53:10 | 显示全部楼层 |阅读模式
etthink
2018-12-16 16:53:10 1095 1 看全部
主要方法,通过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. Private Sub CommandButton2_Click()
  13. '需要将文本框中的文本转换为数值,才能相加,否则a+b会得到ab
  14. '在这个代码片段中为才能没有用到前面定义的变量a,b呢,因为定义的变量办能在相应的程序块中使用,如果想让它通用,可以将声明变量放到整个PPT范围,如通用
  15. 'TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
  16. '如果你的代变量是在通用范围中声明的,则可以使用以下的代码为判断条件
  17. If TextBox3.Text = a + b Then
  18. MsgBox ("恭喜,您做对了!")
  19. Else
  20. MsgBox ("再想一想,重新输入答案")
  21. '清空答案文本框,等输入新的答案
  22. TextBox3.Text = ""
  23. End If

  24. End Sub
复制代码
其中TextBox1/TextBox1/TextBox1/CommandButton1/CommandButton2是使用到的PPT中Activex控件。
PPT文件下载

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
欢迎大家多发帖,参与讨论,增进彼此了解。
 楼主| etthink 发表于 2018-12-17 10:32:28 | 显示全部楼层
etthink
2018-12-17 10:32:28 看全部
把其修改为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. Else
  11. Label1.Caption = "-"
  12. If a < b Then
  13. TextBox1.Text = b
  14. TextBox2.Text = a
  15. Else
  16. TextBox1.Text = a
  17. TextBox2.Text = b

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


欢迎大家多发帖,参与讨论,增进彼此了解。
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

查看:1095 | 回复:1

教育技术论坛,教育技术人交流的专业社区,专注于教育技术应用与推广!让更多的人了解教育技术,用好教育技术!
关于我们
社区简介
发展历程
联系我们
社区管理
新手指南
申请版主
申请开店
赞助我们
微信赞助
支付宝赞助

官方微信

手机版

手机APP

站点统计| Archiver| 手机版| 小黑屋| 帮助| 教育技术论坛   
联系电话:13355549901 地址:安徽省淮南市田家庵区朝阳街道 邮箱:sf@etthink.com ICP备案号: ( 皖ICP备10014945号-4 )
Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.2
快速回复 返回顶部 返回列表

皖公网安备 34040302000242号