Question

VB6.0 msgbox函数中，如何与IF函数联系，并且不弹出确认框，只弹出显示结果的信息框？请高手指教，谢谢！

打个比方
Private Sub Command1_Click()
Dim msg,style,response,mystring
msg="请确认此数据是否正确"
style=vbYesNo+vbCritical+vbDefaultButton2
response=MsgBox(msg,style,"例题提示信息"）
If response=vbYes Then
mystring="结果正确"
Else
mystring="结果错误"
End If
x=Msgbox(mstring)
End Sub

这一段代码中，中间会出现一个提示信息框，会有选项 是 或者 否，之后才会出现 结果正确或者结果错误的消息框

那么请问 如果在之前 使用了 InputBox对话框，如何使MsgBox消息框不显示中间会出现的，直接在InputBox对话框计算结果后，如果正确 直接跳出 回答正确，如果错误，直接弹出回答错误的消息框？ 求解。非常感激。本人新手，刚学。

Answer 1

不懂你说的，MSGBOX没有一定要你选择什么啊？它本来就是一个信息提示的弹出框而已。比如最简单的一句：Msgbox "这是一个弹出框！"
这就行了。
如果你想要不弹出信息直接显示结果，你可以不用msgbox啊，用其它控件什么的，比如lable,textbox什么的。msgbox是一定会弹出对话颂拦框的。
你可以用inputbox要求用户输入信野判胡息，然后在程序里判断，然后再告诉他是否正确。
其实，最好的不管是冲举inputbox,还是msgbox，都是一个对话框，你为何不直接在窗体上用控件呢？
用textbox可以输入，用lable可以显示信息啊。

Answer 2

Private Sub Command1_Click()
'这里都删铅卖除了
If 某变唯携量=设定的槐山逗正确结果 Then
mystring="结果正确"
Else
mystring="结果错误"
End If
x=Msgbox(mstring)
End Sub