Программа определения последней цифры числа

@gick · Регистрация: 01.12.2015

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

Всем привет! Возникла такая проблема: не могу составить программу по VBA: определение последней цифры числа. Надеюсь что кто-нибудь поможет

@Димит · 06.12.2015, 15:44

Сообщение от Svsh2015

добрый день,gick

gick попрощался с этим топиком в 11 сообщении, дальше пошёл флуд

@Sasha_Smirnov · 17.12.2015, 21:34

Эх, Димит, невысокого же вы мнения о глубине наших глубин!

Это был тематический форумный расколбас, а gick на то и gick, чтобы дать повод.

@zoyac · 14.05.2019, 15:55

самый простой вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub last_digit()
    Dim a As Long
    Dim n As Integer
    Dim p As Integer
    Dim i As Integer
    Dim s As String
    
    s = InputBox("Введите натуральное число а и нажмите ОК")
    a = Val(s)
    s = InputBox("Введите натуральную степень n и нажмите ОК")
    n = Val(s)
    
    a = a Mod 10: p = a
    
        For i = n To 2 Step -1
         a = a * p: a = a Mod 10
            Next i
    Dim Lst As Integer
        Lst = MsgBox(s, vbYesNo, "Вычислить последнюю цифру степени?")
            If Lst = vbYes Then MsgBox "последняя цифра числа равна:  " & a
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@gick 0 / 0 / 0 Регистрация: 01.12.2015 Сообщений: 22

	Программа определения последней цифры числа 05.12.2015, 12:41. Показов 13155. Ответов 22 Метки нет (Все метки) Всем привет! Возникла такая проблема: не могу составить программу по VBA: определение последней цифры числа. Надеюсь что кто-нибудь поможет 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	17.12.2015, 21:34
	Эх, Димит, невысокого же вы мнения о глубине наших глубин! Это был тематический форумный расколбас, а gick на то и gick, чтобы дать повод. 0