UC知道这个vb代码有什么问题吗？
来源：百度知道 编辑：UC知道 时间：2024/06/04 12:23:14
为什么自己用的很好，别人用，显示的结果多一样？
Dim a As String
a = Text1.Text
If a = "a" Then
MsgBox "abc "
ElseIf a <> "a" Then
MsgBox "aaa！"
End If
在自己的电脑上很好，发到别人的电脑上就只能显示“aaa”结果，怎么搞的？好费解呃
Dim a As String
a = Text1.Text
If a = "a" Then
MsgBox "abc "
ElseIf a <> "a" Then
MsgBox "aaa！"
End If
在自己的电脑上很好，发到别人的电脑上就只能显示“aaa”结果，怎么搞的？好费解呃
具体要看测试机上输入的内容了，会不会是测试机上全角半角的问题就不得而知了。
给LZ一个建议（虽然和解决问题关系不大，但对于写代码还是有好处的）
比较2个字符串的时候，不要用=或者<>，这些最好用于数值比较。
String类自带一个比较字符串的函数——Equals()
作用：
比较的两个字符串相等时返回True，否则返回False
用法：
Dim strTemp As String = "aaa"
Dim bolFlg As Boolean = True
bolFlg = String.Equals(strTemp, "aaa")'此时结果为True
bolFlg = String.Equals(strTemp, "bbb")'此时结果为False
似乎没有问题啊……
先定义变量，再赋值，再输出……很正常……
你的程序没有问题，不过程序可以简化成如下形式，这样更简洁一些。
Dim a As String
a = Text1.Text
If a = "a" Then
MsgBox "abc "
Else
MsgBox "aaa！"
End If