- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
课件单选题制作(方法二)
Powerpoint中用VBA实现课件中的智能交互(实现单选等)PowerPoint中的VBA可以实现很多复杂的交互,但很多老师面对VBA编程,都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题,以后在课件中实现交互就不会那么费劲了。 VBA基础 说到VBA编程,就不得不提到控件工具箱,我们需要利用其中的控件搭建需要的环境。 1. 显示控件工具箱 在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。 2. 控件工具箱(如图1)中常用按钮的介绍
(1)复选框(CheckBox):可以选择多个选项,常用来设计多选题;(2)文本框(TextBox):可以输入文本,常用来设计填空题;(3)命令按钮(CommandButton):用来确定选择或输入,也可设计超级链接;(4)单选框(OptionButton):只能选中一个选项,常用来设计单选题或判断题;(5)标签(Label):用来显示文字信息。 3. 插入控件的方法 单击控件工具箱上的工具按钮,然后在幻灯片中拖动到适当大小即可。 4. 进入VBA的方法 双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。 5. 控件的主要属性及设置方法 进入VBA后,需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口,按F4键即可调出该窗口。下面我们就不同的控件,来说明常用属性的设置方法。 (1)复选框 AutoSize:有两个值,True表示根据字的多少调整复选框的大小,False表示复选框为固定大小;BackColor:设置复选框的背景颜色,单击该属性框出现下拉按钮,选择“调色板”选项卡后选择颜色;Caption:控件的名称,把默认值删除再重新输入新名称;Font:设置字体、字号及字形,单击该属性框出现按钮,单击该按钮出现字体对话框,再在对话框中设置;Forecolor:设置字的颜色,设置方法同BackColor;Height:复选框的高度,直接输入数字即可;Width:复选框的宽度,直接输入数字即可;Value:复选框的值,True为选中,False则相反。(2)文本框 AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框;Value:文本框的值,用来保存输入的文本;TextAlign:设置文本对齐方式。 (3)单选框 属性设置同复选框。 (4)标签 除Value外,其他同复选框。 (5)命令按钮 同标签。 6. 消息框MsgBox 的功能
我们常用消息框显示一些交互的信息,如图2所示的消息框用下面的语句可实现: Msgbox(这是一个例题,VbYesNo,示例) 多选题的制作 1. 题目的设计同单选题 2. 选项:用复选框(CheckBox),其他设置同单选题。 3. [查看答案]命令按钮:因为是多选题,答案有多个,所以要书写多个条件,条件之间用and连接,表示同时满足这几个条件,例如第一、三、五的选项是正确的,则需要输入如下语句: If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then 给出正确的提示信息同单选题 else 给出错误的提示信息同单选题 end if 填空题的制作 1. 题目的设置同单选题,填空的地方用文本框。 2. 判断正误:因为是填空题,所填答案是文本,所以条件书写为: if TextBox1.value=正确的文本 then 给出正确的提示信息同单选题 else 给出错误的提示信息同单选题 end if 注意:正确的文本一定要用半角双引号括起来,如几个空一起判断,方法同多选题。
3. [重新填空]命令按钮:需要完成如下语句的设置: Private Sub CommandButton2_Click() TextBox1.Value = 请双击后填入你的答案! End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = End Sub 单选题的制作 例如我们要设计如图1所示的选择题。 1. 题目 可用文本框,也可用标签。如果用文本框,
您可能关注的文档
- XX市信息办移动办公系统用户培训手册详解.ppt
- XX市应急办应急管理工作平台解决方案详解.doc
- xx市中医院新建门诊综合楼、改建病房楼建设项目可研报告详解.doc
- XX铁路工程安全生产大检查深化“打非治违”和专项整治活动总结详解.doc
- XX团队建设建设方案(可实行)详解.ppt
- XX物业服务中心终工作总结详解.ppt
- XX县XX养鸡场规模化养殖污染治理项目详解.doc
- XX县XX镇初级中学安全管理制度详解.doc
- XX县XX镇轻质碳酸钙项目可行性研究报告详解.doc
- XX县XX镇污水处理方案设计100T详解.doc
- 大学生职业规划大赛《新闻学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《应用统计学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《音乐学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《中医学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《信息管理与信息系统专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《汽车服务工程专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《水产养殖学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《市场营销专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《音乐表演专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《音乐学专业》生涯发展展示PPT.pptx
文档评论(0)