国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
    主站蜘蛛池模板： 樟树市| 饶河县| 大渡口区| 汶川县| 庄河市| 辉南县| 浠水县| 嘉禾县| 平遥县| 洪湖市| 遂平县| 滨海县| 北辰区| 双牌县| 炉霍县| 敖汉旗| 新野县| 都江堰市| 咸丰县| 斗六市| 海原县| 温泉县| 香格里拉县| 印江| 久治县| 锦州市| 海城市| 喀喇| 和龙市| 富蕴县| 海淀区| 右玉县| 玉龙| 天津市| 甘谷县| 个旧市| 神池县| 墨竹工卡县| 庆云县| 岐山县| 平乐县|