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
本文题目:vb.net判断奇数,vb判断奇数偶数的代码
标题路径:http://myzitong.com/article/hcjhog.html