vb 编写一个数是否同时能被17和37整除的function 过程

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

dimii=0forj=100to999ifjmod3=0thenif(j-6)mod10=0theni=i+1endifendifnext没有编译运行LZ自己试试

求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/

//这样就ok了,刚写的code,测试通过,如果有疑问,欢迎交流#include<iostream>using namespace std;int main(

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

判断素数的原理是：素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.编程的算法是：穷举法,就是将需要判断的数除2、除3.一直除到这

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

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

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

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

FunctionJudge(NAsInteger)AsBooleanJudge=NMod17*37=0EndFunctionPrivateSubForm_Click()DimiAsIntegerFor

Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenPrintx;

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

dimnumnum=122.02ifnumint(num)thenmsgbox("非整数")

inputxifx=int(x)thenprintx;"isainteger."elseprintx;"isn'tainteger."或者inputxifx-int(x)>0thenprintx;"i

DimnumDimstrstr=""Fornum=1000To2000str=str+Cal(num)NextMsgBoxstrFunctionCal(num)IfnumMod17=0AndnumMo

Functions(ByValaAsInteger,ByValbAsInteger)AsIntegerDimiAsIntegerFori=1To1000IfiModa=0AndiModb=0Thens

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

经常遇到类似的题目,可以参考此程序!　　VB2008调试通过!PublicClassForm1Dimprime(100)AsIntegerDimCurrentIndexAsIntegerPrivate

for(inti=10;i再问：if里面应该有三个公式吧再答：呵呵，那不是挪上面去了吗，相当于是for(inti=（2*5）;i