Module Module1
Sub Main()
Dim Int1, Int2, Int3, Int4, Int5, ResultInt As Integer
Dim Chislo1Lng As Long
Console.WriteLine("Vvedite 5ti-znachnoe chislo")
Chislo1Lng = Console.ReadLine()
Int1 = Chislo1Lng / 10000
Chislo1Lng = Chislo1Lng - Int1 * 10000
Int2 = Chislo1Lng / 1000
Chislo1Lng = Chislo1Lng - Int2 * 1000
Int3 = Chislo1Lng / 100
Chislo1Lng = Chislo1Lng - Int3 * 100
Int4 = Chislo1Lng / 10
Chislo1Lng = Chislo1Lng - Int4 * 10
Int5 = Chislo1Lng
ResultInt = Int1 + Int2 + Int3 + Int4 + Int5
Console.WriteLine("Otvet : {0}", ResultInt)
Console.ReadLine()
End Sub
End Module
Вопрос по консольному апплету
Доброго всем времени суток.
У меня такая трабла: Пишу прогу на VB(консольная). Прога должна находить сумму цыфр 5и-значного числа. Написал такой код:
Если при её выполнении ввести 12345 - всё работает.. А если, например, 12356 - показывает -1... И тд. ВОт, если кто видит ошибку - помогите плз... Заранее спасибо.
У меня такая трабла: Пишу прогу на VB(консольная). Прога должна находить сумму цыфр 5и-значного числа. Написал такой код:
Код:
Если при её выполнении ввести 12345 - всё работает.. А если, например, 12356 - показывает -1... И тд. ВОт, если кто видит ошибку - помогите плз... Заранее спасибо.
Мне кажется, что надо так
Код:
Module Module1
Sub Main()
Dim Int1, Int2, Int3, Int4, Int5, ResultInt As Integer
Dim Chislo1Lng As Long
Console.WriteLine("Vvedite 5ti-znachnoe chislo")
Chislo1Lng = Console.ReadLine()
Int1 = Val(Mid(Chislo1Lng, 1, 1))
Int2 = Val(Mid(Chislo1Lng, 2, 1))
Int3 = Val(Mid(Chislo1Lng, 3, 1))
Int4 = Val(Mid(Chislo1Lng, 4, 1))
Int5 = Val(Mid(Chislo1Lng, 5, 1))
ResultInt = Int1 + Int2 + Int3 + Int4 + Int5
Console.WriteLine("Otvet : {0}", ResultInt)
Console.ReadLine()
End Sub
End Module
Sub Main()
Dim Int1, Int2, Int3, Int4, Int5, ResultInt As Integer
Dim Chislo1Lng As Long
Console.WriteLine("Vvedite 5ti-znachnoe chislo")
Chislo1Lng = Console.ReadLine()
Int1 = Val(Mid(Chislo1Lng, 1, 1))
Int2 = Val(Mid(Chislo1Lng, 2, 1))
Int3 = Val(Mid(Chislo1Lng, 3, 1))
Int4 = Val(Mid(Chislo1Lng, 4, 1))
Int5 = Val(Mid(Chislo1Lng, 5, 1))
ResultInt = Int1 + Int2 + Int3 + Int4 + Int5
Console.WriteLine("Otvet : {0}", ResultInt)
Console.ReadLine()
End Sub
End Module
Э... Работает)) Сорь за тупняк, а как это?
Элементарно, Ватсон!
Расписываю по функциям:
Val(Mid(Chislo1Lng, 5, 1))
Mid(Chislo1Lng, 5, 1) - извлекает 1 символ с 5-ой позиции в переменной Chislo1Lng
Val() - преобразовывает извлеченный символ в числовой формат, если этого не делать, то в ответе будет "12345" как символная строка, а не как число.
Из переменной Chislo1Lng я последовательно извлек все символы и, преобразовав каждый в число, сложил.
Расписываю по функциям:
Val(Mid(Chislo1Lng, 5, 1))
Mid(Chislo1Lng, 5, 1) - извлекает 1 символ с 5-ой позиции в переменной Chislo1Lng
Val() - преобразовывает извлеченный символ в числовой формат, если этого не делать, то в ответе будет "12345" как символная строка, а не как число.
Из переменной Chislo1Lng я последовательно извлек все символы и, преобразовав каждый в число, сложил.