vb.net偶数奇数 vb奇数和偶数和

求VB高手。。如何用VB求出1-100相近最大奇偶值

不知道我理解的对不对，是说输入一个数字，然后返回离他最近的奇数和偶数么？

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

算法肯定不是最优的....凑活看把

相关问答

Q1: 用vb.net设计程序完成1、2、3……30 自然序列中偶数的累加值。结果送至变量Sum(程

Dim sum As Integer

For i = 1 To 30

If i Mod 2 = 0 Then

sum = sum + i

End If

Next

Q2: 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

Q3: 请教VB.net的问题

1、定义两个数vb.net偶数奇数，分别用来存放奇数和偶数

2、判断能被2整除vb.net偶数奇数的是偶数vb.net偶数奇数，然后文本框显示红色文字这是偶数

3、判断不能被2整除的是奇数vb.net偶数奇数，然后文本框显示蓝色文字这是奇数。

语句可以用If...else....end if

关于vb.net偶数奇数和vb奇数和偶数和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。