Конференция VBStreets

**metto** » 10.02.2005 (Чт) 11:51

Подскажите пожалуйста как найти наибольшую цифру в скажем пятизначном числе. Заранее спасибо!

**Toxa** » 10.02.2005 (Чт) 12:02

ну..как вариант, перевести число в строку, затем в цикле проверить каждый символ...
s=trim(str(num))
for n=1 to len(s)
if d<val(mid(s,n,1) then d=val(mid(s,n,1)
next

**tyomitch** » 10.02.2005 (Чт) 12:07

Как вариант без строк:

Код: Выделить всё: While num > 0 If d < (num Mod 10) Then d = num Mod 10 n = n \ 10 Wend

**metto** » 10.02.2005 (Чт) 12:56

Toxa писал(а):ну..как вариант, перевести число в строку, затем в цикле проверить каждый символ...
s=trim(str(num))
for n=1 to len(s)
if d<val(mid(s,n,1) then d=val(mid(s,n,1)
next

чето невыходит нифига

**metto** » 10.02.2005 (Чт) 13:05

Мог бы ктонибудь написать полнлстью программу с пояснениями по возможности (хотелось бы видеть как что делается, дабы потом разобраться что к чему) мне собственно нужна не программа а понять как это нужно делать.

К примеру есть два текстовых поля, в первое вводится 5ти значное число. Во второе поле при нажатии кнопки должен быть выведен результат. т.е. максимальная цифра.

Спасибо!

**Toxa** » 10.02.2005 (Чт) 13:18

в Text1 вводится число, в Text2 - результат

Private Sub Command1_Click()
Dim d As Integer, s as String
s = Text1.Text
For n = 1 To Len(s)
If d < Val(Mid(s, n, 1)) Then d = Val(Mid(s, n, 1))
Next
Text2.Text = Str(d)
End Sub

**metto** » 10.02.2005 (Чт) 13:29

Toxa, спасибо чувак! Буду разбираться!

**metto** » 10.02.2005 (Чт) 16:16

Скажите есть ли в VBA аналоги функций Excel ГПР и ВПР?

**Igor_123** » 10.02.2005 (Чт) 19:09

metto писал(а):в VBA аналоги функций Excel ГПР и ВПР

А чем эти не нравятся???

Конференция VBStreets

Наибольшая цифра

Наибольшая цифра

Кто сейчас на конференции