vb求5的倍数之和

我的理解,你是一个9*9的矩阵,那么:dimsasintegerdimiasintegerdimjasintegerdimd(9,9)asinteger'假设二维数组为d,且主对角线元素的值为1-9s

所有3的倍数的和：3+6+9+12+15+...+999=（3+999）*333/2=166833所有15的倍数的和：15+30+45+60+75+...+990=（15+990）*66/2=3316

publicclassqiuhe{publicstaticvoidmain(String[]args){inti,sum1=0,sum2=0;for(i=1;i

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

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

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

Subtest()DimiAsIntegerDimjAsIntegerDimkAsIntegerDimXAsIntegerFori=1To9X=0Forj=0To9Fork=0To9If(i*100+

A:骰子1点数B:骰子2点数(1)点数之和=4:3种可能(骰子1=1,2,3)点数之和=8:5种可能(骰子1=2,3,4,5,6)点数之和=12:1种可能(骰子1=6)点数之和是4的倍数的概率=(3+

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

你可以在窗口中放置一个定时器,激活时间调成5分钟,然后把代码放在时间过程里就可以了.就像下面那样.'假设定时器为timer1,已经设置timer1的interval属性为300000毫秒.Privat

PrivateSubForm_Click()Fori=2To1000s1=0Fori1=1ToiIfiModi1=0Thens1=s1+1NextIfs1=2Thens=s+iNextPrintsEn

帮你做好了附件,你自己研究一下吧,Private Sub Command1_Click()    '奇数算术平方根之和 &

dimiasintegerdimsumasintegersum=0fori=100to200step5ifimod30thensum=sum+inext

Private Sub Command1_Click()   Dim n As Integer  &

PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中

给你两段代码,一个是过程,一个是自定义函数.Subabc()DimxAsIntegerx=InputBox("输入一个整数")Fori=1ToLen(x)k=k+Mid(x,i,1)^2NextIfI

PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS

PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu

明显答案错误,应为or.显示当前日期：printdate

程序开始记数变量=0循环开始从200循环到300判断循环变量是否能被5整除是记数+=循环变量continue判断结束判断循环变量是否能被7整除是记数+=循环变量判断结束循环结束输出记数变量程序结束