Автор Антон Арзуманов задал вопрос в разделе Другие языки и технологии
помогите по vba и получил лучший ответ
Ответ от Dimonыч[гуру]
Число вводится в TextBox1, результат появляется в ListBox1. Правда если число не 5 значное то считает неправильно. Private Sub CommandButton1_Click() Dim a, a1, a2, a3, a4, a5, s As Integer a = TextBox1.Text a1 = Int(a / 10000): a = a - a1 * 10000 a2 = Int(a / 1000): a = a - a2 * 1000 a3 = Int(a / 100): a = a - a3 * 100 a4 = Int(a / 10): a = a - a4 * 10 a5 = a s = 0 If a1 > 5 Then s = s + a1 If a2 > 5 Then s = s + a2 If a3 > 5 Then s = s + a3 If a4 > 5 Then s = s + a4 If a5 > 5 Then s = s + a5 ListBox1.AddItem \"сумма: \" + CStr(s) End Sub
Ответ от Ѓдачник[гуру]
Все неправильно. Тебе надо ввести одно 5-значное число и найти сумму тех цифр, которые больше 5. Лучше так. Private Sub CommandButton1_Click() Dim a As Long, a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer Dim s As In
Все неправильно. Тебе надо ввести одно 5-значное число и найти сумму тех цифр, которые больше 5. Лучше так. Private Sub CommandButton1_Click() Dim a As Long, a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer Dim s As In
Ответ от Алексей Матевосов (AlexM)[гуру]
Такие задачи можно решать, представив число строкой. За основу берем код Удачника. Вместо фрагмента -----------------------------' Выделяем цифры из числа a1 = Int(a / 10000) : a = a - a1*10000 a2 = Int(a / 1000) : a = a - a2*1000
Такие задачи можно решать, представив число строкой. За основу берем код Удачника. Вместо фрагмента -----------------------------' Выделяем цифры из числа a1 = Int(a / 10000) : a = a - a1*10000 a2 = Int(a / 1000) : a = a - a2*1000
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: помогите по vba