新手学VB,定义声明问题--跪求

Question

请高手帮忙分析。。以下过程定义合法性..和为什么Sub P1（x）As SingleFunction P1(ByVal x)Sub PP(ByVal x，ByVal y)Sub PP(x,ByVal y)Sub PP(x,y)Sub PP(ByVal x,y)

Answer 1

Sub P1（x）As Single   这个不能有返回值吧
---下面的 x y 没有类型吗 不知道这样能不能用
Function P1(ByVal x)  Sub PP(ByVal x，ByVal y) Sub PP(x,ByVal y) Sub PP(x,y) Sub PP(ByVal x,y)

Answer 2

修改如下:  Public声明公用，Private声明私用，x,y应定义数据类型,函数还可定义返回值。
Private Sub P1（x）
 ........
End sub Private Function P1(ByVal x As long)
 ...........
End function Private Sub PP(ByVal x，ByVal y) 
 ........
End subPrivate Sub PP(x,ByVal y) 
 ........
End subPrivate Sub PP(x,y) 
 ........
End subPrivate Sub PP(ByVal x,y)
 ........
End sub

Answer 3

sub 无返回值，function要有返回值和返回值类型。函数参数要有类型。 

Answer 4

Sub P1（x）As Single  '不合法，过程序没有返回值，过程不能as ....
Function P1(ByVal x)  '合法，返回一个variant值
Sub PP(ByVal x，ByVal y) '合法
Sub PP(x,ByVal y)        '合法
Sub PP(x,y)              '合法
Sub PP(ByVal x,y)        '合法过程序或函数中定义变量，用byval是传值，byref是传地址，不写是传地址。