VB编程:通过InputBox输入一个正整数,在立即窗口输出该正整数的质因数列

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

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

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

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

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

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

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

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

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

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

PrivateSubForm_click()Dimm%,n%,x%,y%m=InputBox("请输入鸡、兔的总头数")n=InputBox("请输入鸡、兔的总脚数")x=(4*m-n)/2y=(n-

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

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

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerDimsum1AsLong,sum2AsLongn=inputbox("请输入