判断奇数偶数的VB源码!
问题描述:
判断奇数偶数的VB源码!
答
Private Sub Command1_Click()
Dim li_i As Integer
li_i = Val(Text1.Text)
If li_i