多语言展示
当前在线:823今日阅读:19今日分享:20

PPT怎么制作判定对错的课件

PPT怎么制作判定对错的课件?如本例中的英语课程,测试学生对单词的掌握情况,需要学生在课件中输入单词,然后由按钮告诉他(她)是否正确。这样一个课件怎样制作呢。这就需要VB来帮忙了。
工具/原料

电脑

方法/步骤
1

放入图片:插入——图片,将备好的图片插入,拖动摆放好。放入可输入文本框:开发工具——文本框,鼠标拖动,拉出一个文本框。

2

设置文本框属性:文本框选中状态,右键——属性。在属性面板中点击字体(Font)右侧的字体设置栏,在出现的字体面板中设置好字体、字形和字号。

3

当然,也可以对其他选项进行设置。图中是对背景色、背景样式、文字颜色的设置。最下面框起来的是滚动条。本例中只是输入单词,所以,不需设置了。复制三个,将四个同时选中,开始——排列——对齐——顶端对齐、横向分布,使四个文本框顶部对齐,横向均匀分布。

4

添加判定对错按钮:开发工具——命令按钮,在文本框下拉出一个命令按钮。更改按钮文字:右键——命令按钮对象——编辑,按钮成为可编辑状态,鼠标点进去,删除原名称,输入想要写入的名称。此步也可在属性的标题(Caption)中完成。

5

同样也可在属性里对字体、背景色等进行设置。双击该命令按钮,在出现的代码面板中如图在Private Sub CommandButton1_Click()与End Sub之间输入:If TextBox1.Text = 'warm' Then dd = MsgBox('你真棒!', vbOKCancel, '')Elsedd = MsgBox('再想想', vbOKCancel, '')End If第一个文本框为TextBox1,这段代码表示:如果文本框1内文字为“warm”则显示“你真棒!”否则,显示“再想想”。

6

注意,代码一定要一句换一行,如上图。否则,会被判错,语句为红色显示,并出现编辑错误的对话框。如图。复制三个命令按钮分别放在另外三个单词下方,在代码面板中相应出现这三个按钮的空白代码,将按钮1的代码复制、粘贴后将TextBox1与“warm”更改即可。完成制作。

7

F5看一看最终效果吧。

推荐信息