如下
记住function是有返回值sub 是没有返回值
Private function fun1() as integer
End function
//这是定义一个有返回值的函数注意定义一个有返回值的函数时一定要记的给这个函数指定一个返回的类型上面红部分就是函数返回的类型。
Eg1：下面的函数是正确的
Private sub fun2()
function怎么记忆End sub
Eg2：下面的函数错误,VB不知道红字体的是什么东西
Private sub fun3() as integer
End sub
//这是定义一个没有返回值的函数注意定义一个没有返回值的函数时你要是给它指定一个返回类型那么就会报错，既然是定义成sub(就是没有返回值)了再给它指定一个返回类型,VB不知道这是什么东西就报错
观察上面的区别
如有”basegotopic”这么一串字符。
当单击按钮时要把这一串字符改为大写
那么函数可以这么写
Private function fun1(strTemp as string) as string
dim tStr as string
tStr=UCase(strTemp)
fun1=tStr
End function
那如何调用这个函数点击按钮时就要按下面的写
Dim str1 as string
Str1=fun1(“basegotopic”)
看蓝的那句
定义一个string型的变量，用来存函数返回值的因为你上面的那个函数返回类型是string型所以这个变量也要是string型
看红
就是调用fun1这个函数，括号中就是这个函数的参数如果你不写里面的参数则会报
错，由于fun1函数有返回值你必须要个地方存这个返回回来的值
就跟UCase这个函数一样，看fun1函数里面的tStr=UCase(strTemp) UCase 这个函数有返回值所以你要个地方存这个返回回来的值。
这个函数还能这么写
Private sub fun1(strTemp as string)
dim tStr as string
tStr=UCase(strTemp)
fun1=tStr //千万不要写这句，这么写是错的，因为这个函数是sub(没有返回值) End sub
注意跟上面的那个函数对比上面的是function(有返回值的函数必须要这样) 而这个是sub(没有返回值的函数必须要这样).。。
注意这个函数的红部分。。不能这么写
你要实现的功能是把一个字符串转换成大写那么具体的怎么转换就可以写一个函数了，那到底是要写有返回值的还是没有返回值的??如下
既然是要转换成大写那说明你需要这个大写的字符串，既然需要那么你所定义的函数是不是要转换完字符串后要把大写的字符串送回来给你。
如下
要在数据库里增加一条新数据。那我可以写如下函数
Private function fun1() as Boolean
If 数据库已连接then
在数据库增加数据
Fun1=true
Else
Fun1=false
End if
End function
Private sub fun2()
If 数据库已连接then
在数据库增加数据
msgbox“增加成功”
Else
msgbox“增加失败”
End if
End sub
注意上面两函数的定义和写法
上面的两个函数都可以实现在数据库增加一条数据，那到底要用哪个呢。这看你自己是怎么
想的。。
如下
在数据库增加数据的时候你不能保证它能正确的增加。如果数据库服务器关了怎么办，这样就会增加失败那你必须要给出提示到底是增加成功了还是失败了
那么你就可以这么写
Dim a as Boolean
A=fun1() //注意你是调用fun1 而fun1是有返回值的fun1返回的是true 和false If a=true then
msgbox“增加成功”
Else
msgbox“增加失败”
End if
这段代码是调用fun1这个函数
再看调用fun2函数如下
这时你要调用fun2函数来增加数据因为这个函数没有返回值所以不要再定义变量判断什么的。。可以直接如下
Call fun2
这样就行了。想一下如果这个函数增加失败了怎么办，所以要加个判断增加是否成功啊，那在哪判断呢。可不能像上面那断代码那样判断了。因为fun2是不会返回true 或false 的,，也许你想到了可以在这个函数里判断。如果成功就提示成功如果失败就提示失败。(这时跟fun1的区别就很显明了,fun1函数里如果增加失败

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。