建站
咨詢
售后
建站咨詢
新聞中心
用VB.NET的FOR語句怎么編寫1到100所有奇數(shù)的和啊 ?。?！馬上要考試了 急?。?！
dim sSum as long
成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供全州企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、H5高端網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為全州眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進行中。
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)鍵字，是個系統(tǒng)函數(shù)
sSum 只是一個變量，暈，可以改成別的。
VB判斷奇偶性
做成數(shù)組控件，index表示控件號（.net中修改+=）
偽代碼：
s1=2*int(rnd)'倆偶數(shù)
s2=2*int(rnd)
select case index
case 0
s1=s1+1’倆奇數(shù)
s2=s2+1
case 2
s1=s1+1'1個奇數(shù)
case 3
s2=s2+1'1個奇數(shù)
end select
vb.net怎么同時判定多個數(shù)的奇偶性
這個同時判定可以采用多線程做。但是一般都是使用數(shù)組循環(huán)來統(tǒng)計。
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個數(shù)字中偶數(shù)有" n1 "個，奇數(shù)有" n2 "個")
End Sub
判斷奇偶數(shù)的vb程序段
vb程序段如下：
Private Sub Command1_Clicko
If Val（Text1.Text）Mod 2 = 1 And Val（Text1.Text）= Int（Val（Text1.Text）Then
Label1.Caption="這是奇數(shù)"
Else
If Val（Text1.Text）Mod 2= 0 And Val（Text1.Text）= Int（Val（Text1.Text））Then
Label1.Caption ="這是偶數(shù)"
Else
Label1.Caption ="非奇非偶"
End If
End If
End Sub
擴展資料：
判斷奇偶數(shù)時，主要是使用運算符-Mod和if語句，Mod可以對一個數(shù)取余數(shù)。例如10/3= 3....11則10 Mod 3=1，所以如果任意一個數(shù)n Mod 2=1這個數(shù)就是奇數(shù)。
If語句格式：如果條件1成立 做代碼1? 否則? 做代碼2? 結(jié)束
代碼格式：
IfA1 Then
語句1
Else
語句2
End if
本文題目：vb.net判斷奇數(shù),vb判斷奇數(shù)偶數(shù)的代碼
轉(zhuǎn)載注明：http://fisionsoft.com.cn/article/hcjhog.html
