VB求1到300之间偶数个数

PrivateSubCommand1_Click()Dima(1To20)Dimmax,ave,min,summax=0min=300Print"产生的20个数为:";Fori=1To20a(i)=I

dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num

求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/

PrivateSubfun()ifimod2=0thenforx=itoastep2s=s*xnextxelseforx=(i+1)toastep2thens=s*xnextxendif试试看行不行吧

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

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

#includevoidmain(){\x09//c语言编程计算1到200之间的奇数和与偶数和\x09inta,sum1=0,sum2=0;\x09for(a=1;a

设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

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

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1j=j+1Ifj=11ThenExitForIfList1.List(i)NextEndSubPr

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

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

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

PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu

第二问#includevoidmain(){inti;for(i=1;i

#include"stdio.h"intgetsum(inta,intb)//要声明a,b为int型{inti;intsum=0;for(a%2==0?i=a:i=a+1;sum=sum+i;i+=2

PrivateSubCommand1_Click()DimArr(9)AsLong'用于存放产生的10随机数DimiAsLongDimnMaxAsLong'用于存放最大的偶数DimnMinAsLong

PrivateSubForm_Click()Dima(30)AsIntegerDimiAsIntegerRandomizeFori=1To30a(i)=Int(100*Rnd)NextiFori=1T