Написать логическую функцию "Имеется ли в целом числе одинаковые цифры" - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д