Question

VB函数返回值的问题！

Private Sub Command1_Click()
Dim xx#, yy#, qzyzwx!, hzyzwx!, bb#, ll#, X#, Y#
xx = Val(Text2.Text)
yy = Val(Text3.Text)
qzyzwx = Val(Trim(Text1.Text))
hzyzwx = Val(Trim(Text4.Text))
Call gsfs(qzyzwx!, cza#, bl#, xx#, yy#)
Call gsfs(qzyzwx!, cza#, bl#, xx#, yy#)
Call gszs(hzyzwx!, cza#, bl#, ll#, bb#)
Call gszs(hzyzwx!, cza#, bl#, ll#, bb#)
Text5.Text = X 'Str(X)

Text6.Text = Y 'Str(Y)

End Sub
gsfs函数是高斯反算函数，他的返回值要作为高斯正算函数的参数
gszs函数是高斯正算函数，这个程序能运行，但是就是返回值为0！我这个程序的哪地方有问题 啊！
Private Sub Command1_Click()
Dim xx#, yy#, qzyzwx!, hzyzwx!, bb#, ll#, X#, Y#
xx = Val(Text2.Text)
yy = Val(Text3.Text)
qzyzwx = Val(Trim(Text1.Text))
hzyzwx = Val(Trim(Text4.Text))
ll = gsfs(qzyzwx!, cza#, bl#, xx#, yy#)
bb = gsfs(qzyzwx!, cza#, bl#, xx#, yy#)
X = gszs(hzyzwx!, cza#, bl#, bb#, ll#)
Y = gszs(hzyzwx!, cza#, bl#, bb#, ll#)
Text5.Text = Str(X)

Text6.Text = Str(Y)

End Sub

这是我稍作修改的程序，您看有什么问题，望指教！gsfs和gszs的计算出的都是多个变量值，我先进行反算，得到的ll（经度），bb（纬度），然后正算要用到这两个量，您看是不是这个地方出问题了！正算得到的多个变量中的X、Y是最终想要的量！这应该返回多个值的问题吧！谢谢！

具体怎么改动，您能帮我改改吗？急用，感激

Answer 1

你根本没有得到他的返回值。你只是把它当成 过程调用。。。

X= gsfs(qzyzwx!, cza#, bl#, xx#, yy#)

如果你正确调用了函数，并且传递正确的参数（参考你这个函数的定义）
那么返回值就是你需要的

Answer 2

返回值中没有参数X, Y，就是默认值为0。

Answer 3

应该把这些做成函数，然后调用，call是调用过程的，函数应该为
Text5.Text = X 'Str(gszs(hzyzwx!, cza#, bl#, ll#, bb#)
)