vb中的函数调用问题

Question

dim x1,y1 as single
     .
     .
     .
call catch(x1,y1)
     .
     .
     .
private sub catch(m as single,n as single)
     .
     .
     .
程序运行后显示不匹配错误
是不是在函数括号里一定要是数字啊？
有没有函数能实现把变量转化为变量的值？

Answer 1

dim x1 as Single, y1 as single

Answer 2

不是，你这样定义的方式不对
dim x1,y1 as single
这样X1不是single类型的，而是varint，所以类型不匹配。

Answer 3

dim x1 as single,y1 as single

Answer 4

////dim x1,y1 as single
VB基础中就有介绍，你的X1被声明为一个varint型，而不是你想要的single
所以出错,应该分两步来声明
dim x1 as single
dim y1 as single

Answer 5

//有没有函数能实现把变量转化为变量的值
晕～x1dim x1 as Single, y1 as single
或者
private sub catch(m as single,n as single)
改为private sub catch(m as Variant,n as Variant)