VB代码编程求 1 到 n 中能被 3 或 7 整除的数之和.

#include/*用for循环实现*/voidmain(){\x09intn;\x09intm;\x09printf("pleaseinputn\n");\x09scanf("%d",&n);\x0

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

PrivateSubForm_Click()Dima(1To40)AsLongFori=1To40Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-2)+a(i-1)EndIfPrin

n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta

判断素数的原理是：素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.编程的算法是：穷举法,就是将需要判断的数除2、除3.一直除到这

#includevoidmain(void){intn=0;inti=0;floats=0;floatfTemp=0.0f;scanf("%d",&n);for(i=1;i

int sum(int n){    List<int> list = new List

创建一个窗体,并在其上创建三个文本框和一个命令按钮,其中：文本框NN和文本框MM输入N和M的值,文本框JG输出结果.命令按钮Command1用于开始计算,在其单击事件中输入如下代码：PrivateSu

Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+iEndIfNext==>优化一点：Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+ii

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

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo

楼上的是什么版本?VB6.0就这样ifa=1ora=2ora=3ora=4then要保存数据可以写入文件DIMAASINTEGER保存A:OPEN"c:\A.DAT"FORBINARYAS#1PUT#

PrivateSubCommand1_Click()DimnAsDoublen=Val(InputBox("N="))Fori=1Tons=s+1/(n*(n+1))NextiMsgBox"所求的和为

functionsum(n)fori=1tona=a+inextsum=aendfunction

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton

一个for嵌套一个if,注意n要定义为int,倒数用1.00/n即可再问：哦哦，谢啦