1、打开Excel表格，点击【开发工具】，【Visual Basic】进入到VBA程序编辑对话框里面。
2、点击【插入】，【模块】，然后在程序窗口里面输入以下程序：
Sub 随机数加对话框()
Dim i, j, k, m As Double
Dim str As String
i = Round(Rnd() * 10 + 1, 1) '随机数为1-11，四舍五入取1位小数
j = Round(Rnd() * 10 + 1, 1) '随机数为1-11，四舍五入取1位小数
k = i + j
str = i & "+" & j & "=" '显示为i的值+j的值=
m = Application.InputBox(prompt:=str, Title:="请输入计算结果", Default:="", Type:=1)
If m = k Then
MsgBox "计算结果正确"
Else
MsgBox "计算结果不正确"
End If
End Sub
3、按下【F5】键运行宏，之后就可以看到弹出的窗口，输入正确的计算值则会提示“输入结果正确”，如果错误就会提示“输入结果不正确”。
4、对于要执行“输入结果正确”之后的程序，可以将需要用到的程序添加进来，或进行替换。
