Function te(abc As double,ct As double,k As Double Ptr,bb As Double Ptr)As integer ‘定义函数以及返回指针
Dim c As double,b As double,d As double,e As double,f As double,g As Double
c=2.32
b=1.23
d=abc
e=ct
f=(d-e)*c
g=(d-e)*b
*k=f * 指针赋值操作
*bb=g * 指针赋值操作
End Function
Dim shang As double,xia As Double,deshu1 As Double,deshu2 As Double
Input shang
Input xia
te(shang,xia,@deshu1,@deshu2) ’指针指定地址赋值
Print deshu1
Print deshu2
Sleep

dim p as byte ptr ptr ptr *定义一个指向指向指针的指针的指针