Question

vb 电话号码升位程序！利用inputbox函数输入原6位电话号码，再利用msgbox语句输出升位

vb 电话号码升位程序！利用inputbox函数输入原6位电话号码，再利用msgbox语句输出升位后的电话号码（最高8位）！求vb程序大神急救！！！！

Answer 1

程序框子如下：

Sub Demo()
    Dim strPhoneNumber As String
    
    strPhoneNumber = InputBox("请输入六位电话号码")
    
    ' /* 用户点击 [确定/OK] 按钮. */
    If StrPtr(strPhoneNumber) Then
        
        ' /* 验证电话号码的格式. */
        If strPhoneNumber Like "######" Then
            ' 升位电话号码的代码从这里开始
            
        Else
            MsgBox "输入错误！", vbCritical, "错误"
        End If
    End If
End Sub

请给出升位电话号码的规则，这个程序方能完整，O(∩_∩)O谢谢~

追问

谢谢！