阶乘和表达式vb-搜答案-灵鹊做题网

PrivateSubCommand1_Click()DimnAsInteger,阶乘项AsLong,阶乘和AsLongDon=Val(InputBox("请输入阶乘的项数（N≤8）"))LoopUnt

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

B#1/11/2009#这个是日期月/日/年没问题了吧

PrivateSubForm_Click()n=2DoWhiles

PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入一个正整数：")PrintFac(n)EndSubPrivateFunctionFac(m)

（1）As=0（2）Ei

vb求n的阶乘n

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

选A因为0的ASCII值为48,9的ASCII值为57C>="0"AndC=48AndAsc(c)

Log函数返回一个Double,指定参数的自然对数值.语法Log(number)必要的number参数是Double或任何有效的大于0的数值表达式.说明自然对数是以e为底的对数.常数e的值大约是2.7

(2*y)/((a*x+b*y)*(a*x-b*y))再问：谢啦

PrivateSubCommand1_Click()DimiAsIntegerFori=1To10Sum=Sum+jc(i)NextMsgBoxSumEndSubFunctionjc(aAsInteg

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

A=Xmod5

一楼的很复杂,给你来个简单的：PrivateSubCommandButton1_Click()Dimi,s,kDimnaaa:n=InputBox("请输入大于等于1的数字")IfVal(n)>=1T

DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4

首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

4、n=iif(kmod2=0,k,k-1)可能是ifx*y>0thenmsbgox"该点在第一或第三象限内"elsemsbgox"该点不在第一或第三象限内"6、Result=val(mid(x&x,

照你写的没有错.

用Sub过程实现：PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!