VB编程(a 2) b 能否被整除

PrivateSubCommand1_Click()Fori=100To999IfMid(i,2,1)Mod2=0AndMid(i,3,1)Mod3=0AndMid(i,3,1)Mod6=0ThenP

pravitesubcommand1_Click()dimn%n=inputbox("请输入一个整数","输入整数")ifnmod3=0andnmod7=0thenprint"A"elseprint"

1.阶乘函数：FunctionFactorial(nAsLong)AsLongIfn=1ThenFactorial=1ElseFactorial=n*Factorial(n-1)EndFunction

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

count=0Fori=1To1000IFi%7==0Thencount++Nexti

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

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

'更快的方法PrivateSubCommand1_Click()Fori=300To500step5IfiMod3=0ThenPrintiNextEndSub'最快的方法：PrivateSubComm

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

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

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

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

以下是关键代码intnum;//这个是要你判断的数if(num%3==0&&num%5==0)//判断能否被整除printf("能被3和5整除");

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

两条小边的和大于第三边,即成三角形.面积：S＝ah/2(2).已知三角形三边a,b,c,则　　（海伦公式）（p=(a+b+c)/2）　　S=√[p(p-a)(p-b)(p-c)]　　=（1/4）√[(

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

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

我觉得这才是楼主的意思吧,首先判断能否同时被5和6整除,如果不能再单独判断是否能被5或者6整除.importjava.util.Scanner;publicclassTest{publicstatic

Dima%,b%,c%,s1,s2,sPrivateSubForm_Click()Fori=1To1000IfiMod7=0Thena=a+1s1=s1+iEndIfIfiMod17=0Thenb=b

intnumber;scanf("%d",&number);if(number%3==0&&number%5==0){printf("YES");}else{printf("NO");}