"Str2$"变量未定义（学生信息管理系统问题之一）



        在调试代码的时候，遇到这样的问题“变量未定义”。检查发现，str2$没有定义就使用了。源码没有问题是因为没有强制声明。那么就声明一下吧。

     我首先想到的解决办法（结果证明不对）：

   dim str2$ as Boolean

   str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

 

定义都无法实现，出现如下错误：

查一下帮助，觉得最后一条比较符合，是缺少变量。

         找出来了是定义的问题，在网上找到了相关的解决办法，但是有一部分行不通。现整理如下（还有一些待解决的问题）：

原理：

        msgbox 返回的是int类型，付值给Booleanl类型当然会出错。$用来将变量定义成字符串,如:Dim Str2$。$是String数据类型变量的后缀,它与Boolean相互冲突。数据类型错误,MsgBox返回的是Integer值,如果Str2被定义成布尔值,是不能正确得到返回值的,如果被定义为字符串,会被自动进行类型转换,是个数字的字符串。

解决办法：

1.解决如何定义，如下几种格式均可。

Dim str2 As VbMsgBoxResult

Dim str2$  或者Dim Str2 As String

Dim Str2%  或者 Dim Str2 As Integer

     以上的定义均是以str2作为变量，均可行，这个我还可以理解。

     下面这种方法也可行，我就不知道如何解释了。各位如有高见，请不吝赐教。

Dim str2$

Str2$=MsgBox(……)

2.避免定义一个新变量，直接对MsgBox结果进行判断。

If MsgBox("是否删除当前记录?", vbOKCancel, "删除记录")=vbOk THEN

      另外，还有个高手给了个答案，说“msgbox返回的是数值啊,自己写个小程序调试一下就知道了”，如何写小程序调试？？请大家指导。