这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
我们注重客户提出的每个要求，我们充分考虑每一个细节，我们积极的做好成都网站设计、成都网站制作服务，我们努力开拓更好的视野，通过不懈的努力，成都创新互联公司赢得了业内的良好声誉，这一切，也不断的激励着我们更好的服务客户。 主要业务：网站建设,网站制作,网站设计,微信小程序,网站开发,技术开发实力，DIV+CSS，PHP及ASP，ASP.Net，SQL数据库的技术开发工程师。
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
不知道我理解的对不对，是说输入一个数字，然后返回离他最近的奇数和偶数么？
dim jishu(1) as integer
dim oushu(1) as integer
'一般情况下都有一对奇偶数存在，比如88 最近的奇数是 87、89 偶数是90，86
dim InputNum as integer
if inputnum mod 2 =0 then
jishu(0)=inputnum-1
jishu(1)=inputnum+1
oushu(0)=inputnum-2
oushu(1)=inputnum+2
else
jishu(0)=inputnum-2
jishu(1)=inputnum+2
oushu(0)=inputnum-1
oushu(1)=inputnum+1
endif
for i=0 to 1
if jishu(i)100 or jishu(i)0 then
jishu(i)=0
endif
if oushu(i)100 or oushu(i)0 then
oushu(i)=0
endif
next
dim OutPutstring(1) as string
outputstring(0)="奇数:"
outputstring(1)="偶数:"
for i=0 to 1
if jishu(i) 0 then
outputstring(0) =outputstring(0) jishu(i)
endif
if oushu(i)0 then
outputstring(1)= outputstring(1) oushu(i)
endif
next
算法肯定不是最优的....凑活看把
Dim sum As Integer
For i = 1 To 30
If i Mod 2 = 0 Then
sum = sum + i
End If
Next
1、定义两个数，分别用来存放奇数和偶数
2、判断能被2整除的是偶数，然后文本框显示红色文字这是偶数
3、判断不能被2整除的是奇数，然后文本框显示蓝色文字这是奇数。
语句可以用If...else....end if
Public Class Form1
Dim arraa%(19)
Dim i%, j%
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
arraa(0) = 1
arraa(1) = 1
arraa(2) = 1
Label2.Text = "1 1 1"
For i = 3 To 19
arraa(i) = arraa(i - 1) + arraa(i - 2) + arraa(i - 3)
Label2.Text = Label2.Text " " arraa(i)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 3 To 19
If arraa(i) Mod 2 = 0 Then Label4.Text = Label4.Text " " arraa(i)
Next
End Sub
End Class
把图片上面的 数字改动 质数改成偶数就可以了
貌似有一点 没有偶数 呢
重庆分公司
重庆分公司
