Определить, есть ли среди цифр заданного пяти-значного числа одинаковые

09.10.2011, 16:53. **Показов** 1887. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Привет. Вот на втором курсе появился VBA. Прошло уже 4 урока а вся группа застряла на 2-3 задание.
Я ни как не могу понять как сделать прогу. Мне нужно - "Определить, есть ли среди цифр заданного пяти-значного числа одинаковые.".
Так же есть условие проги - Программа на VBA должна быть оформлена в виде подпрограммы Function.

Объясните пожалуйста как делать.

@Димит · 11.10.2011, 09:28

Такие вопросы нельзя задавать на форуме! Правильный вопрос - это когда ответ составит не более 5 строчек.

Ну а теперь ответ.
Открываешь например Excel.
Открываешь редактор Visual Basic.
Вставляешь в проект простой модуль.
Вставляешь в модуль функцию с именем, например Srawnit.
Функции надо передать число с которым она будет работать. В скобки ей вставляешь что она должна получить.
Функция должна возвратить что-то. В нашем случае "есть" или "нет" совпадений. Т.е. она должна возвратить значение ввиде Boolean, приписываем это.
В функции обьявляем переменные, которые потребуются. И пишем сам алгоритм вычисления.
Всё основная задача решена, но теперь нужно организовать ввод-вывод данных и заодно проверку вводимых данных. В итоге код:

Visual Basic

Option Explicit
 
 
Public Function Srawnit(x As Long) As Boolean
Dim str As String, i As Long, j As Long
str = CStr(x)
For i = 1 To 4
    For j = i + 1 To 5
        If Mid(str, i, 1) = Mid(str, j, 1) Then
            Srawnit = True
            Exit Function
        End If
    Next j
Next i
Srawnit = False
End Function
 
Public Sub wwod()
Dim y As Long
y = Application.InputBox("Введите пятизначное число", Type:=1)
If y < 10000 Or y > 99999 Then
    MsgBox "Ошибка. Число не пятизначное"
Else
    If Srawnit(y) Then
        MsgBox "есть одинаковые"
    Else
        MsgBox "нет одинаковых"
    End If
End If
End Sub

В следующий раз спрашивай что конкретно не понятно, на каком этапе.

Kirill
		1
	Определить, есть ли среди цифр заданного пяти-значного числа одинаковые 09.10.2011, 16:53. Показов 1887. Ответов 1 Метки нет (Все метки) Привет. Вот на втором курсе появился VBA. Прошло уже 4 урока а вся группа застряла на 2-3 задание. Я ни как не могу понять как сделать прогу. Мне нужно - "Определить, есть ли среди цифр заданного пяти-значного числа одинаковые.". Так же есть условие проги - Программа на VBA должна быть оформлена в виде подпрограммы Function. Объясните пожалуйста как делать.

	11.10.2011, 09:28