VB中如何用MID函数判断回文数，就是像123321这样正反一样的数

VB中如何用MID函数判断回文数，就是像123321这样正反一样的数

Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。
VB中
Mid(String As Variant, Start As Long, [Length As Variant]) As Variant
Mid$(String As String, Start As Long, [Length As Variant]) As String
Excel中
MId(text, start_num, num_chars)
说明：这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars参数不可省略。
参数列表
Mid函数参数

说明：当Start（start_num）参数小于1时，函数返回一个错误；当Strat参数值大于String（text）参数长度时，返回一空字符串；若从Start参数起截取长度超出字符串末尾，或Length参数被省略，则返回Start参数位置到字符串结尾的所有字符。
VB中的Mid和Mid$两种写法在用法上没有区别。
要得到字符串的长度，可以使用Len函数。
VB和Excel中都有MidB函数，与Mid不同，它是以字节为单位进行字符串截取的，同时，可以用LenB函数得到字符串的字节数。
范例：下面的示例展示了VB中如何使用Mid函数。其中所有的“Mid”都可以用“Mid$”代替。

Private Sub Command1_Click()
Dim a As String
a = InputBox("请输入一串字符：")
For i = Len(a) To 1 Step -1
a1 = a1 & Mid(a, i, 1)
Next i
If a = a1 Then MsgBox "是回文"
End Sub