Question

"编辑一电话号码升位程序" 一道VB试题,请各位大侠们帮忙解决.谢谢啦!!

试题如下:在窗体建立两个标签(名称为L1和L2,标题属性为"原电话号码","新电话号码"),两个文本框(名称分别为T1和T2),两个命令按钮(名称为C1和C2,标题属性为"升位","结束"),当程序运行时,在文本框T1中输入待升位的电话号码(包含区号,如010-7154321),点击"升位"按钮后,在文本框T2中显示升位后的电话号码.电话号码升位的规律是:a)在该电话号码前固定加上两位号码81;b)原电话号码的第五位后加数字1.
各位大侠们帮帮忙啊,我把自己的全部分都贡献出去了!!!

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

'以下是具体算法,其它的你在设计的时候改它们的属性就好了,注意把名称改对哟!~ ^_^b
Private Sub C1_Click()
Dim n%, str$
n = InStr(T1, "-")
If n <> 0 Then
str = T1
T1.SetFocus
T1.SelStart = n
T1.SelText = "81"
T1.SelStart = n + 7
T1.SelText = "1"
T2 = T1
T1 = str
End If
End Sub

比方说第一行,因为是C1_Click(),所以你必须把命令按钮的名称改为C1,但是默认的是Command1,对吧,你不改,就不会有效果的,那些控件的名称都要在做的时候改好,不然用代码是改不了的...
标题属性就是它的Caption,你把那里的改好就行了,记得,改好名称!!!!
代码我是按你给的名称写的,而默认的都不是那些你说的名称,你肯定直接是用的默认名称吧,对吗?这些代码我全部测试过了,没问题的...自己再试试看?