vb编程 输出1-100中所有是7的倍数的数 并统计共有多少个

这也是大学编程?中学还差不多 Private Sub Command1_Click()a = Int(Val(InputBox("a=&qu

#includeintmain(){intn;n=0;for(inti=1;i再问：大侠，这是你自己做的吗？有没有把握对啊？再答：是，刚写的，不信你运行一下。

=min(A1:A5)下拉

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

PrivateSubForm_Click()DimiAsInteger,sumAsIntegerFori=1To100IfiMod3=0Thensum=sum+iNextPrintsumEndSu

PrivateSubCommand1_Click()Fori=3To100Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))Thens=s&i&

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

PrivateSubCommand1_Click()Dimi,j,a,b,sFori=7To997a=FalseForj=1Toi-1IfiModj=0Andj>1Thena=TrueExitForE

voidmain(){inti=0,num=0;for(i=1;i{if((i%10==3)&&(i%3!=0)){printf("%3d",i);num++;}if(num==10){num=0;p

constN=100dimi,iCountiCount=0'计数dimsum:sum=0fori=1toNifimod5=0orimod7=0theniCount=iCount+1textBox1.T

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

C语言#includevoidmain(){inti;for(i=1;i

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

#includeintmain(){inti;intsum=0;for(i=1;i{if(0!=i%7){sum+=i;}}printf("sum=%d\n",sum);return0;}

Private Sub Command1_Click()    Cls    Dim r(

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

时间有限,只写了C++代码,未调试,思路相同,自己切换吧#include"math.h"BOOLIsPrime(inta){inti;for(i=2;i再问：非常感谢～