Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Kirill
1

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

09.10.2011, 16:53. Просмотров 1493. Ответов 1
Метки нет (Все метки)

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

Объясните пожалуйста как делать.
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2011, 16:53
Ответы с готовыми решениями:

Определить, есть ли среди цифр заданного пятизначного числа одинаковые
Определить, есть ли среди цифр заданного пятизначного числа одинаковые? Написать задачку с помощью...

Определить, есть ли среди цифр заданного пятизначного числа одинаковые (Без MsgBox)
Function opredelenie() Dim b(9) As Byte Dim N As Long N = InputBox("Введите число") Do While N...

Есть ли среди цифр заданного пятизначного числа одинаковые
Есть ли среди цифр заданного пятизначного числа одинаковые? Помогите составить..

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

1
Димит
88 / 35 / 14
Регистрация: 03.11.2010
Сообщений: 429
11.10.2011, 09:28 2
Такие вопросы нельзя задавать на форуме! Правильный вопрос - это когда ответ составит не более 5 строчек.

Ну а теперь ответ.
Открываешь например Excel.
Открываешь редактор Visual Basic.
Вставляешь в проект простой модуль.
Вставляешь в модуль функцию с именем, например Srawnit.
Функции надо передать число с которым она будет работать. В скобки ей вставляешь что она должна получить.
Функция должна возвратить что-то. В нашем случае "есть" или "нет" совпадений. Т.е. она должна возвратить значение ввиде Boolean, приписываем это.
В функции обьявляем переменные, которые потребуются. И пишем сам алгоритм вычисления.
Всё основная задача решена, но теперь нужно организовать ввод-вывод данных и заодно проверку вводимых данных. В итоге код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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
В следующий раз спрашивай что конкретно не понятно, на каком этапе.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2011, 09:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить, есть ли среди цифр заданного числа одинаковые
Помогите.. Есть код #include &lt;iostream.h&gt; #include &lt;conio.h&gt; int main(int argc, char* argv)...

Определить, есть ли среди цифр заданного числа одинаковые
Здравствуйте! Прошу помощи при написании одной программы на turbo pascal. Формулировка вопроса...

Определить, есть ли среди цифр заданного трехзначного числа есть одинаковые
Здравствуйте, необходима помощь в решении следующей задачи: Написать программу, в результате...

Определить, есть ли среди цифр заданного трехзначного числа одинаковые
Привет! Помогите составить код прогргаммы для следующей задачи и объяснение этого кода...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.