'做参数时不要指定大小.
'在类中如下定义
Public Sub Run(resultcir() As Single)
MsgBox UBound(resultcir)
resultcir(2) = 12345
End Sub
'窗口中这样用:
Private Sub Command1_Click()
Dim a(9) As Single
Dim aa As New Class1
aa.Run a()
MsgBox a(2)
End Sub
博客展示了VB代码示例,在类中定义了一个方法Run,接收Single类型数组作为参数,在方法中操作数组元素。在窗口中创建类的实例并调用该方法,展示了数组参数传递及操作结果。
'做参数时不要指定大小.
'在类中如下定义
Public Sub Run(resultcir() As Single)
MsgBox UBound(resultcir)
resultcir(2) = 12345
End Sub
'窗口中这样用:
Private Sub Command1_Click()
Dim a(9) As Single
Dim aa As New Class1
aa.Run a()
MsgBox a(2)
End Sub
748
5134

被折叠的 条评论
为什么被折叠?