龙源期刊网 http://www.qikan.com.cn
ＰｏｗｅｒＰｏｉｎｔ中控件的添加、属性设置、ＶＢＡ程序的编制与运行等
作者：裴纯礼等
来源：《中小学信息技术教育》2007年第06期
小常识
PowerPoint中控件的添加、属性设置、VBA程序的编制与运行
右击“工具栏”空白区，在弹出的菜单中选择“控件工具箱”添加相应工具栏。单击其中的、等按钮后，再单击幻灯片中需要放置相应文本框或按钮的位置即可添加相应控件。
右击任一控件，选择“属性”命令即弹出相应控件的“属性”对话框，然后可以进行属性的下列基本参数设置（请参考案例）：建议对文本框设置BackColor（背景色）、ForeColor（前景色），对按钮设置Caption（标题），两者均设置Height（高度）、Width（宽度）、Font（字体，含字形、字号和颜色）等属性参数，在此基础上再熟悉其他属性参数。
执行“工具→宏→Visual Basic编辑器”命令，在打开窗口的左框架中选择相应幻灯片，在右框架中输入或编辑VBA程序（程序语句用“_”将1行语句分成两行，“:”将两条语句合放于1行）。
为了能在PowerPoint（包括Word和Excel）中运行VBA程序，在打开软件包后执行“工具→选项”命令，在“安全性”选项卡中单击“安全性”按钮，再在弹出的对话框中选择“中”单选钮后关闭软件包窗口，重新打开软件包窗口再调用含有控件的文档。 经验交流
“小学整数四则运算自测练习”设计中的典型问题与解决方案
指定范围随机整数的生成：VBA语言中提供了Randmize函数和Rnd随机函数，前者以系统时间作参照为后者产生0～1之间随机数的种子数；而在“最大值”与“最小值”之间产生随机整数的典型公式是：Int((最大数-最小数+1)*Rnd)＋最小数）；显然产生“2～最大数”之间随机
龙源期刊网 http://www.qikan.com.cn
整数的公式是：Int((最大数-最小数+1)*Rnd＋最小数）。鉴于公式中的“最大数”取自文本框txtMaxNum.Value中的字符串型数字，需要使用CSng()函数将其数据类型转换为数值型，相应的典型公式为Int((CSng(txtMaxNum.Value)-1) * Rnd + 2)。
文本框中输入内容的容错：本课件中的“最大数”、“题目”或“答案”文本框内容为“空”或“字符串（不包括全角数字）”时，为避免单击“出题”、“答案”或“批改”按钮时发生程序不能继续运行的错误，可采用If…Then…Else语句，并用IsNumeric()函数处理相应文本框的内容（当其为“空”或“字符串”时，结果为False；而当其为数字（包括全角数字）时，结果为True），从而实现对文本框输入内容的容错，典型语句如下。 If IsNumeric(txtMaxNum.Value) = False Then
MsgBox (\"请向“最大数”文本框中输入可能的“最大数”。\") Else
… 'txtMaxNum文本框内容是数字时运行的语句 End If
PPT中控件的循环操作技巧：对控件进行循环操作（例如批量文本框的内容清除）是常见而有用的操作，其优点是语句少、效率高，在PowerPoint软件包中可用下列技巧实现。 For i = 1 To 4
ActivePresentation.Slides(\"Slide1\").Shapes.Item(\"txtAnswer\" & i).OLEFormat.Object.Text = \"\" '一种实现控件循环调用的语句，其中\"Slide1\"是幻灯片的实际编号，也可用名称代替 Next i
注意：PowerPoint不支持“txtAnswer & i.Text= \"\"”，而用上述语句（Word和Excel中均不同）；为使程序模块化和方便移植，可设置setTxtBoxVal方法和getTxtBoxVal函数。 （陈琛裴纯礼）