[求助]：Variant如何赋值？

luchief · 发表于 2004-12-24 11:38:32

您需要登录才可以下载或查看，没有账号？立即注册

×

Public EndPnt As Variant//EndPnt 为2维数组
EndPnt(0)=2.23235
EndPnt(1)=225.35689
直接赋不行，如何办？

ntchjie · 发表于 2004-12-24 13:46:45

直接定义为数组赋值不就可以了。

雪山飞狐(lzh) · 发表于 2004-12-24 15:15:50

Public EndPnt As Variant
Private Sub text()
Dim pnt(1) As Double
pnt(0) = 2.23235
pnt(1) = 225.35689
EndPnt = pnt
End Sub

luchief · 发表于 2004-12-24 16:06:06

那么如何比较两个Variant型的变量是否相同？

自由的鱼 · 发表于 2004-12-29 17:52:36

最初由 luchief 发布
[B]那么如何比较两个Variant型的变量是否相同？ [/B]

用UBOUND先比较一下，如果相同，再进行循环比较！

秦林 · 发表于 2005-1-12 15:41:22

用if ... then语句

账号		自动登录	找回密码
密码			立即注册