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

Private Sub Command1_Click()

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名與空間、雅安服務(wù)器托管、營(yíng)銷軟件、網(wǎng)站建設(shè)、海陽(yáng)網(wǎng)站維護(hù)、網(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.net 在TextBox1中輸入數(shù)字和空格，并求奇數(shù)數(shù)字，并求和

給你個(gè)參考的例子

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim a_point As Integer = TextBox1.SelectionStart

Dim bs As String = Regex.Replace(TextBox1.Text, "[^ \d]", "")

If TextBox1.TextLength bs.Length Then

TextBox1.Text = bs

TextBox1.SelectionStart = a_point

End If

End Sub

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

Dim gs() As String = (From mt As Match In Regex.Matches(TextBox1.Text, "\d*[13579]\b") Select mt.Value).ToArray

TextBox2.Lines = gs

TextBox3.Text = ((From mt As String In gs Select CInt(mt)).ToArray).Sum

End Sub

End Class

請(qǐng)教VB.net的問(wèn)題

1、定義兩個(gè)數(shù)，分別用來(lái)存放奇數(shù)和偶數(shù)

2、判斷能被2整除的是偶數(shù)，然后文本框顯示紅色文字這是偶數(shù)

3、判斷不能被2整除的是奇數(shù)，然后文本框顯示藍(lán)色文字這是奇數(shù)。

語(yǔ)句可以用If...else....end if

編寫(xiě)程序，根據(jù)用戶在文本框Text1中輸入的文本，統(tǒng)計(jì)其中數(shù)字(0~9)中奇數(shù)個(gè)偶數(shù)的個(gè)數(shù)、英文字

//

string str=Text1.text;

int ji=0,ou=0,da=0,xiao=0,qita=0,temp;

for(int i=0;istr.length;i++)

{

if(str[i]='a'str[i]='z')//小寫(xiě)字母

{

xiao++;

}

else if(str[i]='A'str[i]='Z')//大寫(xiě)字母

{

da++;

}

else if(str[i]='0'str[i]='9')//

{

temp=Convert.Int16(str[i]);

if(temp%2==0)

{

ou++;//偶數(shù)

}

else ji++;//奇數(shù)

}

else qita++;//其他

}

用VB.NET的FOR語(yǔ)句怎么編寫(xiě)1到100所有奇數(shù)的和啊 ?。?！馬上要考試了 急?。?！

dim sSum as long

for i=1 to 100

if i mod 2 =1 then

sSum=sSum + i

endif

next i

msgbox "1、100的奇數(shù)和為：" sSum,"提示"

==========================================

Sum 是關(guān)鍵字，是個(gè)系統(tǒng)函數(shù)

sSum 只是一個(gè)變量，暈，可以改成別的。

vb.net怎么同時(shí)判定多個(gè)數(shù)的奇偶性

這個(gè)同時(shí)判定可以采用多線程做。但是一般都是使用數(shù)組循環(huán)來(lái)統(tǒng)計(jì)。

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

Dim A(100) As Integer

Dim n1 As Integer = 0

Dim n2 As Integer = 0

For i = 1 To 100

Randomize()

A(i) = Int(Rnd() * 1000 + 1)

If A(i) Mod 2 = 0 Then

n1 += 1

Else

n2 += 1

End If

Next

MsgBox("所產(chǎn)生的100個(gè)數(shù)字中偶數(shù)有" n1 "個(gè)，奇數(shù)有" n2 "個(gè)")

End Sub

分享名稱：vb.net奇數(shù)偶數(shù) 用VB表示奇偶數(shù)的代碼
文章轉(zhuǎn)載：http://jinyejixie.com/article6/hpcgog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、定制開(kāi)發(fā)、移動(dòng)網(wǎng)站建設(shè)、品牌網(wǎng)站制作、網(wǎng)站內(nèi)鏈、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)