一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = "这个数是偶数"ElseIf Int(n / 1) = n / 1 Thenb = "这个数是
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 23:13:11
![一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb =](/uploads/image/z/5161649-41-9.jpg?t=%E4%B8%80%E9%81%93%E5%85%B3%E4%BA%8EVB%E7%9A%84%E9%A2%98%E7%9B%AE%E5%A6%82%E4%BD%95%E7%94%A8VB%E5%88%A4%E5%A5%87%E5%81%B6%E6%88%91%E8%BF%99%E4%B8%AA%E4%BB%A3%E7%A0%81%E4%B8%BA%E4%BB%80%E4%B9%88%E4%B8%8D%E8%A1%8C%E4%B8%BA%E4%BB%80%E4%B9%88%E4%BB%80%E4%B9%88%E6%95%B0%E9%83%BD%E6%98%AF%E5%81%B6%E6%95%B0%3FPrivate+Sub+Command1_Click%28%29a+%3D+Val%28Text1.Text%29If+Int%28n+%2F+2%29+%3D+n+%2F+2+Thenb+%3D+%22%E8%BF%99%E4%B8%AA%E6%95%B0%E6%98%AF%E5%81%B6%E6%95%B0%22ElseIf+Int%28n+%2F+1%29+%3D+n+%2F+1+Thenb+%3D+%22%E8%BF%99%E4%B8%AA%E6%95%B0%E6%98%AF)
一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = "这个数是偶数"ElseIf Int(n / 1) = n / 1 Thenb = "这个数是
一道关于VB的题目
如何用VB判奇偶
我这个代码为什么不行
为什么什么数都是偶数?
Private Sub Command1_Click()
a = Val(Text1.Text)
If Int(n / 2) = n / 2 Then
b = "这个数是偶数"
Else
If Int(n / 1) = n / 1 Then
b = "这个数是奇数"
Else
b = "这个数不是整数"
End If
End If
Label2.Caption = b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""
End Sub
一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = "这个数是偶数"ElseIf Int(n / 1) = n / 1 Thenb = "这个数是
a = Val(Text1.Text) '你这里读的是a
If Int(n / 2) = n / 2 Then '到这里变成n了
改为
n = Val(Text1.Text)
就可以了