vb 编程 有物不知多少,三三数余1,五五数余三.七七数余二,问此物有多少

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

Dimm(1To20)AsIntegerDimi,j,cntAsIntegerDimisHasSameAsBooleanFori=1To20'生成100以内的两位正整数m(i)=Int(Rnd()*9

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

是没有思路,还是不会编程?至少有一位数字是5用以下的子函数boolIsInclude5(intnum){while(num!=0){if(num%10==5)returntrue;num=num/10

PrivateSubCommand1_Click()DimiAsLongDima,b,ca=Array(2,7,7,6,27,70,25)b=Array(79,27,32,41,57,66,70)Re

PrivateSubCommand1_Click()Value=1i=0DoWhileValuei=i+1Value=Value*1.12LoopPrintiEndSu

PrivateSubform_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("请输入x值:"))Ifx

第一个的,其他几个也类似Dimsum,nAsDoublesum=0n=1Fori=1To100n=i*nsum=sum+nNextText1.Text=sum

这是基础,必须要有的,而且含不够

msgbox"aaa"打开对话框onerrorresumenext当发生错误,代码继续执行onerrorgotoerr当发生错误,自动调转到errErr.Number错误号Err.Descriptio

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

PrivateSubForm_Click()Dima(50),m,s,n,ps=0n=0RandomizePrint"原数组"Form=0To49a(m)=Int(100*Rnd)s=s+a(m)Pr

代码：Private Sub Command1_Click()    Call max100End SubSub&nbs

PrivateSubForm_Click()Fori=0To9Forj=0To9PrintIIf(i=jOri+j=9,1,0);NextPrintNextEndSu

该程序不对啊,List1.AddItemp:这时的变量p已经为空了.需要有三个按钮、一个文本框、一个listbox我改后可以正常分解单词：PrivateSubCommand1_Click()DimsA

nd随机函数Int(Rnd(0)+1)0做种子肯定就是0Int(Rnd(0)+1)=1永远等于1Int(Rnd(1)-1)1做种子随机范围0-1之间不大于1减去1都是负数INT函数返回参数的整数部分如

dima,i,b,casstring'声明变量a=13i=0c=1.008whileb>26b=c^(i+1)*a'b=c的i+1次方乘以ai=i+1wendmsgboxi

算法没问题,按你的代码,调整了一下PrivateSubCommand1_Click()Dima!,b!,c!a=Val(InputBox("请输入a"))b=Val(InputBox("请输入b"))

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