• 科教 —频道 春城壹网 七彩云南 一网天下 2019-06-20
  • 看看这些政协委员说了哪些亮点? 2019-06-20
  • 跻身亚洲10佳啤酒吧,美国啤酒节拿金奖,来这看世界杯最带感! 2019-06-08
  • 陈晓卿推出全新美食纪录片 "风味"能否再续辉煌? 2019-06-04
  • 没有Showgirl的E3展 才是游戏玩家的天堂 2019-06-04
  • 概括起来就是:人在任何时候都有神赐的田地生长粮棉等生物而足食丰衣。 2019-05-18
  • 姚明撰文回忆菜鸟赛季 温暖的回忆感谢弗朗西斯 2019-05-18
  • 中心城区核心片组完成签约清零任务 2019-05-16
  • 体验过Bose的两项新技术 令人更爱开车了 2019-05-16
  • 习近平:深入实施创新驱动发展战略 为振兴老工业基地增添原动力 2019-04-12
  • 海外版望海楼:“五大观念”的时代价值 2019-04-12
  • 王铮亮真人秀智改“星星”主题曲 文薇银幕首献声 2019-04-07
  • 外交部发言人就美方公布对华贸易措施答记者问 2019-04-07
  • 享受世界杯 别忘了知识产权这道关 2019-04-06
  • 电影人共聚“微博电影之夜” 张艺谋:如果不当导演就当守门员 2019-04-06
  • 会员登录 立即注册

    广西11选五销售时间:广西11选五复式

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

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

    [复制链接]
    跳转到指定楼层
    楼主
    etthink 发表于 2018-12-16 16:53:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    楼主
    etthink
    2018-12-16 16:53:10 1478 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-06-20
  • 看看这些政协委员说了哪些亮点? 2019-06-20
  • 跻身亚洲10佳啤酒吧,美国啤酒节拿金奖,来这看世界杯最带感! 2019-06-08
  • 陈晓卿推出全新美食纪录片 "风味"能否再续辉煌? 2019-06-04
  • 没有Showgirl的E3展 才是游戏玩家的天堂 2019-06-04
  • 概括起来就是:人在任何时候都有神赐的田地生长粮棉等生物而足食丰衣。 2019-05-18
  • 姚明撰文回忆菜鸟赛季 温暖的回忆感谢弗朗西斯 2019-05-18
  • 中心城区核心片组完成签约清零任务 2019-05-16
  • 体验过Bose的两项新技术 令人更爱开车了 2019-05-16
  • 习近平:深入实施创新驱动发展战略 为振兴老工业基地增添原动力 2019-04-12
  • 海外版望海楼:“五大观念”的时代价值 2019-04-12
  • 王铮亮真人秀智改“星星”主题曲 文薇银幕首献声 2019-04-07
  • 外交部发言人就美方公布对华贸易措施答记者问 2019-04-07
  • 享受世界杯 别忘了知识产权这道关 2019-04-06
  • 电影人共聚“微博电影之夜” 张艺谋:如果不当导演就当守门员 2019-04-06
  • 快三做号软件 剑网3指尖江湖人物实力 龙珠激斗单机版破解版 金鱼草 招财鞭炮手机版游戏 泰拳真正高手 秘密爱慕者登陆 彩票合买图片 新快3123 重庆时时彩计划_人工版 魔兽世界怀旧服官网 魂斗罗归来武器排行 360竞彩足球比分直播 科隆vs云达不莱梅 香港六合彩海尔家族 潍坊扑克牌技