vb判断奇偶数的编程
答：vb程序段如下：Private Sub Command1_Clicko If Val（Text1.Text）Mod 2 = 1 And Val（Text1.Text）= Int（Val（Text1.Text）Then Label1.Caption="这是奇数"Else If Val（Text1.Text）Mod 2= 0 And Val（Text1.Text）= Int（Val（Text1.Text））Then Label1.Caption ="这是偶数"Else...
答：Private Sub Command1_Click()Dim s As Integer On Error GoTo err s = InputBox("请输入一个整数", "奇偶检测")s = s Mod 2 If s = 0 Then Label1.Caption = "你输入的是偶数"Else Label1.Caption = "你输入的是奇数"End If err:End Sub Visual Basic源自于BASIC编程语言。VB拥有图...
答：Private Sub Command1_Click()If Val(Text1.Text) Mod 2 = 0 ThenLabel1.Caption = "该数为偶数！"Label2.Caption = Label2.Caption +1ElseLabel1.Caption = "该数为奇数！"Label3.Caption = Label3.Caption +1End IfEnd Sub
答：算法分析： 根据题目判断奇偶性，可以用mod函数，n mod 2 如果是1 则是奇数，如果是0则是偶数。程序：Private Sub Command1_Click()dim n as integern=inputbox("输入需要判断的数据：")If n Mod 2 = 0 Then Print "你输入的数字是偶数。"Else Print "你输入的数字是奇数。"End IfEnd ...
答：通过Abs()函数对整数取绝对值，然后通过Mod 2取余计算判断，即除以2，余数是1，那么就是奇数，余数是0就是偶数。如下：If Abs(m) Mod 2 = 1 Then Print m & "是奇数"Else Print m & "是偶数"End If
答：Private Function SuShu(n As Integer) As Boolean '判断某数是否素数 Dim l As Integer, p As Integer p = Int(Sqr(n))For l = 2 To p If n Mod l = 0 Then Exit For Next l If l > p Then SuShu = True End Function Private Sub Command1_Click()Dim a(1 To 80) As ...
答：例，求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
答：用Sub过程分别对奇数和偶数进行排序,奇数用选择法排序,偶数用冒泡法排序,然后在调用过程内,将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3.用Function过程判断随机整数是否为素数。在调用过程内,将找出的素数(按每行10个数)及求和结果输出到文本框中。4.Sub过程和Function过程均建立在标准模块中。
答：Private Sub Command1_Click()If Val(Text1.Text) Mod 2 = 0 ThenLabel2.Caption = "该数为偶数！"ElseLabel2.Caption = "该数为奇数！"End IfEnd Sub
答：Dim m As Single, n As String m = Val(Text1.Text)If Fix(m) <> m Then n = MsgBox("请输入整数", 32, "提示")Text1.Text = ""Text1.SetFocus Else If m Mod 2 = 0 Then Label1.Caption = "此数为偶数"If m Mod 2 <> 0 Then Label1.Caption = "此数为奇数"End If ...
网友评论：
笪凤19197855876：
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中 -
38356鲜闹
：[答案] Public Function 偶数(ByVal N&) As Boolean 偶数 = (N Mod 2 = 0) End Function 调用函数过程: MsgBox 偶数(val(text1.text))
笪凤19197855876：
二、 编写一个vb函数过程,用以判断一个数是奇数还是偶数. -
38356鲜闹
：[答案] 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
笪凤19197855876：
二、 编写一个VB函数过程,用以判断一个数是奇数还是偶数 -
38356鲜闹
：[答案] 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
笪凤19197855876：
vb例题:任意输入一个整数,编写程序判断该整数的奇偶数 -
38356鲜闹
：[答案] if x mod 2 =0 then msgbox ＂是偶数＂ else msgbox ＂是奇数＂
笪凤19197855876：
vb中编写简单程序编写简单程序,随机输入几个数,判断其是偶数还是奇数,然后最后是计算出你所输入的数奇偶数分别的个数 -
38356鲜闹
：[答案] 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 & ＂个偶数＂
笪凤19197855876：
VB中判断奇数和偶数怎么判断和统计个数 -
38356鲜闹
：[答案] 例,求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
笪凤19197855876：
[VB]输入一个数?判断他是奇数还是偶数.应该怎么编写? -
38356鲜闹
： Private Sub Command1_Click() Dim n n = InputBox(＂请输入数字＂) If Trim(n) = ＂＂ Then Exit Sub If n Mod 2 = 0 Then MsgBox n & ＂是偶数＂ Else MsgBox n & ＂是奇数＂ End If End Sub
笪凤19197855876：
vb编写判断奇,偶数的函数过程.
38356鲜闹
： 在此创建一个文本框,按钮,标签 都是原先默认名不要改 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
笪凤19197855876：
请问用vb怎么编写一个判断一个数是奇数还是偶数的程序,如果要对负数 -
38356鲜闹
： 使用mod运算符去判断 如果i mod 2=0那么i就是偶数,否则就是奇数 i<0成立时就是负数
笪凤19197855876：
用vb编程 任意输入一整数,判断其奇偶性. -
38356鲜闹
： dim i as integer i=text1.text if i mod 2 =0 thenmsgbox ＂偶数＂ elsemsgbox ＂奇数＂ end if
