帮忙写3个vb函数a1,b1,c1

a,b,c已经定义，是号码的百，十，个。a1,b1,c1分别是过滤后号码的百，十，个。例如我定义的过滤函数
Public Function a1(a,b,c,issue)
dim wnmm
dim wnf
Select Case psq(A,B,C,issue)
Case 0
wnf=1

case Else
wnf=0
end Select
dim wnj
Select Case psq5(A,B,C,issue)
Case 0
wnj=1

case Else
wnj=0
end Select
dim wnh
Select Case psq6(A,B,C,issue)
Case 1,2,3
wnh=0

case Else
wnh=1
end Select
dim wni
Select Case psq7(A,B,C,issue)
Case 0
wni=1

case Else
wni=0
end Select
dim wnjj
Select Case psq8(A,B,C,issue)
Case 1,2,3
wnjj=0

case Else
wnjj=1
end Select
wnmm=wnf+wnj+wnh+wni+wnjj

a1=xxx(wnmm)
返回值0-9为号码百位。xxx函数怎么定义啊
不好意思，表达能力有限，耽误你们的时间了！上面wnmm=wnf+wnj+wnh+wni+wnjj是我的过滤方法，值是0-5。
wnmm

在EXCEL中，A1单元格“3元/个”B1单元格“5个”。在B3中输入“=A1*B1" 但结果出错，如何实现此功能？ select top 3 a1,b1 from c1 where ...怎么写搜索最后3条的语句? excel IF函数 当a1,b1,c1,d1,大于5但小于11为1，小于5但大于11为0 的公式怎么写 统计sheet1到sheet30中的a1中有多少个1，怎么写函数？ VB中如何写个函数判断数字与字母 谁帮忙写个php函数 帮忙写个matlab字符串连接函数 帮忙写个VB程序,谢谢 帮忙写个程序（VB） 帮忙写个简单VB程序