主题：[原创] 分享自定义函数 “？” 提示法

自定义函数多了，容易忘记函数的用途与用法，

为此，编制自定义函数 “？” 提示法  分享之。

如：Functions.Execute("CZ_按分数查找最低位次","?")

此主题相关图片如下：自定义函数.png

代码如下：请大家参考

Dim str1,str2,str As String  

Dim fs As Integer

Select Case args.Length  

Case    0

fs = 500 '分数  

str1 = "2017" '年度  

str2 = "普通理科" '科类  

Case 1

If  CStr(args(0)) = "?"  Then

str = "本函数用于计算考分的最低位次!" '第一行是函数用途

'第二行是函数用法

str = str & chr(10) & chr(13)& chr(10) & chr(13) & _

"函数的第一个参数是:考分"  

str = str & chr(10) & chr(13)& chr(10) & chr(13) & _

"函数的第二个参数是:年度 如:2016"

str = str & chr(10) & chr(13)& chr(10) & chr(13) & _

"函数的第三个参数是:科类 如:普通理科"

MessageBox.Show( str ,"函数使用说明:")

return nothing

Else  

fs = args(0) '分数

str1 = "2017" '年度

str2 = "普通理科" '科类

End If

Case 2  

fs = args(0) '分数

str1 = args(1) '年度

str2 = "普通理科" '科类

Case 3

fs = args(0) '分数

str1 = args(1) '年度

str2 = args(2) '科类

Case Else MessageBox.Show("参数过多!","提示")

 End Select