не пойму как составить программу на 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

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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114

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

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

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

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

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

Решение