发布网友 发布时间:2022-04-23 02:36
共1个回答
热心网友 时间:2023-07-15 06:27
1、在PPT中录入填空题,然后选择“控件工具箱”的“文本框”,在相应的位置添加一个“文本框”。
2、添加一个“命令按钮”,并将属性菜单中的Caption改为“查看结果”。
3、双击“命令按钮”,弹出代码框。
4、在Private Sub CommandButton1_Click()与End Sub之间添加以下代码:
Dim no3 If TextBox1.Value = "运算器" Then no3 = "正确" Else no3 = "错误,答案为运算器" MsgBox no3, vbOKOnly TextBox1为“文本框”的名称,“运算器”为正确答案,可根据具体内容进行修改。
5、演示PPT,在文本框中输入内容后,点击“命令按钮”。