这段vb代码,把数组定义成逻辑型来判断数字字符串是否由...
发布网友
共1个回答
热心网友
Private Function rep(s As String) As Boolean
'判断字符串是否有重复数字
Dim a(0 To 9) As Boolean, i As Integer, p As Integer
'排除含有 0 的情况
a(0) = True
For i = 1 To Len(s)
'从第一个字符开始，取其中一个数字
'
p = Val(Mid(s, i, 1))
'''''''''''''''
Debug.Print "当前取 " & p
If a(p) Then
'含有重复数字，直接退出函数，返回值为 false
'''''''''''''''''''
Debug.Print p & " 是重复的。"
Exit Function
Else
'没有重复数字，将这个数字的存在做个标记 即 a(p)=ture)
a(p) = True
End If
Next i
rep = True
End Function
这段程序的意义就在于查找数字是否重复，为了便于你理解，稍微做了一点修改。
调试方法：
Private Sub Form_Load()
Debug.Print rep("324235")
End Sub
