cint 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