vb中如何找出一个数加3是5的倍数,减去3是6 的倍数

用如要结果,请把数字贴成文本吧!631,602.00还是631,602.50?图与数不一致!再问：抱歉，是631,602.50

     'vb编写在所有三位数中找出个位数十位数百位数三者之和等于10的数    For 

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

PrivateSubCommand1_Click()Dimx,y,z,a,bAsIntegerFora=10To31'9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止b=a*ax=

PrivateSubForm_Load()DimstrAsStringFori=100To200IfiMod3=2AndiMod5=3AndiMod7=2Thenstr=str&""&iEndIfNe

PrivateSubCommand1_Click()Dimstra()AsString,changduAsIntegerstra=Split(Text1.Text,"")Fori=LBound(str

PrivateSubCommand1_Click()Dimi%Fori=100To999IfiMod7=0AndMid(CStr(i),2,1)="2"ThenPrintiNextEndSub再问：M

最好的办法是把小明跟小强分别放在sheet1和sheet2的A列,然后用分列被他们分成好好多列(易于用函数),接着就简单了用match+offset查找相同的然后分别给小明的数据加1或者减1,再用ma

1:5=4:20

IfAModB=0Then整除余0

D1输入公式=INDEX(A:A,SMALL(IF(COUNTIF($B$1:$B$50,$A$1:$A$50)*COUNTIF($C$1:$C$50,$A$1:$A$50),$A$1:$A$50,4

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

OptionExplicitPrivateSubCommand1_Click()DimiAsLongFori=1To10000Iff1(i)=TrueAndf1(i^2)=TrueThenList1.

excel中B1=CEILING(A1/10,1)*10vb中=Int(a/10+0.9)*10再问：显示CEILING(N/10,1)*10，子程序或函数未定义，使用CEILING（）前提吧？？？？

PrivateSubCommand1_Click()Dima,b,cAsIntegerDimmaxRandomizea=Int(900*Rnd+100)b=Int(900*Rnd+100)c=Int(

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol

=MIN(IF(B1:B100>=A1,B1:B100))数组公式三键结束（Shift+Ctrl+Enter)