sub是可以有参数的，但是是没有返回值的。
成都创新互联公司是一家集网站建设,桐柏企业网站建设,桐柏品牌网站建设,网站定制,桐柏网站建设报价,网络营销,网络优化,桐柏网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
你可以用function
如
Function add(ByVal a As Integer, ByVal b As Integer)
add = a + b
End Function
a = add(1,1) 这样a = 2
【转】VB.net是怎样做到的——Handles和WithEvents - ==Sdhjt的窝== - 博客频道 - CSDN.NET
看看这个博客应该可以帮到你。一般定义方法，函数，不需要“Handles abc”这一截
Public Function getmastt(aUser As Variant, scustid As Variant, ssaleas As Variant) As ADODB.Recordset
Dim adoRs As New ADODB.Recordset
Dim sTableName(0) As String, sFullName(0) As String, sDsn(0) As String
Dim sWhere As String
Set oGetPath = CreateObject("M2000UTIL.GETPATH")
sTableName(0) = "QCHKAPPCON"
oGetPath.getpath aUser, sTableName(), Null, sFullName(), sDsn()
sWhere = ""
sWhere = sWhere + " and a.custid= '" scustid "' and a.saleas='" ssaleas "'"
sSql = "select * from " sFullName(0) " a where 1=1 " sWhere
sSql = sSql + " order by a.CUSTID"
With adoRs
.CursorLocation = adUseClientBatch
.CursorType = adOpenKeyset
.LockType = adLockBatchOptimistic
.Open sSql, sDsn(0)
End With
Set getmastt = adoRs
Set adoRs = Nothing
End Function
refresh是vb的关键词，你最好不要用这个名字作为你自定义函数的名字，当然，VB也允许你用Overrides关键词重载这个方法。
在vb.net中定义staticextern函数：用static声明的局部变量。static是C++中常用的修饰符，它被用来控制变量的存贮方式和可见性。extern，C是使C++能够调用C写作的库文件的一个手段。
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function