VB程序输出其中能够被5整除的数之和.如果没有能够被5

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

PrivateSubForm_click()DoUntili+7>100i=i+7Printi;LoopEndSu

PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex

privatesubcommand1_click()dimsumasintegerdimiasintegersum=0fori=1to50ifimod3=0thenmsgboxi&"能被3整除",Vb

入门吧?问题很多!DimaAsIntegerDimbAsIntegera=Val(Text1.Text)b=Val(Text2.Text)IfaModb=0ThenText3.Text="能"Else

dimi,sfori=200to300s=imod5ifs=""thenprintiendif再问：大哥对不对啊我马上要考VB了，再答：PrivateSubCommand1_Click()Dimi,s

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

dim sum as longdim i as integerfor i = 2 to 1

intsum=0;for(inti=10,i

思路很简单,就是先循环输入10个数,然后再循环把这10个数取出,判断其是否能被3和5同时整除,如果是就输出.下面是大概的源代码#includeintmain(){inti=0;intnums[10]=

#includevoidmain(){ints=0;for(inti=0;i

Sub Main()    dim i as integer, n as integer&

1021081111141171201231291321351381411441501531561591621651711741771801831861921951982012042072132162

PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End

PrivateSubForm_Click()DimiAsLong'百位DimjAsLong'十位DimkAsLong'个位DimsAsLong'用来保存生成的三位数DimmAsLong'统计能被6整除

#include <iostream> #define N 10#define Invalid 0xffff usin

vara:array[0..20]oflongint;i,j,k,n,t:longint;b:boolean;beginfori:=1to10doread(a[i]);b:=false;fori:=1

所有数位和：比如898=8+9+8=25,能被5整除自身能被三整除,比如111,111/3=37所有数位和能被5整除并且自身能被3整除的,比如555（ps：其实自身能被3整除的数,所有数位和也能被3整

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊

Private Sub Command1_Click()    Dim j As Long, x&n