VBNet - Форум - Помогите исправить!!!

Вопрос: Помогите исправить!!! Добавлено: 17.06.06 22:39

Автор вопроса: DJ EFFECT

Private Sub Command1_Click()
Print number(91)
Print number(50)
End Sub

Private Function number(n As Integer) As Byte
Dim c As Byte, s
s = 0: c = 0
While n <> 0
c = n Mod 10
s = s + c
n = n / 10
Wend
number = s
End Function
Это программа должна считать кол-во цифр в числе,но для ряда чисел она показывает неожиданный результат
Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #1	Добавлено: 18.06.06 01:25
	Если ты хотел количество цифр в числе, то, по-моему так проще: Private Function Num(n As Integer) As Byte Num = Len(CStr(n)) End Function Если же ты хотел сумму этих цифр, то Private Function Sum(n As Integer) As Integer l = Len(CStr(n)) For i = 1 To l j = j + Val(Mid(CStr(n), i, 1)) Next i Sum = j End Function Ответить

Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #2	Добавлено: 18.06.06 12:45
	Серега прав, а сам диджей смахивает на ____(того, кто пытается найти число цифр в числе, не прибегая к строковым функциям, вот) Хотя, скорее всего, ему это и нужно (*без строк): Private Function fCount(Number as long) as long Dim i as long,j as long i = 1 Do i = i * 10 j = j + 1 if (Number / i) =< 1 then fCount=j end if Loop Ответить

Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #3	Добавлено: 18.06.06 12:45
	if (Number / i) =< 1 then Тут надо заменить на это if (Number / i) < 1 then Ответить

Номер ответа: 4 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #4	Добавлено: 18.06.06 13:26
	Да,именно так...У меня ТЕМА:"Функции обработки целых чисел"!!! Ответить

Номер ответа: 5 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #5	Добавлено: 18.06.06 13:40
	fCount=j Exit function Ответить

Номер ответа: 6 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #6	Добавлено: 18.06.06 13:43
	AgentFire,Хотелось бы спросить,как пишите код на синем фоне и на желтом??? Ответить

Номер ответа: 7 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #7	Добавлено: 18.06.06 16:26
	юзай теги Ответить

Номер ответа: 8 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #8	Добавлено: 18.06.06 16:48
	DJ EFFECT, тема у тебя как раз Помогите исправить!!! ладно хоть не хелп ми лучше информировать однако Ответить

Номер ответа: 9 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #9	Добавлено: 20.06.06 19:38
	Просто тренируюсь Ответить

Номер ответа: 10 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #10	Добавлено: 20.06.06 19:39
	Вот это да!!! Ответить

Номер ответа: 11 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #11	Добавлено: 20.06.06 19:39
	Вот это ни фига себе!!! Ответить

Номер ответа: 12 Автор ответа: DJ EFFECT Вопросов: 10 Ответов: 18	Профиль \| \| #12	Добавлено: 20.06.06 19:40
	[CODE][/Вот это ни фига себе!!!] Ответить

Страница: 1 |