vb判断奇偶数的程序
答：首先看是不是正整数，然后再判断能不能被2整除就行了。if n=int(n) and n>=0 and n mod 2=0 then 偶数 else 奇数 endif
答：b) Mod 2 = 0 Then c = c + 1 Label1.Caption = "你输入了" & c & "偶数"ElseIf a(b) Mod 2 <> 0 Then d = d + 1 Label2.Caption = "你输入了" & d & "奇数"End If Next b End Sub Private Sub Form_Load()Label1.Caption = ""Label2.Caption = ""End Sub ...
答：dim x as integer x=Val(inputbox("输入一个整数："))if x mod 2 =0 then msgbox "偶数！"else msgbox "奇数！"end of If x >0 Then msgbox "正数！"If x <0 Then msgbox "负数！"
答：Private Sub Command1_Click() Dim n As Long n = Val(Text1.Text) If n Mod 2 = 0 Then Label2.Caption = "是偶数" Else Label2.Caption = "是奇数" End If End Sub 希望采纳
答：Private Sub Command1_Click()Dim x As IntegerRandomizex = Int(Rnd * 100) + 1If x Mod 2 = 0 Then MsgBox x & "是偶数"Else MsgBox x & "是奇数"End IfEnd Sub
答：从键盘输入一个数,判断其是奇数还是偶数,应该使用VB的选择程序结构。可以使用if...else...语句，也可以使用 块if语句，还可以使用iif()函数。
答：你的方法是对的，判断除以2的余数，结果为0就是偶数，否则是奇数。注意一，取余数的运算是MOD，例如 5 MOD 3的结果就是2 注意二，文本框输入的内容是字符串，需要转换为数字类型才可以运算
答：if x mod 2 =0 then msgbox "是偶数"if x mod 2 <>0 then msgbox "是奇数"
答：Command2.Caption="判断"Text1.Locked=False a=False EndSub PrivateSubCommand1_Click()Text1.Text=Int(Rnd()*100)EndSub PrivateSubCommand2_Click()IfNotaThen MsgBox"请产生一个随机数！",vbExclamation ExitSub Else MsgBoxIIf(Val(Text1.Text)Mod2=0,"是偶数","是奇数"),vbInformation a=...
答：2 =1 then strTmp=intM intM=intM - 1 end if for intTmp=intN TO intM Step 2 strJI=strJI & " " & intTmp strOU=strOU & " " & intTmp+1 next strJI=strJI & " " & strTmp msgbox "奇数为: " & trim(strJI) & VbCr & _"偶数为: " & trim(strOU)end sub ...
网友评论：
郗贾13339777238：
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中 -
46216仰肥
：[答案] Public Function 偶数(ByVal N&) As Boolean 偶数 = (N Mod 2 = 0) End Function 调用函数过程: MsgBox 偶数(val(text1.text))
郗贾13339777238：
二、 编写一个vb函数过程,用以判断一个数是奇数还是偶数. -
46216仰肥
：[答案] Private Function jo(ByVal n As Integer)n = InputBox(＂请输入一个数字＂)If n Mod 2 0 ThenMsgBox n & ＂是奇数＂ElseMsgBox n & ＂是偶数＂End IfEnd FunctionPrivate Sub Form_click()Call jo(n)End Sub
郗贾13339777238：
二、 编写一个VB函数过程,用以判断一个数是奇数还是偶数 -
46216仰肥
：[答案] Dim n As Integer Private Sub Form_Click() If n / 2 = 0 Then Print ＂n是偶数＂ Else Print ＂n是奇数＂ End If End Sub Private Sub Form_Load() n = InputBox(＂请输入整数:＂) End Sub
郗贾13339777238：
vb例题:任意输入一个整数,编写程序判断该整数的奇偶数 -
46216仰肥
：[答案] if x mod 2 =0 then msgbox ＂是偶数＂ else msgbox ＂是奇数＂
郗贾13339777238：
vb中编写简单程序编写简单程序,随机输入几个数,判断其是偶数还是奇数,然后最后是计算出你所输入的数奇偶数分别的个数 -
46216仰肥
：[答案] tmp = InputBox(＂随便输入几个数,用逗号隔开就可以了.＂) s = Split(tmp, ＂,＂) u = UBound(s) For i = 0 To u If Val(s(i)) Mod 2 = 1 Then qs = qs + 1 Else os = os + 1 End If Next Print qs & ＂个奇数,＂ & os & ＂个偶数＂
郗贾13339777238：
请问用vb怎么编写一个判断一个数是奇数还是偶数的程序,如果要对负数 -
46216仰肥
： 使用mod运算符去判断 如果i mod 2=0那么i就是偶数,否则就是奇数 i<0成立时就是负数
郗贾13339777238：
vb编写判断奇,偶数的函数过程.
46216仰肥
： 在此创建一个文本框,按钮,标签 都是原先默认名不要改 Private Function a(c As Integer) If c >= 0 And c Mod 2 = 0 Then Label1.Caption = Text1.Text & ＂为偶数＂ Else Label1.Caption = Text1.Text & ＂不为偶数＂ End If End Function Private Sub Command1_Click() Dim b As Integer b = Text1.Text Call a(b) End Sub
郗贾13339777238：
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中 -
46216仰肥
： 假设文本框为TEXT1,标签为LABEL1,函数代码如下:public sub testnum() dim x as long x=cint(text1.text) if x mod 2 = 1 then label1.caption=＂奇数＂ else label1.caption=＂偶数＂ end if end sub
郗贾13339777238：
VB中判断奇数和偶数怎么判断和统计个数 -
46216仰肥
：[答案] 例,求1 到100之间偶数和奇数的数量 dim i as integer,a as integer,b as integer for i=1 to 100 if i mod 2=0 '偶数 a=a+1 '偶数奇数 else '奇数 b=b+1 '奇数计数 end if next
郗贾13339777238：
VB编写,输入任意一个整数,判断该数的奇偶性.
46216仰肥
： i=format(text1.text,＂0＂) if i mod 2=0 then msgbox ＂该数字是偶数!＂,VBINFORMATION+VBOKONLY,＂提示＂ else msgbox ＂该数字是偶数!＂,VBINFORMATION+VBOKONLY,＂提示＂ end if
