level 2
这种情况只有一种可能，就是目前b=0，然后这条语句还没执行
2022年04月25日 07点04分
level 15
2
Private Sub Txt2_GotFocus() b = a Mod 2 If b = 0 Then Txt2.Text = "偶数" ElseIf b = 1 Then Txt2.Text = "奇数" End If End Sub
2022年04月25日 07点04分
大哥 麻烦给看看，我有点懵
2022年04月25日 07点04分
@beishang747 原来你没给a赋值啊，那不存在“不论a是什么数”这种说法，a一定是0
2022年04月25日 08点04分
level 2
beishang747
楼主
Private Sub Txt2_GotFocus()
b = a Mod 2
If b = 0 Then
Txt2.Text = "偶数"
ElseIf b = 1 Then
Txt2.Text = "奇数"
End If
End Sub
2022年04月25日 07点04分
3
b = a Mod 2
If b = 0 Then
Txt2.Text = "偶数"
ElseIf b = 1 Then
Txt2.Text = "奇数"
End If
End Sub
哈哈哈哈，因为你的a等于0！
2022年04月25日 07点04分
在b=……之前，加一个a=1看看是啥结果？
2022年04月25日 07点04分
a = Txt1.Text 感谢大哥，茅塞顿开啊，前面a没给赋值啊。
2022年04月25日 08点04分