国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發(fā) > 綜合 > 正文

VB 手機(jī)號碼編碼程序

2024-07-21 02:20:51
字體：大 中 小
供稿：網(wǎng)友
  • 本文來源于網(wǎng)頁設(shè)計(jì)愛好者web開發(fā)社區(qū)http://www.html.org.cn收集整理，歡迎訪問。
    • public function telc(num as string) as string

    dim tl as integer
    dim ltem, rtem, ttem as string
    dim ti as integer
    ttem = ""
    tl = len(num)
    if tl > 14 then
    num = mid(num, 1, 14)
    tl = 14
    end if

    if tl = 11 then
    tl = tl + 2
    num = "86" & num
    end if
    if tl mod 2 = 1 then
    tl = tl + 1
    num = num + "f"
    end if

    for ti = 1 to tl step 2
    ttem = ttem & mid(num, ti + 1, 1) & mid(num, ti, 1)
    next ti
    telc = ttem

    end function

    發(fā)表評論 共有條評論
    用戶名: 密碼:
    驗(yàn)證碼: 匿名發(fā)表
    主站蜘蛛池模板： 青海省| 邛崃市| 平阴县| 明星| 天长市| 温州市| 仪陇县| 深州市| 抚顺县| 永城市| 临夏市| 大邑县| 宿松县| 宜城市| 祥云县| 子长县| 余庆县| 汕尾市| 宽城| 舞钢市| 紫云| 襄樊市| 津市市| 房产| 穆棱市| 安丘市| 呈贡县| 乌鲁木齐县| 邯郸县| 寿宁县| 枝江市| 全椒县| 和龙市| 汝南县| 乐清市| 久治县| 南乐县| 年辖：市辖区| 苍溪县| 西乡县| 广州市|