PPT用VBA制作简单的选择题的方法及源码2 PPT用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 urnboolean)  textbox1.value = " "
end sub
单选题的制作
例如我们要设计如图1所示的选择题。
1( 题目
可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动vba，修改caption属性为“5x-15=0的解是:”，再根据需要修改其他属性(如颜等)。
2( 选项
插入一单选框，修改其caption属性为“0”，其他属性可自行修改。其他的
单选项可复制制作好的单选框，然后再修改它们的caption属性。
3( 查看答案命令按钮
在此使用命令按钮，我们可根据单选框的value属性的值来判断答案，如正确选项(单选框)的value的值为true，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。
(1)方法一
用msgbox()，如果选择正确，显示信息“very good!请继续～”，错误则显示“sorry，你选错了～正确答案是3，请继续努力。”
操作步骤：双击单选框进入vba，在编辑窗口中完成以下操作。 a. 在编辑窗口中到如下两条语句:
private sub optionbutton3_click() end sub
然后在上面这两条语句中间插入以下语句:
if optionbutton3.value=true then ex=msgbox("very good!请继续努力。",vbokonly)
b. 同理，到如下两条语句:
private sub optionbutton1_click() end sub
在这两条语句中间插入语句:
if optionbutton1.value=true then ex=msgbox("正确答案是3 ，请继续努力。",vbokonly)
c. 到如下两条语句
vba编程技巧private sub optionbutton2_click() end sub
在这两条语句中间插入语句
if optionbutton2.value=true then ex=msgbox("正确答案是 3，请继续努力。",vbokonly)
说明:ex为自定义变量
(2)方法二

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。