PPT课件制作要点
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
现在有一个命令按钮，我们希望鼠标单击命令按钮时，屏幕上会弹出一个提示 框，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进 入代码编辑区，在给出的默认代码中填写下列兰色代码即可：
Private Sub CommandButton1_Click() MsgBox ("测试成功！") End Sub
Private Sub CommandButton1_Click() If TextBox1.Value = "苏州" Then MsgBox ("答对了") Else MsgBox ("答错了，重新填写！") TextBox1.Value=“” End If End Sub
命令按钮和文本框的小结
命令按钮Click事件的表示方法：CommandButton1_Click
命令按钮和复选框 CommandButton1
CheckBox1
CheckBox2 CheckBox3
现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序 能进行以下判断：如果CheckBox1和CheckBox3的Value都为True而且 CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答 错了,重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列 兰色代码即可：
Private Sub CommandButton1_Click()
If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then
MsgBox ("答对了") Else MsgBox ("答错了，重新选择！") CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False End If End Sub
命令按钮和Biblioteka Baidu项按钮
CommandButton1 OptionButton1 OptionButton2
现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程 序能进行以下判断：如果OptionButton1的Value为True则显示“答对了”的 消息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在 给出的默认代码中填写下列兰色代码即可：
命令按钮和选项按钮的小结
进入控件属性的方法：鼠标右键单击某控件，选择【属性】
进入控件事件代码的方法：鼠标右键单击某控件，选择【查看代码】 消息框的程序代码：MsgBox(“”)
选项按钮的Value值的表示方法： OptionButton1.Value=False 程序中用于判断的语句： If……Then …… Else …… Endif
命令按钮和复选框的小结
复选框的Value值表示方法：CheckBox1.Value=True
程序中判断多个复选框的Value同时为真的方法： If CheckBox1.Value=True and CheckBox2.Value=True then ……. Else ……. Endif
在弹出出错消息框后，程序自动恢复多个复选框的Value值为False： If …… then …… Else ……. CheckBox1.Value=False CheckBox2.Value=False …… Endif
PPT课件制作要点（二）
南昌师范学院教育培训学院 万伟韬
使用控件设置单选、多选、填空题
单选题: 德国的首都是哪座城市？
A纽约
B柏林
C北京
提交答案
D首尔
多选题: 以下在亚洲的城市有哪些？
A伦敦
B北京
C东京
提交答案
D巴黎
填空题: 请写出朝鲜的首都：
提交答案
命令按钮和消息框
CommandButton1
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then MsgBox ("答对了“) Else MsgBox ("答错了，重新选择！“) OptionButton1.Value = Flase OptionButton2.Value = Flase End If End Sub
文本框的Value值的表示方法：TextBox1.Value=“……”
程序中判断文本框的Value满足某个特定值的方法： If TextBox1.Value = “……” then ……. Else ……. Endif
在弹出出错消息框后，程序自动恢复文本框的Value值为空： If …… then …… Else ……. TextBox1.Value=“” …… Endif
命令按钮和文本框
CommandButton1
现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后 当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内容是“苏州 ”，则显示“答对了”的消息框，否则，显示“答错了,重新填写!”的消息框 。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：
Private Sub CommandButton1_Click() MsgBox ("测试成功！") End Sub
Private Sub CommandButton1_Click() If TextBox1.Value = "苏州" Then MsgBox ("答对了") Else MsgBox ("答错了，重新填写！") TextBox1.Value=“” End If End Sub
命令按钮和文本框的小结
命令按钮Click事件的表示方法：CommandButton1_Click
命令按钮和复选框 CommandButton1
CheckBox1
CheckBox2 CheckBox3
现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序 能进行以下判断：如果CheckBox1和CheckBox3的Value都为True而且 CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答 错了,重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列 兰色代码即可：
Private Sub CommandButton1_Click()
If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then
MsgBox ("答对了") Else MsgBox ("答错了，重新选择！") CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False End If End Sub
命令按钮和Biblioteka Baidu项按钮
CommandButton1 OptionButton1 OptionButton2
现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程 序能进行以下判断：如果OptionButton1的Value为True则显示“答对了”的 消息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在 给出的默认代码中填写下列兰色代码即可：
命令按钮和选项按钮的小结
进入控件属性的方法：鼠标右键单击某控件，选择【属性】
进入控件事件代码的方法：鼠标右键单击某控件，选择【查看代码】 消息框的程序代码：MsgBox(“”)
选项按钮的Value值的表示方法： OptionButton1.Value=False 程序中用于判断的语句： If……Then …… Else …… Endif
命令按钮和复选框的小结
复选框的Value值表示方法：CheckBox1.Value=True
程序中判断多个复选框的Value同时为真的方法： If CheckBox1.Value=True and CheckBox2.Value=True then ……. Else ……. Endif
在弹出出错消息框后，程序自动恢复多个复选框的Value值为False： If …… then …… Else ……. CheckBox1.Value=False CheckBox2.Value=False …… Endif
PPT课件制作要点（二）
南昌师范学院教育培训学院 万伟韬
使用控件设置单选、多选、填空题
单选题: 德国的首都是哪座城市？
A纽约
B柏林
C北京
提交答案
D首尔
多选题: 以下在亚洲的城市有哪些？
A伦敦
B北京
C东京
提交答案
D巴黎
填空题: 请写出朝鲜的首都：
提交答案
命令按钮和消息框
CommandButton1
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then MsgBox ("答对了“) Else MsgBox ("答错了，重新选择！“) OptionButton1.Value = Flase OptionButton2.Value = Flase End If End Sub
文本框的Value值的表示方法：TextBox1.Value=“……”
程序中判断文本框的Value满足某个特定值的方法： If TextBox1.Value = “……” then ……. Else ……. Endif
在弹出出错消息框后，程序自动恢复文本框的Value值为空： If …… then …… Else ……. TextBox1.Value=“” …… Endif
命令按钮和文本框
CommandButton1
现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后 当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内容是“苏州 ”，则显示“答对了”的消息框，否则，显示“答错了,重新填写!”的消息框 。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：