高考问答conduct是什么意思:高手请进 vb中的函数返回值能否给数组？？？？
来源：百度文库 编辑：高考问答 时间：2024/05/08 00:26:49
Function tran(kw() As Single, ko() As Single)
Dim tran(40) As Single
For i = 1 To 40 '求取传导系数
tran(i) = kw(i) + ko(i) / 2
End Function
然后 tx() = tran(kw(), ko())
Dim tran(40) As Single
For i = 1 To 40 '求取传导系数
tran(i) = kw(i) + ko(i) / 2
End Function
然后 tx() = tran(kw(), ko())
你代码的第一个错误是Function函数过程名称与数组变量同名.
第二错误是函数内定义了数组.
第三错误是FOR NEXT 循环缺NEXT.
第四错误未对数组变量kw及ko进行赋值.
下面给个调试代码供参考:
Option Explicit
Dim trann(40) As Single
Dim kw(40) As Single
Dim ko(40) As Single
Dim i As Integer
Function tran()
For i = 1 To 40 '求取传导系数
kw(i) = i ^ 2
ko(i) = 1 / kw(i)
trann(i) = kw(i) + ko(i) / 2
Next
End Function
Private Sub Command1_Click()
Call tran
For i = 1 To 40
Print trann(i)
Next
End Sub
呵呵，没看懂，这段代码好像有问题