vb分别用函数和子过程求表达式:1 1 2 1 3 1 4 - 1 n

用正方形面积ABCD减去三角形面积APD,即y=16-1/2xX4=16-2x（0再问：thankyou

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

FunctionSum1(ByValnAsIntger)AsDoubleDimiAsIntegerSum1=0fori=1tonSum1=Sum1+1/inextiEndFunction

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

DimmAsIntegerDimnAsIntegerDimrAsIntegerDimaAsInteger,bAsIntegerm=InputBox("请输入其中的一个正整数")n=InputBox("

解法1:设解析式为y=ax²+bx+c将已知的三点坐标代入得方程组a-b+c=09a+3b+c=0a+b+c=-4解之得:a=1b=-2c=-3故y=x²-2x-3即为所求.解法2

*优先级最高,然后到/,其后到\相当于(abs(-5)*5)\(5/5)=(5*5)\1=25

返回值的作用就是可以用来判断,做条件用,但是过程去不可以,过程说白了就是简化代码.争强程序的可读性而已.

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

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

解题思路：一次函数解题过程：解答见附件，如还有疑问，欢迎添加讨论祝学习愉快！最终答案：略

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

Private Sub zgc(x, diff)    Dim i As Integer 

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

最终就是一个三次函数：y=ax^3+bx^2+cx+d定义域x为R,值域y也是R.再问：额，什么嘛。另外有个人解答是这样的。我心急了，重复问了，他才回复。如果有更详细的，我还是会给分的。把（2）依次代

'最大PublicFunctionmax(aAsInteger,bAsInteger,cAsInteger)AsIntegermax=IIf(a>b,IIf(a>c,a,c),IIf(b>c,b,c)

(-b+sqr(b-4c))/(a+b)

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

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

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