论坛 › 『 提问交流 』 › 哪位大大帮忙看下我这个自定义函数func到底出了什么问题

srr 发表于 2012-1-30 01:41:10

哪位大大帮忙看下我这个自定义函数func到底出了什么问题

Dim$len,$m,$n,$i,$y,$x[$len],$y[$len+1],$s,$n
       
Func trasnform($m,$n)
           if $m = '000000'   Then
           $an =StringSplit($m,"","0")
           $len = StringLen($m)
           $b = StringLeft("591591591591591",$len)
           $bn = StringSplit($b,"","0")
      
           For $i=1 To $len Step 1
                        Switch Asc($an[$i])
                    Case 97 To 122
                                        $an[$i]=StringRight((Asc($an[$i])-97),1)
                                Case 65 To 90
                            $an[$i]=StringRight((Asc($an[$i])-65),1)
                        EndSwitch
       ; Next
       ;$s = 0
       ;For $i=1 To $len Step 1
       
         $y[$i]=StringRight($an[$i]*$bn[$i],1)
         $s = $s + Int($y[$i])
                   $n= StringRight($s,1)
       next
EndIf
           Return $n
           MsgBox("0","",'$n')
   endfunc
   
   
   
   If $m ='G123456789' then
           trasnform($m,$n)
           MsgBox("0","",'$n')
           exit
        endif

h20040606 发表于 2012-1-31 06:07:54

你得先说明你的目的啊？这个函数想做什么事情啊，别人才能帮你啊

srr 发表于 2012-1-31 11:31:12

我已经解决了，谢谢大家

zitoy 发表于 2012-1-31 13:26:08

先把代码整齐了。

查看完整版本: 哪位大大帮忙看下我这个自定义函数func到底出了什么问题