vb程序:输入一个数,判断它能不能同时被2.3.5整除

'Text1输入,Text2结果PrivateSubText1_KeyPress(KeyAsciiAsInteger)Staticint1AsIntegerDebug.PrintKeyAscii'45

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

PrivateSubCommand1_Click()OnErrorGoToHellDimMAsInteger'月份DimNAsLong'张数DimRAsInteger'折扣M=InputBox("请输

C语言?#include"stdio.h"intmain(){intnum,i=0;printf("请输入一个数字\n");scanf("%d",&num);while(num){\x05++i;\x

判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei

Private Sub Command1_Click()X = val(InputBox(""))For i =&nbs

PrivateSubcommand1_click()Dimint1AsIntegerint1=InputBox("输入一个整数")Ifint1Mod15=0ThenMsgBox"此数能同时被3和5整除

这样才完整：判断不出错.N-1省去了许多判断,提高了效率.PrivateSubCommand1_Click()DimNAsIntegerDimiAsIntegerIfIsNumeric(Text1.T

额,这个更简单了if(i%7==0)

被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dimcount1aslong‘先看n整除以10等于多少,比如n是10的

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

水仙花数是指一个n位数(n≥3),它的每个位上的数字的n次幂之和等于它本身.（例如：1^3+5^3+3^3=153）注意我这只限于3位数#includevoidmain(){intx,y,z;intn

main(){intnum;printf("请输入一个整数:\n");scanf("%d",&num);if(num%2){printf("\n这是一个奇数\n");}else{printf("\n这

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

DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx

    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")   &n

privatesubcommand1_click()dima%,b%,c%a=val(text1)b=val(text2)c=Int(Rnd*(a-b+1)+b)text3=cEndsu

PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(InputBox("输入三位整数"))b=I

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"