vf 输出100-1000之间能被37整除的数-搜答案-搜狗做题网

#includevoidmain(){inti;for(i=1;i

111,148,185,222,259,296,333,370,407,444,481,518,555,592,629,666,703,740,777,814,851,888,925,962,999.

PrivateSubCommand1_Click()Fori=1000To2000IfiMod17=0ThenPrintiNextiEndSubPrivateFunctionMax(ArrAsVari

1、计算50—100之间数的和.clears=0fori=50to100s=s+iendfor?"50—100之间数的和：",s2、计算200以内自然数奇数与偶数的平方和之差.cleara=0b=0f

程序如下：main(){inti;for(i=1;i

clears=0t=0fori=1to100step1ifi%5=0thens=s+it=t+1endifnexti?s,t

clearfori=500to1000ifi%26=0?iendifendfo

s=0fori=1to100ifmod(i,5)=0s=s+iendif再问：能把源程序写出来吗？我是帮别人做的，我不会vf的语法，谢谢了……

clears=0fori=10to1000ifmod(i,7)=0andmod(i,3)0s=s+iendifendfor"10~1000之间能被7整除但不能被3整除的数据和是：",sreturn结果

//C#代码privatevoidForm1_Load(objectsender,EventArgse){//取出符合条件的数Listnums=newList();for(inti=100;i

PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End

clears=0fori=2to100step2s=s+iendfo

什么样的年是闰年啊,我忘记了给你修改了下程序,注意ifthen和endif总是成对出现.Forendfor也是成对出现.而且endfor在VF里语法格式貌似是在一起的.set talk&nb

cleari=0dowhilei

clears=0fori=100to700a1=int(i/100)a2=int((i-a1*100)/10)a3=i-a1*100-a2*10k=a1+a2+a3ifk%5=0s=s+1endife

最简单的做法：#includevoidmain(){inti;for(i=1000;i

clear?"1~999能被3整除且至少有一位是5的数有："fori=1to999ifi%3=0and"5"$alltrim(str(i))?iendifendfo

Private Sub Command1_Click() Dim j As Long, x&n

简单,程序如下:fori=1to100ifi%7=0endifendfor行了.

clearsum=0fori=1to100step1ifmod(i,3)=0i,"是3的倍数"sum=sum+iendifendfor"100以内,3的倍数和为：",sum