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