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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы