首页 > 开发 > 综合 > 正文

VB 手机号码编码程序

2024-07-21 02:20:51

字体：大中小

来源：转载

供稿：网友

本文来源于网页设计爱好者web开发社区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

上一篇：VB PDU US2 编码

下一篇：在VB中使用IE的 WebBrowser控件改进界面设计

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

最牛同桌！我考了696分我同桌考了703分

2024-06-26 22:28:41

650分！高二女生考入北大：遗憾不能上高三

2024-06-26 22:26:16

男生估分600只考了397 妈妈：高考虽重要，但不代表所有

2024-06-26 22:23:01

唐尚珺回应是否会直播带货：有人出100万想和他合作！

2024-06-25 19:29:23

名校抢人名场面：清华、北大太拼了！

2024-06-25 19:22:14

男生高考语文满分！网友：第一次听说

2024-06-25 19:19:15

疑难解答

图片精选

网友关注