有返回值的是函数。
Public Function GetVlaue(iValue as integer) As integergetvalue=ivalue*10End Function调用:dim i as integer
i=GetVlaue(2)
debug.print i 'i=20
Public Function GetVlaue(iValue as integer) As integergetvalue=ivalue*10End Function调用:dim i as integer
i=GetVlaue(2)
debug.print i 'i=20
解决方案 »
- 关于string转换为byte的问题
- 求excel的宏基础教程
- winsock问题,连带二进制数据转换。这几天搞得人都要晕过去了。
- 把多幅圖片轉換成動態的gif
- //大家帮我看一看,我的程序在安装时总有问题////
- 简单问题,在线等,马上给分,请进-》
- 谁可以告诉我如何用datagrid实现查询功能? 请教各位大虾
- vb怎样修改文件夹acl权限
- VB客户端向ASP web 服务器申请数据出错处理
- RtlMoveMemory这个API函数的具体的使用方法!高手请指教!1!!
- 各位虾哥:救救我吧!神啊,救救我吧!!不规则的点用光滑的曲线连接,是那些点均匀分布在线的两旁,如何做呢?
- 请大家回答一个问题
getvalue=20
GetVlaue=getvalue
End Function
呵呵 给分
Public Function GetVlaue() As String
getvalue=20
GetVlaue=getvalue
End Function这个 在form1里Private Sub Form_Click()
msgbox GetVlaue
end sub
运行 然后 点一下 窗体