帮帮忙---vb抽奖：怎样把电话号码中间几个数变成“*”号

答案：假如有一个  12345678的号码 你要把它从第4位开始的，中间3个数变成 * 号 ：
a="12345678"
  replace(a,mid(a,4,3),"***")的结果就是123***78

其他：可以问我。怎么样都行啊，方法多这咧 防止别人胡乱打 这个电话 用多个文本框或者标签组合嘛，中间几个数的用一个文本框来显示，其PasswordChar设置为"*"就实现了 
当然用replace的方法要方便得多 

上一个：VB程序设计，编写代码求随机产生20名同学的身高,求最高、最低、平均身高,身高范围是1.55~1.80米。
下一个：随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写