用VB.NET編程，任意輸入一個整數(shù)，判定該整數(shù)的奇偶性

Private Sub Command1_Click()

創(chuàng)新互聯(lián)公司擁有一支富有激情的企業(yè)網(wǎng)站制作團隊，在互聯(lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)深耕十多年，專業(yè)且經(jīng)驗豐富。十多年網(wǎng)站優(yōu)化營銷經(jīng)驗，我們已為上千家中小企業(yè)提供了網(wǎng)站設(shè)計、成都網(wǎng)站設(shè)計解決方案，按需求定制開發(fā)，設(shè)計滿意，售后服務(wù)無憂。所有客戶皆提供一年免費網(wǎng)站維護!

Dim i As Integer

i = Text1.Text

If i Mod 2 = 0 Then

MsgBox "偶數(shù)"

Else

MsgBox "奇數(shù)"

End If

End Sub

VB中,怎么判定一個Textbox中輸入的是正整數(shù)

1、打開VB6.0軟件，新建一個標(biāo)準(zhǔn)exe工程；

2、在設(shè)計界面上添加一個Text控件和一個Command控件，Text1的屬性Text設(shè)置為空，Command1的Caption屬性設(shè)置為"判斷";

3、雙擊Command1控件，進入代碼編輯窗口，在代碼編輯窗口輸入如下代碼：

Private?Sub?Command1_Click()

Dim?n?As?Double

n?=?Val(Text1.Text)

If?n??0?Then

MsgBox?(n??"是一個正數(shù)")

ElseIf?n?=?0?Then

MsgBox?("n等于0")

Else

MsgBox?(n??"是一個負數(shù)")

End?If

End?Sub

4、點擊運行工程，在Text1中輸入一個數(shù)字，單擊判斷按鈕，判斷該數(shù)是正數(shù)、0還是負數(shù)；

vb.net 求產(chǎn)生一個隨機正整數(shù),用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??"是偶數(shù)")

Else

MsgBox(a??"是奇數(shù)")

End?If

End?Sub

vb怎樣判斷一個數(shù)是否是整數(shù)？

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

一、判斷是否為數(shù)字且是否包含小數(shù)點：

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

二、計算：

Int(Val(Text1)) = Text1

三、正則表達式：

[0-9]{1,}

vb怎么判斷一個整數(shù)是幾位數(shù)？求代碼

x/10;

循環(huán)判斷取整，直到結(jié)果為零；

同時設(shè)定一個變量初始值為零，每循環(huán)一次加一，循環(huán)結(jié)束，變量結(jié)果即為整數(shù)位數(shù)。

關(guān)于VB.net取整的問題

double是雙精度 有效數(shù)值位52位 表示成指數(shù)的形式 即指數(shù)11位 即表示成

所以180.89305用2進制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的實際數(shù)值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小數(shù)點后 52位有效值后 等于10進制的180.893049999999998

所及加最后變成了 1808930.99999999998

第一次當(dāng)然輸出近似值1808931

第二次int函數(shù)去掉了小數(shù)點后的數(shù)int就是只取整數(shù)的部位的不是四舍五入 所以少了1