vb编程一列火车在moudi

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

利用vb中的函数进行转换.chr（x）返回以x为ASCII码的字符如chr（65）结果为"A"Asc(x)给出字符x的ASCII值,十进制数如Asc("a)"结果为97再问：可不可以具体写一下操作过程

第一个的,其他几个也类似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条

大型煤场的自动化卸煤机,只要车皮停上去,一分钟就可以把一车皮煤从侧面倒出,一列煤车按30节车皮算,卸煤的时间也就是半个小时,加上调车的时间,最保守的预计在2～3小时之内就可以卸完.人工卸煤就难说了,因

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

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

120÷23=180（千米）答：火车1小时行驶180千米．

设客车速度x,则货车3/5x.（x-3/5)*1=480解得：x=1200米/分钟,则3/5x=720设时间t(1200+720)t=480解得：t=0.4分钟合24秒请及时处理问题,没有人有义务帮你

Text1=Int(Rnd*40)+60

不,正常情况下哪趟车进那个站台都是有计划的,但是这个只有车站知道,一般是查不到的,但是有的车站会公布出来.再答：不过计划赶不上变化嘛，这个站台运用计划经常会打乱，特别实在高峰期。

Sub aa()'用9行数据做说明,看是不是你要的东西；Dim x As IntegerFor x = 2 To

90÷34×92，=120×92，=540（千米）；答：甲、乙两地铁路长540千米．