Написать логическую функцию "Имеется ли в целом числе одинаковые цифры" - VB
Формулировка задачи:
Написать логическую функцию, отвечающую на вопрос: "Имеется ли в целом числе одинаковые цифры?".
это должно быть в электроном виде.
Решение задачи: «Написать логическую функцию "Имеется ли в целом числе одинаковые цифры"»
textual
Листинг программы
Function F(ByVal b As String) As Boolean
Dim a
For i = 0 To 9
a = Split(b, i)
If UBound(a) >= 2 Then F = True
Next
End Function
Private Sub Command1_Click()
If F(InputBox("", , "123456789")) = True Then MsgBox ("YES") Else MsgBox ("NO")
End Sub