vb编程统计1到100中能被3和5同时整除的数的个数.

intcount=0;for(inti=1;i再问：还要输出这些数再答：那个输出i的地方就是输出这些数字了再问：谢谢了再答：不客气

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

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

PrivateSubCommand1_Click()Dimi,sAsIntegerFori=1To100s=s-i*(-1)^iNextiPrintsEndSub这个很简单了你应该看得懂吧!

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

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

先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True,并调整宽高以便能较好的显示出100个随机数）和一个Button按钮.然后双击Button按钮跳转到代码编辑窗口,粘帖以

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

Private Sub Command1_Click()Dim i As Long, x As LongFor 

还要写吗?再问：不会啊，怎么写呢？再答：你等下，我帮你写一个再答：参考代码：#include#includeintmain(intargc,char*argv[]){\x09inti,j=0;\x09

n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM

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

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

main(){inti=0,sum=0;for(i=1;i

@arr = Array.newfor i in 0..19 do @arr << rand(1.

PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu

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

Private Sub Command1_Click()    Cls    Dim r(

Dimi,sAsIntegerFori=2To100step2s=s+iNexti