s=a/(1+a+a^2)+b/(1+b+b^2)+c/(1+c+c^2) 用SUB过程写

lengjunxin2022-10-04 11:39:541条回答

已提交，审核后显示！提交回复

plpka 共回答了18个问题 | 采纳率94.4%: Sub sum(a,b,c,s)
s = a / (1 + a + a ^ 2) + b / (1 + b + b ^ 2) + c / (1 + c + c ^ 2)
End Sub
Private Sub Command1_Click()
a = 3:b = 4:c = 5
Call sum(a,b,c,s)
MsgBox s
End Su; 1年前

编一个SUB过程：对一个一维数组a(n)的各个元素,分别统计90以上,80～89,70～89,69～79,60～69,6 编一个SUB过程：对一个一维数组a(n)的各个元素,分别统计90以上,80～89,70～89,69～79,60～69,60以下 freepea1年前1: 异样光彩共回答了17个问题 | 采纳率94.1%

用Select Case语句

1年前查看全部

1、Function函数的定义格式是什么? 2、Function函数和sub过程的区别是什么? 3、以下关于过程及过程参 1、Function函数的定义格式是什么? 2、Function函数和sub过程的区别是什么? 3、以下关于过程及过程参数 后天之前回答,最后一道有过程= =,拜托了 1、Function函数的定义格式是什么? 2、Function函数和sub过程的区别是什么? 3、以下关于过程及过程参数的描述中,正确的是 A 变量作为过程的参数时,只能使用“传地址”方式进行. B 数组作为过程的参数时,只能使用“传地址”方式进行. C 在vb中,允许用户对子过程或函数过程进行嵌套定义. D 只有函数过程能够将过程中处理的信息传回到主调程序中. 4、什么是形参?什么是实参? 5、读程序.有如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 5 y = 6 Call mysub(x, y) Print x; "and"; y End Sub Private Sub mysub(ByVal a As Integer, ByRef b As Integer) a = a + 2 b = b * 3 End Sub 运行程序,单击按钮command1,显示结果为 . oΟo蝶﹎1年前1: 413427693 共回答了17个问题 | 采纳率88.2%

应该能看出来你问的是ASP
1、Function函数的定义格式是什么?
function a(s)
'这里放你想要干的事情的代码
a = s
end function
sub b(s)
'这里放你想要干的事情的代码
end sub
2、Function函数和sub过程的区别是什么?
注意看问题一中的函数a和过程b 他们的区别就在于function函有返回值而sub过程是没有返回值的
3、以下关于过程及过程参数
这个问题是指? 你说的稍微详细点
补充回答：
第三题选D
第四题
形参:全称为"形式参数"是在定义函数名和函数体的时候使用的参数,目的是用来接收调用该函数时传如的参数.
实参:全称为"实际参数"是在调用时传递个该函数的参数.
形参和实参的类型必须要一致,或者要符合隐含转换规则,
当形参和实参不是指针类型时,在该函数运行时,形参和实
参是不同的变量,他们在内存中位于不同的位置,形参将实
参的内容复制一份,在该函数运行结束的时候形参被释放,
而实参内容不会改变.
而如果函数的参数是指针类型变量,在调用该函数的过程
中,传个函数的是实参的地址,在函数体内部使用的也是
实参的地址,即使用的就是实参本身.所以在函数体内部
可以改变实参的值.
给你一个很简单的例子：
function A(s)'s为形参,作为接收调用该函数的实参
'do something
end fucntion
call a(t) 't为实参传给函数A中的s
第五题：
5 and 18

1年前查看全部

vb：编制通用sub过程f3,将single类型一维数组反序排列（如实参数组元素依次为1,5,7,调用后为7,5,1 vb：编制通用sub过程f3,将single类型一维数组反序排列（如实参数组元素依次为1,5,7,调用后为7,5,1 Private Sub f3(a() As Single,i As Byte) Dim n As Byte,k As Byte,temp As Single For i = 1 To k temp = a(i) a(i) = a(k + 1 - i) a(k + 1 - i) = temp Next i End Sub Private Sub Form_Click() Dim n As Byte,a() As Single,i As Byte n = InputBox("请输入元素个数") ReDim a(1 To n) For i = 1 To n a(i) = Val(InputBox("a（" & i & ")=")) Next i Call f3(a,i) For i = 1 To n Print a(i); Next i End Sub 我写的不对,哪个地方错了啊? 唯_月1年前1: 段淳共回答了17个问题 | 采纳率94.1%

Private Sub f3(a() As Single, k As Byte) ‘原来定义的i在循环体内做循环变量用了
Dim n As Byte, i As Byte, temp As Single ’原来定义的k没有赋值
For i = 1 To k/2 '只要交换一半,全交换的话,又交换回来了.
temp = a(i)
a(i) = a(k + 1 - i)
a(k + 1 - i) = temp
Next i
End Sub
还有Call f3(a, i)
应改为Call f3(a, n),此时i已经为n+1了.

1年前查看全部

s=a/(1+a+a^2)+b/(1+b+b^2)+c/(1+c+c^2) 用SUB过程写

共1条回复

相关推荐

大家在问