• 习近平:深入实施创新驱动发展战略 为振兴老工业基地增添原动力 2019-04-12
  • 海外版望海楼:“五大观念”的时代价值 2019-04-12
  • 王铮亮真人秀智改“星星”主题曲 文薇银幕首献声 2019-04-07
  • 外交部发言人就美方公布对华贸易措施答记者问 2019-04-07
  • 享受世界杯 别忘了知识产权这道关 2019-04-06
  • 电影人共聚“微博电影之夜” 张艺谋:如果不当导演就当守门员 2019-04-06
  • 纠正涉重大财产案件,不妨从顾雏军案起 2019-03-24
  • 小天视频这个六一 来个回忆杀 2019-03-24
  • 重庆电视台推出《这里是重庆》 再现山城故事 2019-03-16
  • 广本全新凌派尺寸比思域大!搭1.0T引发动机 2019-03-16
  • 【“健”识早知道】“垃圾睡眠”比失眠还可怕?四招助你一夜好眠! 2019-03-10
  • 广州市荔湾区人民法院公告专栏 2019-02-20
  • 【十九大·理论新视野】动漫:“美丽中国”如何绘就 2019-02-20
  • 央行调查:36.5%的居民 预期下季度房价上涨 ——凤凰网房产北京 2018-11-25
  • 一镜到底绝密视频!10个故事,一个不一样的上合峰会 2018-11-21
  • 会员登录 立即注册

    广东体彩11选五走势图:广西11选五复式

    打印 上一主题 下一主题
    开启左侧

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

    [复制链接]
    跳转到指定楼层
    楼主
    etthink 发表于 2018-12-16 16:53:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    楼主
    etthink
    2018-12-16 16:53:10 1218 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

    评分

    参与人数 1银两 +5 收起 理由
    HERE + 5 作者辛苦

    查看全部评分

    欢迎大家多发帖,参与讨论,增进彼此了解。
    沙发
     楼主| 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就是减法,在减法时还需要判断两个数的大小,让大的数在前面,所以嵌套了一个条件判断。
    在判断答案时,同样需要依据加法减法条件来判断。


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

    本版积分规则 返回列表

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

    官方微信

    手机版

    手机APP

    联系电话:13355549901 地址:安徽省淮南市田家庵区朝阳街道 邮箱:[email protected] ICP备案号: ( 皖ICP备10014945号-4 )
    Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.2
    快速回复 返回顶部 广西11选五复式

    皖公网安备 34040302000242号

  • 习近平:深入实施创新驱动发展战略 为振兴老工业基地增添原动力 2019-04-12
  • 海外版望海楼:“五大观念”的时代价值 2019-04-12
  • 王铮亮真人秀智改“星星”主题曲 文薇银幕首献声 2019-04-07
  • 外交部发言人就美方公布对华贸易措施答记者问 2019-04-07
  • 享受世界杯 别忘了知识产权这道关 2019-04-06
  • 电影人共聚“微博电影之夜” 张艺谋:如果不当导演就当守门员 2019-04-06
  • 纠正涉重大财产案件,不妨从顾雏军案起 2019-03-24
  • 小天视频这个六一 来个回忆杀 2019-03-24
  • 重庆电视台推出《这里是重庆》 再现山城故事 2019-03-16
  • 广本全新凌派尺寸比思域大!搭1.0T引发动机 2019-03-16
  • 【“健”识早知道】“垃圾睡眠”比失眠还可怕?四招助你一夜好眠! 2019-03-10
  • 广州市荔湾区人民法院公告专栏 2019-02-20
  • 【十九大·理论新视野】动漫:“美丽中国”如何绘就 2019-02-20
  • 央行调查:36.5%的居民 预期下季度房价上涨 ——凤凰网房产北京 2018-11-25
  • 一镜到底绝密视频!10个故事,一个不一样的上合峰会 2018-11-21