VB将奇数和偶数分两行显示

1,3,5,7.是奇数,也可以说是单数2,4,6,8.是偶数,也可以说是双数

是不是这样：（fomr的autodraw属性要设定为true）PrivateSubCommand1_Click()DimiAsIntegerDimRndNUmAsInteger'定义随机数DimN1A

DimiAsLongDimjAsLongDimkAsLongFori=0To100IfiMod2=0Thenj=j+iElsek=k+iNextMsgBox"偶数和："&j&vbCrLf&"奇数和："

语句自己找给思路.第一种：暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum

DimiasInteger,jasInteger,oasIntegerj=0o=0Fori=1To100Step2j=j+io=o+(i+1)NextDebug.print"100以内的奇数和:"&j

PrivateSubCommand1_Click()RandomizeTimerFori=1To100x=Int(Rnd()*90+10)IfxMod2=0Thenm=m+xElsen=n+xEndI

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

PrivateSubCommand1_Click()Dimi,sum1,sum2AsIntegersum1=0sum2=0Fori=1To100IfiMod2=1Thensum1=sum1+iElse

用一个一维数组a就可以解决了奇数:aimod2=1,则加1偶数:10-i再问：完全小白求帮助再答：新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:PrivateSubCommand1

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

生成按钮代码：PrivateSubCommand1_Click()RandomizeFori=1To100t=Int(Rnd()*900+100)IftMod2=0ThenList1.AddItemt

248050247500再问：不是说结果的，而是说编程的再答：我不懂vb,只会用php或者其他的，简单的用basic写一下吧,大致思路是这样的。sum1=0sum2=0fora=100to10000i

'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

dimiasintegerdima(9)asintegerdimsasstrings=""fori=0to9a(i)=inputbox("输入第"&(i+1)&"个数：")nextfori=0to9i

0本来就是偶数>_

例,求1到100之间偶数和奇数的数量dimiasinteger,aasinteger,basintegerfori=1to100ifimod2=0'偶数a=a+1'偶数奇数else'奇数b=b+1‘奇

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

PrivateSubCommand1_Click()Dimli_iAsIntegerli_i=Val(Text1.Text)Ifli_i