Private Sub Form_Load()
Label1.Caption = "请在下面输入命令参数代码等"
End Sub
Private Sub Text1_Change()
If UCase(Text1.Text) = "#IF" Then
Label1.Caption = "如果"
Else
Label1.Caption = "还未找到该句的意思！"
End If
If UCase(Text1.Text) = "#SAY" Then
Label1.Caption = "输出字符串"
Else
Label1.Caption = "还未找到该句的意思！"
End If
End Sub
为什么在Txet1上输入#SAY在Label1能显示“输出字符串”这几个字，但是在Txet1上输入#IF却什么也不显示，这是为什么！
我想做个解释器！
你程序里面有两个if判断
当你输入 "#IF"的时候，先进行第一个判断，然后在进行第二个判断！第一个判断当然为真，按理说label1应该显示"输出字符串"的！但是你为什么没看到呢？ 很简单！电脑运行这一点代码太快了！第一个判断运行完，其实已经显示出来"输出字符串"了！但是显示的时间太短，程序又接着运行第二个判断，不符合要求！所以你看到的就是"还未找到该句的意思！" 你的程序写的还是有点不好，我给你改了一下！把这两个判断嵌套起来就可以了！代码如下：
Private Sub Form_Load()
Label1.Caption = "请在下面输入命令参数代码等"
End Sub
Private Sub Text1_Change()
If UCase(Text1.Text) = "#IF" Then
Label1.Caption = "如果"
ElseIf UCase(Text1.Text) = "#SAY" Then
Label1.Caption = "输出字符串"
Else
Label1.Caption = "还未找到该句的意思！"
End If
End Sub