vb 编写程序求1到n之间有多少个能被7整除的数 统计个数

intcount=0;for(inti=1;i

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

iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&

DimaAsInteger,nAsInteger,iAsInteger,sAsDoublea=Val(InputBox("a=?"))n=Val(InputBox("n=?"))Ifa>0And

PrivateSubCommand1_Click()s=1n=1DoWhiles再问：最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答：6和720再问：大哥看清楚题目确定没错吧错了我要

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

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

PrivateSubCommand1_Click()Dimn%,sum!,fact!sum=0n=InputBox("输入n:","提示信息",1)IfnMsgBox"数据有误!",48,"警告!"E

PrivateSubCommand1_Click()Dima%,n%,i%,Sn$n=InputBox(请输入n的值)Randomizea=Int(9*Rnd+1)PrintTab(30);"n="&

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

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

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

C言语……#includemain(){inti,k,j,sum,num;sum=0;j=1;printf("请输入一个整数：");scanf("%d",num);for(i=1;i

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

DimsumAsLongDimiAsIntegerDimnAsLongn=InputBox("n=","输入")Fori=1Tonsum=sum+i^2NextiDebug.Printsum

程序的思路：求小兔：若M个都是鸡有多少条腿：2*M现在的腿比2*M条腿多多少条腿：(N-2*M)为什么会多(N-2*M)?因为有兔子在里面,把一只鸡换成一只兔子增加几条腿：(4-2)那么换了多少只兔子

inputtoNFORi=1tonifmod(i,7)=0?iENDifENDFo

#includeusingnamespacestd;intmain(){intn,m,num=0,a,b,c;cin>>m>>n;while(m0){a=m%10;s=s+a;m=m/10;}m=c;