'定义一个全局函数用来给字符串填充空格,补足位数
Public Function fillstr(str As String, num As Integer)
Do While Len(str) < num
str = str + " "
Loop
'return str '我用这个返回字符串会出错,怎么办

End Function
帮我改一下

返回值在哪?

呵呵
不知道你这个子程序的意思是什么?
返回值用RETURN不知道对不对

public function findcolour(x as long ,y as long)
'处理 然后把函数获得的值传给findcolour而不是一个RETURN就行的...
end function

'定义一个全局函数用来给字符串填充空格,补足位数
Public Function fillstr(str As String, num As Integer) As String
Do While Len(str) < num
str = str + " "
Loop
fillstr = str

End Function

现在对吗?

恩  试试吧