急求一道VB编程题答案！！！！！求帮忙！！！！

2025-05-18 23:58:50

推荐回答（1个）

回答1：

sub command1()
      dim tmp as string
      dim arr()
      tmp=text1.text
      tmp=replace(tmp,"－","-")    ‘预防中英文短线混淆
      if instr(tmp,"-")=0 then
             msgbox "您输入的格式不对！请重新输入，要求有区号"
             exit sub
      end if
      arr=split(tmp,"-")
      arr(1)=trim(arr(1))       '预防首尾空格的影响
      arr(1)=right((val(left(arr(1),1))+1),1) & right(arr(1),len(arr(1))-1)'此处预防加1变成10的情形，该情形直接取个位数0    
      arr(1)=6 & arr(1)
      lable1.caption=arr(0) & "-" & arr(1)
end sub