在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox("输入一个正
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 06:00:54
![在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox(](/uploads/image/z/6842467-19-7.jpg?t=%E5%9C%A8vb%E4%B8%AD+%2C%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E7%BC%96%E7%A8%8B%E5%88%A4%E6%96%AD%E8%AF%A5%E6%95%B0%E6%98%AF%E5%A5%87%E6%95%B0%E8%BF%98%E6%98%AF%E5%81%B6%E6%95%B0.+Private+Sub+Form_Click%28%29+Dim+X+As+Integer%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E7%BC%96%E7%A8%8B%E5%88%A4%E6%96%AD%E8%AF%A5%E6%95%B0%E6%98%AF%E5%A5%87%E6%95%B0%E8%BF%98%E6%98%AF%E5%81%B6%E6%95%B0.Private+Sub+Form_Click%28%29++Dim+X+As+Integer++X+%3D+InputBox%28%22%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3)
在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox("输入一个正
在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer
输入一个正整数,编程判断该数是奇数还是偶数.
Private Sub Form_Click()
Dim X As Integer
X = InputBox("输入一个正整数", "输入")
If X < 0 Or (X Int(X)) Then
MsgBox "请输入正整数"
ElseIf X Mod 2 0 Then
Print "奇数"
Else
Print "偶数"
End If
End Sub
为什么这个VB程序在输入小数,比如是3.5时,不会弹出Msgbox,而是说这个数是偶数呢?
在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox("输入一个正
Dim X As Integer
这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成Dim X As Single