MsgBox "不错，你填对了!", vbOKOnly, "填空题"
Else
MsgBox "不对吧?再想想!", vbOKOnly, "填空题"
TextBox1.Text = ""
End If
其中“电脑”是正确的答案。如果在文本框中填入了“电脑”，那么就会弹出正确的提示，反之会弹出错误提示并清除已填写内容。这就是这段代码的含义。
放映一下试试，是不是可以填入答案并做出相应的反馈啊?效果如图7所示。
好了，先这么多吧。好好利用控件和VBA代码，可以完成一些看起来不那么容易完成的事情呢!
收藏
推荐
评论(0条)
