中野亚莉莎的神秘代码 尽可能的多点
答案:1 悬赏:70 手机版
解决时间 2021-03-23 21:54
- 提问者网友：富士山上尢
- 2021-03-23 13:00
中野亚莉莎的神秘代码 尽可能的多点
最佳答案
- 五星知识达人网友：人類模型
- 2021-03-23 14:30
Public Function f(ByVal s As String) As Boolean
Dim i As Integer
Dim ts As String
ts = "01234567"
f = True
For i = 1 To Len(s)
If InStr(ts, Mid(s, i, 1)) = 0 Then
f = False
Exit For
End If
Next i
End Function
Dim i As Integer
Dim ts As String
ts = "01234567"
f = True
For i = 1 To Len(s)
If InStr(ts, Mid(s, i, 1)) = 0 Then
f = False
Exit For
End If
Next i
End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯