判断奇数偶数的VB源码!

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/08 09:42:44

判断奇数偶数的VB源码!

Private Sub Command1_Click()
Dim li_i As Integer
li_i = Val(Text1.Text)
If li_i