Dim jinZhao as Boolean
jinZhao = False
If c3 >= 2 And c4 = 0 Then jinZhao = ture
If c3 >= 2 And c4 = 0 Then Text1.Text = "c3 =" & c3 & "c4 =" & c4 & "jinzhao = " & jinZhao
Stop

运行结果“c3 = 2 c4 = 0 jinZhao=False”!!

这种怪现象可能由哪些原因引起的呢？

你里面用的C3和C4没有定义啊。

Dim jinZhao as Boolean
jinZhao = False
If c3 >= 2 And c4 = 0 Then jinZhao = ture
If c3 >= 2 And c4 = 0 Then Text1.Text = "c3 =" & c3 & "c4 =" & c4 & "jinzhao = " & jinZhao
Stop

运行结果“c3 = 2 c4 = 0 jinZhao=False”!!

jinZhao = True
样子问题 单词拼写错误