PPT用VBA制作简单的选择题的方法及源码2

PPT用VBA制作简单的选择题的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 及源码2 PPT用VBA制作简单的选择题的方法及源码 powerpoint中的vba可以实现很多复杂的交互，但很多老师面对vba编程，都会觉得无从下手。所以本期我们为大家安排了一个关于powerpoint中vba的小专题，以后在 课件 超市陈列培训课件免费下载搭石ppt课件免费下载公安保密教育课件下载病媒生物防治课件 可下载高中数学必修四课件打包下载 中实现交互就不会那么费劲了。 vba基础 说到vba编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。 1( 显示控件工具箱 在powerpoint中选择菜单“视图/工具栏/控件工具箱”。 2( 控件工具箱(如图1)中常用按钮的介绍 (1)复选框(checkbox):可以选择多个选项，常用来 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 多选题;(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( 题目 可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动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. 找到如下两条语句 private sub optionbutton2_click() end sub 在这两条语句中间插入语句 if optionbutton2.value=true then ex=msgbox("正确答案是 3，请继续努力。",vbokonly) 说明:ex为自定义变量 (2)方法二 在幻灯片合适的地方插入一标签，修改其caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“label2.caption="very good!"请继续～"”，错误选项的改为“label2.caption="正确答案是3 ，请继续努力。"”即可。 4( 重新选择 命令按钮 在幻灯片适当的地方插入一命令按钮，修改其caption属性为“重新选择”，在编辑窗口中的private sub commandbutton1_click()和end sub语句间插入: optionbutton1.value = false optionbutton2.value = false optionbutton3.value = false label2.caption =""如判断正误用的是方法一，此语句不要) 5( 下一题 命令按钮 在幻灯片适当地方插入一命令按钮，修改其caption属性为“下一题”，在编辑窗口中的private sub commandbutton1_click()和end sub语句间插入 if msgbox("是否继续", vbyesno + vbquestion, “下一题”)=vbyes then with slideshowwindows(1).view .gotoslide 2 end with(2为第2张幻灯片，此语句表示转到第2张幻灯片) end if 如果要根据条件的不同转到不同的幻灯片，可用下面语句: if 条件then with slideshowwindows(1).view .gotoslide 2 end with end if 说明:条件可以是caption属性或value属性，书写方法为:控件名称(在vba中的名称).属性=(value属性为true或false，caption属性为具体文本，注意文本要加双引号)，例如下面的语句: if optionbutton1.value=true then 表示如果单选框1的value值为true，那么运行then后的语句，一直到end if。 判断题的制作 所有的设置与单选题类似，只不过是设计两个选项“?”和“×”，这两个符号可先在word中插入，然后再复制过来。 一、基本构想 图1 本例很简单，就两道题:界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题;单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。 二、制作过程 1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。 2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在编辑区内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。 3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。如图2所示。 图2 其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”，“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。 4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在编辑区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。 这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。 三、添加代码 1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2) as integer”。 2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入 If ti2.Value = True Then fen(0) = 2 Else fen(0) = 0 End If With SlideShowWindows(1).View .GotoSlide (2) End With 3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入 If ti3.Value = True Then fen(1) = 2 Else fen(1) = 0 End If Dim i, s s = 0 For i = 0 To 2 s = s + fen(i) Next sum = s 好了，退出“Microsoft visual basic”编辑器，按F5试一下效果吧，怎么样，是不是和原来设计的一样呢。 用PPT2003制作课后练习题 日期:2010-4-9 作者:ppt5u 本文可以学到 1如何用PPT制作互动式选择题 2用VBA辅助制作填空题 教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢,看看我是如何利用 Powerpoint2003 的动画触发器和VBA功能来实现的吧。我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。 一、触发器做单选 以一道选择题为例，启动Powerpoint2003，新建一空白幻灯片，利用文本框，输入题干内容。点击“幻灯片放映?动作按钮”，选中“动作按钮:自定义”选项，然后在PPT中画出一个按钮。 1.制作模板:右击插入的按钮，在弹出的快捷菜单中选择“添加文本”选项，在“动作按钮”上 添加第一个备选答案(如“A、170克/摩尔”)，并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。 2.复制试题:选中这个“动作按钮”，按着Ctrl拖拉鼠标，快速复制一个按钮(共操作3次，复制3个)，并修改字符为其他备选项答案。 3.添加答案:插入文本框，并输入“正确、错误”及相关提示的字符(如“错误～”)，并设置好字体、字号、字符颜色等。 4.设置交互:选中这个文本框，执行“幻灯片放映?自定义动画”命令，展开“自定义动画”任务窗格，单击“添加动画”右侧的下拉按钮，在下拉列表中选择“进入?飞入”选项;再按“方向”右侧的下拉按钮，在列表中选择“自左铡”选项，在“自定义动画”选择“飞入”，打开“飞入”对话框，切换到“及时”标签卡，单击“触发器”按钮，选中“单击下列对象时启动效果”选项，并在下拉列表中选择“动作按钮:自定义2……”选项(即第一个备选答案对应的“动作按钮”项)，“确定”返回。 5.制作完成:按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。 二、VBA法来填空 上述用触发器只能制作选择，有的练习题需要填空形式，就用VBA来实现吧。 1.制作试题:用文本框输入填空题的题目内容，点击“视图?工具栏?控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮，在填空题的空格处拖拉出一个控件文本框。 2.设置命令:单击“命令按钮”按钮并画一个按钮来。选中此按钮，单击“属性”，展开“命令按钮”属性对话框，将其中的“Caption”修改为“查看正确答案”(具体修改内容，请根据需要确定)，并关闭属性窗口。 3.插入代码:双击插入的命令按钮打开VBA编辑窗口，在“PrivateSub CommandButton1_Click()”和“EndSub”语句之间输入如下代码: IfTextBox1.Text="物理"Then dd=MsgBox("你填对了", vbOKCancel,"结果") Else dd=MsgBox("你填错了", vbOKCancel,"结果") EndIf 4.效果预览:制作完成了，赶快按下F5功能键来看一下效果吧。 小提示:VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框”属性对话框，选中“font”选项，然后点击后面的“…”号，即可打开“字体”对话框设置字体等。 MsgBox是弹出对话框的命令，而代码中的“dd”和相应的其他文字为自定义变量，可以用其 他字母代码和文字代替。 第三节 用 VBA 制作智能交互型的课件 如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用 VBA 编程，来实现复杂的智能交互。 一、 VBA 编程基础 (一)常用控件的属性设置 1. 复选框 ( CheckBox ) 可以选择多个选项，常用来设计多选题;其属性设置: AutoSize :有两个值， True 表示根据字的多少调整复选框大小， False 表示复选框为固定大小; BackColor :设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色; Caption :控件的名称，把默认值删除后，再重新输入新名称; Font :设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置; ForeColor :设置字的颜色，设置方法同 BackColor ; Height :复选框的高度，直接输入数字即可; Width :复选框的宽度，直接输入数字即可; Value :复选框的值， True 为选中，相反 False 则为未选中。 2. 文本框 ( TextBox ) 可以输入文本，常用来设计填空题;其 AutoSize 、 BackColor 、 Font 、 ForeColor 、 Height 、 Width 等属性的设置方法同复选框; Value :文本框的值，用来保存输入的文本; TextAlign :设置文本对齐方式。 3. 命令按钮 ( CommandButton ) 用来确定选择或输入，也可设计超级链接等;属性设置同复选框。 4. 单选框 ( OptionButton ) 只能选中一个选项，常用来设计单选题或判断题;除 Value 外，其他同复选框。 5. 标签 ( Label ) 用来显示文字信息。除 Value 外，其它同复选框。 6. 消息框( MsgBox ) 常用消息框显示一些交互的信息，如图 10 - 29 所示的消息框用下面的语句可实现: MsgBox( ” 这是一个例题 ”,vbYesNo,” 示例 ”) 。 图 10-29 用消息框显示交互信息 (二) VBA 的编程环境 双击幻灯片中的控件，或用菜单 “工具” -> “宏” -> “ Visual basic 编辑器”命令，即可进入 VBA 编程状态。进入 VBA 后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口， 按 F4 键即可调出该窗口。 二、制作智能交互型的课件 以制作单选题、选择题、判断题和填空题为例来介绍智能课件的制作方法。 (一)单选题的制作 图 10-30 单选题的运行界面 1. 题目 题目的输入可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签(第一个标签)，插入后双击该标签启动 VBA ，修改 Caption 属性为“ 5X-15=0 的解是:”，再根据需要修改其他属性(如颜色等)。如图 10 - 30 所示。 2. 答案选项 插入一个单选框(第一个单选框)，修改其 Caption 属性为“ A 3 ”，其他属性可自行修改。其他的单选项可复制制作好的单选框(第二、三和四个单选框)，然后再分别修改它们的 Caption 属性为“ B 5 ”、“ C 11 ”和“ D 18 ”。 3. “查看答案”命令按钮 在此插入一个命令按钮(第一个命令按钮)，我们可根据单选框的 Value 属性的值来判断答案，如正确选项(单选框)的 Value 的值为 True ，则为该题选择正确，否则为选择错误，另外还可根据选择正误来给出提示信息，有两种方法。 (1)方法一 用 MsgBox() ，如果选择正确，显示信息“ Very Good ～请继续～”，选择错误则显示“ Sorry ，你选错了～正确答案是 3 ，请继续努力。”具体操作步骤:双击单选框进入 VBA 编辑窗口，在编辑窗口中完成以下操作。如图 10-31 所示。 1)在编辑窗口中找到如下两条语句: Private Sub OptionButton1_Click() 和 End Sub 语句。 然后在上面这两条语句中间插入以下语句: If OptionButton1.Value=True Then ex=MsgBox(“Very Good ～请继续努力。 ”,vbOKOnly) 2)同理，找到如下三组语句: 第一组语句: Private Sub OptionButton2_Click() 和 End Sub ; 第二组语句: Private Sub OptionButton3_Click() 和 End Sub ; 第三组语句: Private Sub OptionButton4_Click() 和 End Sub 。 在这三组的两条语句中间分别插入语句: If OptionButton2.Value=True Then ex=MsgBox(“ 正确答案是 3 ，请继续努力。 ”, vbOKOnly) If OptionButton3.Value=True Then ex=MsgBox(“ 正确答案是 3 ，请继续努力。 ”, vbOKOnly) If OptionButton4.Value=True Then ex=MsgBox(“ 正确答案是 3 ，请继续努力。 ”, vbOKOnly) 说明: ex 为自定义变量 图 10-31 方法 1 的代码编辑窗口 (2)方法二 在幻灯片合适的地方插入一个标签(第二个标签)，修改其 Caption 属性为空，其他设置同方法一，只要把正确选项中的“ then ”后的语句名改为“ Label2.Caption=”Very Good! 请继续～ ” ”，三个错误选项的“ then ”分别改为“ Label2.Caption=” 正确答案是 3 ，请继续努力。 ” ”即可。 图 10-32 方法2的代码编辑窗口 4. “重新选择”命令按钮 在幻灯片适当的地方插入一个命令按钮(第二个命令按钮)，修改其 Caption 属性为“重新选择”，如图 10-33 所示。在编辑窗口中的 Private Sub CommandButton2_Click() 和 End Sub 语句间插入: OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False Label2.Caption =”” // 如判断正误用的是方法一，此语句不要 5. “下一题”命令按钮 在幻灯片适当地方插入一个命令按钮(第三个命令按钮)，修改其 Caption 属性为“下一题”，如图 10-33 所示。在编辑窗口中的 Private Sub CommandButton3_Click() 和 End Sub 语句间插入 If MsgBox(“ 是否继续 ”, VbYesNo + VbQuestion, “ 下一题 ”)= VbYes Then With SlideShowWindows(1).View .GotoSlide 2 End With //2 为第 2 张幻灯片，此语句表示转到第 2 张幻灯片 End if 图 10-33 “重新选择”和“下一题”命令按钮代码编辑窗口 如果要根据条件的不同转到不同的幻灯片，可用下面语句: If 条件 then With SlideShowWindows(1).View .GotoSlide n //n 为第 n 张幻灯片，此语句表示转到第 n 张幻灯片 End With End if 说明:条件可以是 Caption 属性或 Value 属性，书写方法为:控件名称 ( 在 VBA 中的名称 ). 属性 =(value 属性为 True 或 False ， Caption 属性为具体文本，注意文本要加双引号 ) ，例如下面的语句: If OptionButton1.Value=True then „„ End if 表示如果单选框 1 的 Value 值为 True ，那么运行 then 后的语句，一直到 End if 。 (二)多选题的制作 题目的设计同单选题。答案选项用复选框( CheckBox )，其他设置同单选题。“查看答案”命令按钮，因为是多选题，答案有多个，所以要书写多个条件，条件之间用 and 连接，表示同时满足这几个条件，比如第 1 、 3 选项是正确的，则需要输入如下语句: If CheckBox1.Value=True And CheckBox3.Value=True Then 给出正确的提示信息同单选题 Else 给出错误的提示信息同单选题 End if (三)判断题的制作 所有的设置与单选题类似，只不过两个答案选项是“ ? ”和“ × ”，这两个符号可先在 Word 中插入，然后再复制过来。 (四)填空题的制作 点击文本框控件，在幻灯片适当的位置拖拉鼠标得到合适大小的文本框。选中该文本框，右击选择“查看代码”命令，打开代码编辑窗口，点击右上方的下拉按钮，在弹出的下拉列表中选择“ LostFocus ”。这样当文本输入完成、鼠标离开这个文本框时，就会出现在下面设置好的反馈信息。如图 10 - 34 所示。 在代码编辑窗口中找到这两条语句: Private Sub TextBox1_LostFocus() 和 End Sub 语句。 在这两行语句中间插入如下代码: If TextBox1.Value =“李白” Then MsgBox(“ 不错，你填对了。恭喜您～”, vbOKOnly ,“填空题”) Else MsgBox(“不对吧,再想想，也许您就能想起正确答案呢～”,vbOKOnly,”填空题 ”) TextBox1.Text =“” End If 说明:本例中这个填空题的正确答案就是“李白”，其它分别表示答对或答错时课件的反馈信息，制作中可以根据实际自行更改。如果有多个填空题，那么需要将上面代码中的 TextBox1 替换为 TextBox2 、 TextBox3 等，依此类推。 利用控件工具箱，在 PowerPoint 中制作智能交互的课件以课堂练习题为例介绍，实际上还有很多的用途，在此不再累述。如果需要制作一份交互性的试卷，可以复制相应的代码，然后根据具体问题进行修改，这样可以在一定程度上减少工作量。制作完成后，可将 PowerPoint 保存成 PPS 格式文件，学生双击此文件即可运行，以避免学生对试题进行编辑。 图 10-34 文本框代码编辑窗口 附: 设置“文本框”属性。具体含义为: (名称)属性:可以使用自定义的字符串或由软件自动产生。 AutoSize 属性: 规定 关于下班后关闭电源的规定党章中关于入党时间的规定公务员考核规定下载规定办法文件下载宁波关于闷顶的规定 文本框对象是否自动调整大小以显示其完整的内容。 AutoTab 属性设置为 True 时，才会自动按 Tab 键顺序接收焦点。 Auto Word Select 属性:指定是采用单词还是采用字符，作为扩展选定内容的基本单元。 BackColor 设置窗体背景颜色。单击右边向下箭头，弹出“调色板”与“系统”二个选顶卡。 BackStyle 属性:返回或设置对象的背景方式。可取二个值: fmBackStyleTransparent (透明)与 fmBackStyleOpaque (不透明) BorderColor 属性:设置窗体对象的边框颜色。 BorderStyle 属性:设置窗体的边框风格。 DragBehavior 属性:指定系统是否允许在文本框中执行拖放功能。 fmDragBehaviorEnabled (允许) fmDragBehaviordisabled (不允许) Enabled 属性:设置控件是否可用，即是否响应用户的操作。 EnterFieldBehavior 属性:指定进入文本框时的选择行为。可取 True 与 False EnterKeyBehavior 属性:定义在文本框中按下 Enter 键的结果，如果为 True ，按 Enter 键将创建一个新行;如果为 False ，按 Enter 键，将焦点移到 Tab 键顺序的下一个对象(默认)。 Font 属性:用来设置文本框中文字的字体、字形、大小。 ForeColor 属性:设置前景颜色，图与 BackColor 相同。 Height 属性:用来表明对象的高度。 HideSelection 属性:指定当控件没有焦点时被选定的文本是否保持突出显示。 ImeMode 属性:获取或设置控件的输入法编辑器( IME )模式。 0-fmIMEModeNoControl 表示对输入法不加控制; 1-fmIMEModeOn 表示输入法处于打开状态; 2-fmIMEModeOff 表示输入法处于关闭状态; 7-fmIMEModeAlphaFull 表示输入处于全角状态; 8-fmIMEModeAlpha 表示输入处于半角状态; 11-fmIMEModeHanziFull 表示输入标点处于全角状态; 12-fmIMEModeHanzi 表示输入标点处于半角状态。 IntegralHeight 属性:指定文本框是显示列表中全部文本行还是显示部分行。 Left 属性:设置程序运行时窗体的水平位置。 Locked 属性:设置文本框内容在运行时是否可以被用户编辑。设置 True 时，不能编辑。 MaxLength 属性:规定用户可以在文本框或组合框中输入的最多字符数。若将 MaxLength 属性设置为 0 (默认值)，表明只要内存允许则没有限制。 MouseIcon 属性:为鼠标对象指定一个自定义的图标。要与 MousePointer 结合(取 99-fmMousePointerCustom )才有效。 MousePointer 属性:指定当用户把鼠标放到特定对象上时，所显示鼠标指针的类型。 0-fmMousePointerDefault (默认值)由对象决定的形状。 1-fmMousePointerArrow 箭头; 2-fmMousePointerCrosshair 十字(十字型光标指针); 3-fmMousePointerIBeam I 型标; 4-fmMousePointerIconPointer 图标(在方块中的小方块); 5-fmMousePointerSizePointer 大小(四向箭头指向上下左右); 6-fmMousePointerSizeNESW 右上 - 左下大小(双向箭头分别指向右上和左下); 7-fmMousePointerSizeNS 垂直大小(双向箭头分别指向上和下); 8-fmMousePointerSizeNWSE 左上 - 右下大小(双向箭头分别指向左上和右下); 9-fmMousePointerSizeWE 水平大小(双向箭头分别指向左和右); 10-fmMousePointerUpArrow 向上箭头键; 11-fmMousePointerHourglass 沙漏(等待); 12-fmMousePointerNoDrop 不允许放下; 13-fmMousePointerArrowHourglass 箭头和沙漏; 14-fmMousePointerArrowQuestion 箭头和问号; 15-fmMousePointerSizeAll 四向箭头; 99-fmMousePointerCustom 窗体内显示由 MouseIcon 属性指定的自定义图标。 MultiLine 属性:设置控件是否可以接受多行文本。 PasswordChar 属性:以特定的字符来代替控件中的文本字符，这个属性很适合设置密码对话框。 ScrollBars 属性:利用滚动条来显示多行文字内容，其中 1-fmScrollBarsHorzontal 为水平滚动条; 2-fmScrollBarsVertical 为垂直滚动条; 3-fmScrollBarsBoth 为水平滚动条与垂直滚动条均存在，但要同时满足下列条件:? AutoSize 设置为 False ;? Word Wrap (含义见后面)设置为 False ;?当文字不超出文本框时，滚动条设置无效;?正处于文字编辑状态或放映状态;? MultiLine 设置为 True 。 SelectionMargin 属性:规定用户能否通过单击文本左边区域来选中一行。 SpecialEffect 属性:指定对象的外观。 0-fmSpecialEffectFlat 正常，仅以框线或不同的色彩来区分。 Image 及 Label 的默认值都是如此，也可适用于其它控件。 1-fmSpecialEffectRaised 对象上缘及左缘反白，下缘及右缘有阴影; 2-fmSpecialEffectSunken 对象上缘及左缘有阴影，下缘及右缘反白，控件周围以框线与窗体区隔开; 3-fmSpecialEffectEtched 控件周围以框线与窗体区隔开; 6-fmSpecialEffectBump 对象下缘及右缘有突起，上缘及左缘则正常显示; TabKeyBehavior 属性:决定是否允许制表符出现在编辑区。 Text 属性:设置控件中的文本。 TextAlign 属性:定义控件中文本的对齐方式。 1-fmTextAlignLeft 左对齐; 2-fmTextAlignCenter 居中对齐; 3-fmTextAlignRight 右对齐。 Top 属性:设置程序运行时文本框窗体的垂直位置 Value 属性:定义某给定文本框控件的状态或内容。 Visible 设置程序运行时窗体是否可见。当 Visible 为 False 时，窗体是不可见的。将值改为为 True 。运行时窗体就是可见的了。 Width 设置文本框窗体的宽度。 WordWrap 属性:指出一个控件的内容在行末是否自动换行。 PowerPoint中控件的应用 PowerPoint演示特效—自行消失的字幕 用VBA实现课件中的智能交互 PPT课件制作 2008-10-11 16:15:01 阅读289 评论0 字号:大中小 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( 题目 可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动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. 找到如下两条语句 Private Sub OptionButton2_Click() End Sub 在这两条语句中间插入语句 If OptionButton2.Value=True Then ex=MsgBox("正确答案是 3，请继续努力。",Vbokonly) 说明:ex为自定义变量 (2)方法二 在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“label2.caption="Very Good!"请继续～"”，错误选项的改为“label2.caption="正确答案是3 ，请继续努力。"”即可。 4( 重新选择 命令按钮 在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入: OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False Label2.Caption =""如判断正误用的是方法一，此语句不要) 5( 下一题 命令按钮 在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入 If MsgBox("是否继续", vbYesNo + vbQuestion, “下一题”)=vbYes Then With SlideShowWindows(1).View .GotoSlide 2 End With(2为第2张幻灯片，此语句表示转到第2张幻灯片) End if 如果要根据条件的不同转到不同的幻灯片，可用下面语句: if 条件 then With SlideShowWindows(1).View .GotoSlide 2 End With End if 说明:条件可以是Caption属性或value属性，书写方法为:控件名称(在VBA中的名称).属性=(value属性为True或False，Caption属性为具体文本，注意文本要加双引号)，例如下面的语句: if optionbutton1.value=true then 表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。 判断题的制作 所有的设置与单选题类似，只不过是设计两个选项“?”和“×”，这两个符号可先在Word中插入，然后再复制过来。 图示: 一、用到的控件属性 先点击PowerPoint左上角“Office选项”按钮，在弹出的菜单中点击右下角“PowerPoint选项”按钮，在打开的对话框中选中“在功能区显示“开发工具”选项卡”复选项。完成后就可以在功能区添加“开发工具”选项卡了。 点击“开发工具”选项卡，“控件”功能组中相关按钮就是我们要用的主要控件了，如图1所示。 图1 以单选框为例，点击该单选框按钮，然后在幻灯片上单击，就可以产生一个单选项。选中它，点击右键，在弹出菜单中选择“属性”命令，或者点击“开发工具”选项卡“控件”功能组中“属性”按钮，可以打开“属性”对话框。在其中的“Caption”输入框中输入我们所需要的内容，就可以做出适合我们的单选项了。 单击“BackStyle”项目，然后在右侧的下拉列表中选择 “0-fmBackStyleTransparent”，可以使做出的单选项背景透明。点击“Font”输入框，然后单击出现的按钮，可以设置字体、字号等格式。点击“Forecolor”输入框，则可以设置颜色。 如图2所示。 图2 其它几个控件“属性”设置基本与此类似，不再罗嗦。 二、单项选择题 题目的题干部份可以用插入文本框的方法输入。然后用单选框做好四个选项。可以在做好一个以后，复制得到其它三个。只需要修改属性中的“Caption”即可。完成后，按住“Shift”键依次选中它们，然后点击功能区“开始”选项卡“绘图”功能组中“排列”按钮下的小三角形，在弹出的菜单中选择相应命令将它们对齐并分布均匀，如图3所示。 图3 现在我们选中代表正确答案的那个单选项“B:矛盾 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 的方法”，点击右键，在弹出菜单中选择“查看代码”命令，在打开的窗口中找到“Private Sub OptionButton2_Click()”和“End Sub”两段代码。在这两段代码中间插入代码: MsgBox ("恭喜您，答对了!") OptionButton1.Value = False And OptionButton3.Value = False And OptionButton4.Value = False 关闭窗口，然后运行一下幻灯片，点击选项B试试，结果不错吧?如图4所示。 图4 代码的第一句是设置提示框及提示信息的。而第二句代码则是在单击B选项后使其它各选项恢复到未选中状态。“OptionButton*”(*为1、2、3、4)分别表示我们制作出的四个单选项。它是以单选项制作顺序排列的。在“属性”对话框的“名称”处可以查到它。 我们可以照着葫芦画瓢，给其它的三个选项也设置上类似的提示框。要注意提示信息及第二句代码中相应数字的调整。 三、是非判断题 是非判断题可以看成只有两个选项的单项选择题。所以，其做法与单项选择题是一样的。只是在最后添加的代码稍加修改即可。 四、多项选择题 多选题需要用到复选框。假定有四个选项，其中只有A、B、D三项全选才为正确，多选或少选均为错误。 用前面的方法插入四个复选框，调整好位置。再插入一个命令按钮，打开“属性”对话框，将“Caption”值设为“答案”。选中“答案”按钮，在右键菜单中选择“查看代码”命令，打开代码编辑窗口。在窗口中找到如下两句代码: Private Sub CommandButton1_Click() End Sub 在这两句代码中间插入以下代码: If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True And CheckBox3.Value = False Then MsgBox "厉害，答对了!", vbOKOnly, "多项选择题" Else MsgBox "不好意思，您做错了。再仔细想想?", vbOKOnly, "多项选择题" CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False End If 如图5所示。放映幻灯片试试，如果出错，呵呵，那就如图6所示效果，弹出一提示框进行提示。 仔细读一下代码不难发现，其实是做了一个判断:如果第1、2、4个复选框均为选中状态的话，就弹出一个表示答对的提示框，否则就弹出一个答错的提示框，并将所有复选框的选中状态消除，以便再次选择。 在PowerPoint中用触发器制作交互单项选择题和控件VBA制作填空题 本文可以学到: 1如何用PPT制作交单项互选择题 2用VBA辅助制作填空题 教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢,看看我是如何利用 PowerPoint2003 的动画触发器和VBA功能来实现的吧。我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。 一、触发器做单项选择题 以一道选择题为例，启动PowerPoint2003，新建一空白幻灯片，利用文本框，输入题干内容。点击“幻灯片放映?动作按钮”，选中“动作按钮:自定义”选项，然后在PPT中画出一个按钮。 1.制作模板:右击插入的按钮，在弹出的快捷菜单中选择“添加文本”选项，在“动作按钮”上添加第一个备选答案(如“A、170克/摩尔”)，并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。 2.复制试题:选中这个“动作按钮”，按着Ctrl拖拉鼠标，快速复制一个按钮(共操作3次，复制3个)，并修改字符为其他备选项答案。 3.添加答案:插入文本框，并输入“正确、错误”及相关提示的字符(如“错误～”)，并设置好字体、字号、字符颜色等。 4.设置交互:选中这个文本框，执行“幻灯片放映?自定义动画”命令，展开“自定义动画”任务窗格，单击“添加动画”右侧的下拉按钮，在下拉列表中选择“进入?飞入”选项;再按“方向”右侧的下拉按钮，在列表中选择“自左铡”选项，打开“飞入”对话框(方法:如图，在所设置的动画对象上双击或单击旁边的下拉按钮并 选中“效果选项”)，切换到“及时”标签卡，单击“触发器” 按钮，选中“单击下列对象时启动效果”选项，并在下拉 列表中选择“动作按钮:自定义2……”选项(即第一个 备选答案对应的“动作按钮”项)，“确定”返回。 5.制作完成:按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。 二、VBA法来填空 上述用触发器只能制作选择，有的练习题需要填空形式，就用VBA来实现吧。 1.制作试题:用文本框输入填空题的题目内容，点击“视图?工具栏?控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮，在填空题的空格处拖拉出一个控件文本框。 2.设置命令:单击“命令按钮”按钮并画一个按钮来。选中此按钮，单击“属性”，展开“命令按钮”属性对话框，将其中的“Caption”修改为“查看正确答案”(具体修改内容，请根据需要确定)，并关闭属性窗口。 3.插入代码:双击插入的命令按钮打开VBA编辑窗口，在“PrivateSub CommandButton1_Click()”和“EndSub”语句之间输入如下代码: IfTextBox1.Text="物理"Then dd=MsgBox("你填对了", vbOKCancel,"结果") Else dd=MsgBox("你填错了", vbOKCancel,"结果") EndIf 4.效果预览:制作完成了，赶快按下F5功能键来看一下效果吧。 小提示: VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框”属性对话框，选中“font”选项，然后点击后面的“…”号，即可打开“字体”对话框设置字体等。 MsgBox是弹出对话框的命令，而代码中的“dd”和相应的其他文字为自定义变量，可以用其他字母代码和文字代替。