vb.net判断奇数,vb判断奇数偶数的代码

用VB.NET的FOR语句怎么编写1到100所有奇数的和啊 ！！！马上要考试了 急！！！

dim sSum as long

成都创新互联公司是一家专业提供全州企业网站建设,专注与成都网站建设、网站建设、H5高端网站建设、小程序制作等业务。10年已为全州众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

for i=1 to 100

if i mod 2 =1 then

sSum=sSum + i

endif

next i

msgbox "1、100的奇数和为：" sSum,"提示"

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

Sum 是关键字，是个系统函数

sSum 只是一个变量，晕，可以改成别的。

VB判断奇偶性

做成数组控件，index表示控件号（.net中修改+=）

伪代码：

s1=2*int(rnd)'俩偶数

s2=2*int(rnd)

select case index

case 0

s1=s1+1’俩奇数

s2=s2+1

case 2

s1=s1+1'1个奇数

case 3

s2=s2+1'1个奇数

end select

vb.net怎么同时判定多个数的奇偶性

这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。

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("所产生的100个数字中偶数有" n1 "个，奇数有" n2 "个")

End Sub

判断奇偶数的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

Label1.Caption ="非奇非偶"

End If

End If

End Sub

扩展资料：

判断奇偶数时，主要是使用运算符-Mod和if语句，Mod可以对一个数取余数。例如10/3= 3....11则10 Mod 3=1，所以如果任意一个数n Mod 2=1这个数就是奇数。

If语句格式：如果条件1成立 做代码1  否则  做代码2  结束

代码格式：

IfA1 Then

语句1

Else

语句2

End if