在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/10 09:03:28

在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,而是说这个数是偶数呢?

Dim X As Integer
这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成Dim X As Single

在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X 求解c语言中输入一个正整数,判断该数是奇数还是偶数. 编写程序：输入提一个正整数,判断该数是奇数还是偶数,并输出结果问一道VB填空题：Private Sub Form_Click（） Dim x As Integ VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y 输入1个整数,判断该数是奇数还是偶数.（用C语言编程）用C语言编程：输入一个整数,判断这个数是奇数还是偶数. VB中 Option ExplicitPrivate Sub Form_Click()Dim 5Fg Integer （用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k VB里面Private Sub form_click()什么意思在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As Doub