vb程序编程求 1 到 n 中能被 3 或 7 整除的数之和
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/22 06:43:27
#include/*用for循环实现*/voidmain(){\x09intn;\x09intm;\x09printf("pleaseinputn\n");\x09scanf("%d",&n);\x0
dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num
n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta
#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i
iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】
intmain(void){\x09intsum=0,i;\x09for(i=1;i
int sum(int n){ List<int> list = new List
创建一个窗体,并在其上创建三个文本框和一个命令按钮,其中:文本框NN和文本框MM输入N和M的值,文本框JG输出结果.命令按钮Command1用于开始计算,在其单击事件中输入如下代码:PrivateSu
n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM
for(x=n;x>=3;x--)'判断的最小值为3,小于3的值就没有意义{if(!(xmod3)or!(xmod7))'被3除无余数或被7除无余数count+=x;}x=n;while(x-->=4
for循环修改下fori=1to2n-1step2a=a+inexti
PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)
PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn
法一:这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime
sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum
DimsumAsLongDimiAsIntegerDimnAsLongn=InputBox("n=","输入")Fori=1Tonsum=sum+i^2NextiDebug.Printsum
DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If
以下是画一元二次方程的图的代码:(假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800)PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2
functionsum(n)fori=1tona=a+inextsum=aendfunction
PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton