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

发布网友发布时间：2022-04-25 00:05

我来回答

共2个回答

热心网友时间：2023-10-16 21:11

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$”代替。

热心网友时间：2023-10-16 21:12

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