vb.net判断整数,vb 整数

用VB.NET编程，任意输入一个整数，判定该整数的奇偶性

Private Sub Command1_Click()

Dim i As Integer

i = Text1.Text

If i Mod 2 = 0 Then

MsgBox "偶数"

Else

MsgBox "奇数"

End If

End Sub

相关问答

Q1: VB中,怎么判定一个Textbox中输入的是正整数

1、打开VB6.0软件，新建一个标准exe工程；

2、在设计界面上添加一个Text控件和一个Command控件，Text1的属性Text设置为空，Command1的Caption属性设置为"判断";

3、双击Command1控件，进入代码编辑窗口，在代码编辑窗口输入如下代码：

Private Sub Command1_Click()

Dim n As Double

n = Val(Text1.Text)

If n  0 Then

MsgBox (n  "是一个正数")

ElseIf n = 0 Then

MsgBox ("n等于0")

Else

MsgBox (n  "是一个负数")

End If

End Sub

4、点击运行工程，在Text1中输入一个数字，单击判断按钮，判断该数是正数、0还是负数；

Q2: vb.net 求产生一个随机正整数,用IF THEN判断奇偶性,并用MsgBox输出 求大神啊！！

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As Integer = Int(Rnd() * 100)

        If a Mod 2 = 0 Then

            MsgBox(a  "是偶数")

        Else

            MsgBox(a  "是奇数")

        End If

    End Sub

Q3: vb怎样判断一个数是否是整数？

方法有多种，看你要怎么用了。

一、判断是否为数字且是否包含小数点：

IsNumeric(Text1) And InStr(1, Text1, ".", vbTextCompare)=0

二、计算：

Int(Val(Text1)) = Text1

三、正则表达式：

[0-9]{1,}

Q4: vb怎么判断一个整数是几位数？求代码

x/10;

循环判断取整，直到结果为零；

同时设定一个变量初始值为零，每循环一次加一，循环结束，变量结果即为整数位数。

Q5: 关于VB.net取整的问题

double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成

所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的实际数值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小数点后 52位有效值后 等于10进制的180.893049999999998

所及加最后变成了 1808930.99999999998

第一次当然输出近似值1808931

第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1