Private Sub Command1_Click()
Dim x As String
x = InputBox("请输入一个数", , 13622012345#)
If IsNumeric(x) And Len(x) = 11 And Left(x, 3) = 136 Then
MsgBox "136手机号正确:" &x
Else
MsgBox "号码错误"
End If
End Sub
vb或js判断手机号或座机号
测试手机的主要参数有：
1） 发射功率等级 TX power level(5～19)。
2） 频率误差 frequency FER。
3） 相位误差 Phase PER。
4） 射频频谱 RF Spectrum。
5） 开关谱 SwitchSpectrum。
6） 接受灵敏度 RX Sensitivity。
7） 调制谱 Modulation Spectrum。
扩展资料：
测试系统需要的主要设备：
1） 模拟基站的综合测试仪 如德国罗德-史瓦茨公司的 CMU200。
2） 通信专用电源 如 2304A 双通道移动通讯高速电源，该电源在脉冲 负载变化时展现
了他显著的电压稳定性，同时能够测量负载电流。对于测试需电池供电的无线通讯设备（例
如便捷式电话），在非常短的时间间隔内经历真实的负载变化而言，这种电源是最优化的。
3） 手机夹具等。
4） 测试开发软件 labview或VB 等 labview快速方便。
手机号长度为11位，这是固定的。并且首位肯定是1
座机号位数不固定，首位不会是1
设一个号码为变量X1
if len(x1)=11 and left(x1,1)="1" then
'手机号
else
‘座机号
end if
以上就是关于vb编程：编写验证用户是否输入以136开头的手机号码的正确性，并在页面给出验证结果全部的内容，如果了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
