не пойму как составить программу на Visual Basic

@djs_driver · Регистрация: 22.03.2015

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

-вывод последней цифры числа;
-вывод исходного числа без последней цифры;
-вычисление суммы двух последних цифр числа;
-выводит исходное число, заменив последнюю цифру на ноль.

@Апострофф · 23.03.2015, 07:37

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

не пойму как

И не поймёшь никогда, если не нажмёшь Ф1 и(ли) не спросишь у волшебника гугла и(ли) не начнешь что-нить делать сам!

Visual Basic
1
n = 1234567

1.

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

последняя цифра числа Basic

Visual Basic
1
MsgBox n Mod 10, , "Последняя цифра числа " & n

2.

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

исходное число без последней цифры

Visual Basic
1
MsgBox n \ 10, , "Исходное число без последней цифры"

3.

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

сумма двух последних цифр числа

Visual Basic
1
MsgBox n Mod 10 + n \ 10 Mod 10, , "сумма двух последних цифр числа"

4.

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

заменить последнюю цифру на ноль

Visual Basic
1
MsgBox (n \ 10) * 10, , "заменить последнюю цифру на ноль"

@vasiliw8 · 24.03.2015, 20:54

Апострофф,

А если цифр будет больше десяти?

@Апострофф · 24.03.2015, 20:56

vasiliw8, будешь работать со строкой, это ненамного сложнее.

@vasiliw8 · 25.03.2015, 12:57

момент

Добавлено через 36 минут

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
Private Sub Form_Load()
 
 MyString = "123458962103647" 'создаем строку для примера
 MyLen = Len(MyString) ' длина строки MyString
 LastSign = Mid(MyString, MyLen)  'возвращает последний знак
    MsgBox "последний знак      " & LastSign ' сообщение о возвращении последнего знака
  '------------------------------------------------------------------------------------------------------------
 MyLen1 = MyLen - 1 'уменьшаем длину строки  MyLen на 1
 MyString1 = Mid(MyString, 1, MyLen1) ' возвращение строки без  последнего знака
    MsgBox "возвращает строку без  последнего знака   " & MyString1 'сообщение о возвращении строки без  последнего знака
  '------------------------------------------------------------------------------------------------------------
 LastSign1 = Mid(MyString1, MyLen1) ' возвращение строки без  последнего знака
 Sum2Last = Val(LastSign) + Val(LastSign1) 'возвращает сумму двух последних цифр
    MsgBox "сумма двух последних цифр   " & Sum2Last 'сообщение о возвращении суммы двух последних цифр
  '------------------------------------------------------------------------------------------------------------
 LastSign2 = 0 'присваиваем последнему знаку "0"
 MyZero = MyString1 & LastSign2 ' заменяем последний знак в MyString на "0"
    MsgBox "последний знак изменен на 0    " & MyZero ' "сообщение о замене последнего знака в MyString на "0"
 
End Sub
 
Private Sub Label2_Click()
End
End Sub

@Апострофф · 25.03.2015, 13:24

Много буков

Visual Basic
1
2
    MsgBox "последний знак      " & Right$(MyString, 1) ' сообщение о возвращении последнего знака
    MsgBox "возвращает строку без  последнего знака   " & Left$(MyString1, Len(MyString) - 1) 'сообщение о возвращении строки без  последнего знака

@Наталья92 · 10.02.2016, 11:11

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

MyString = "123458962103647" 'создаем строку для примера

Добрый день! Скажите, пожалуйста, как описать переменную, если мы сами вводим число на форме?

@Наталья92 · 10.02.2016, 11:15

В чём ошибка, помогите, пожалуйста?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim s As Single
s = Val(Text1.Text)
 
 MyLen = Len(s)
 LastSign = Mid(s, MyLen)
    MsgBox "последний знак   " & LastSign
  
 MyLen1 = MyLen - 1
 s1 = Mid(s, 1, MyLen1)
    MsgBox "возвращает строку без  последнего знака   " & s1
 
 LastSign1 = Mid(s1, MyLen1)
 Sum2Last = Val(LastSign) + Val(LastSign1)
    MsgBox "сумма двух последних цифр   " & Sum2Last
  
 LastSign2 = 0
 MyZero = s1 & LastSign2
    MsgBox "последний знак изменен на 0    " & MyZero
 
End Sub

Shersh · 10.02.2016, 11:26

Visual Basic
1
2
Dim s As String 'Single
s = Text1.Text

Добавлено через 45 секунд

Не по теме:

На теги опять забили?

@Наталья92 · 10.02.2016, 12:21

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

Dim s As String
s = Text1.Text

Большое спасибо!
Я не забила на теги. Честно попробовала сделать, как Вы написали и даже отправила сообщение, но оказалось, что они вообще исчезли. Поэтому отправила новое сообщение по-старому

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@djs_driver 0 / 0 / 0 Регистрация: 22.03.2015 Сообщений: 3

	не пойму как составить программу на Visual Basic 22.03.2015, 21:48. Показов 1607. Ответов 9 Метки нет (Все метки) -вывод последней цифры числа; -вывод исходного числа без последней цифры; -вычисление суммы двух последних цифр числа; -выводит исходное число, заменив последнюю цифру на ноль. 0

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249
	24.03.2015, 20:54
	Апострофф, А если цифр будет больше десяти? 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	24.03.2015, 20:56
	vasiliw8, будешь работать со строкой, это ненамного сложнее. 0

не пойму как составить программу на Visual Basic

Решение