A string letter

xiaoxiao2021-03-06  67

'Code By evil spirits' mailto: DemonStudio@hotmail.comPrivate Function PYin (ByVal Str As String) As StringDim mLen As Long, mLong As Long, PY As StringmLen = Len (Str) For mLong = 1 To mLenSelect Case Asc (Mid $ ( Str, mlong, 1)) Case -20319 to -20284: py = "a" case -20283 to -19776: py = "b" case -19775 to -19219: py = "c" case -19218 to -18711: PY = "D" case -18710 to -18527: py = "e" case -18526 to -18240: py = "f" case -18239 to -17923: py = "g" case -17922 to -17418: py = "H" case -17417 to -16475: py = "j" case -16474 to -16213: py = "k" case -16212 to -15641: py = "l" case -15640 to -15166: py = "m "Case -15165 to -14923: py =" n "case -14922 to -14915: py =" o "Case -14914 to -14631: py =" p "case -14630 to -14150: py =" q "case -14149 to -14091: py = "r" case -14090 to -13319: py = "s" case -13318 to -12839: py = "t" case -12838 to -12557: py = "w" case -12556 TO-11848: py = "x" case -11847 to -11056: py = "y" case -11055 to -2050: py = "z" end selectpyin = pyin & pynext mlongend function

Private sub text1_change () me.caption = pyin (text1) End Sub

转载请注明原文地址:https://www.9cbs.com/read-119704.html

New Post(0)