Вывод минимального числа - VB

Формулировка задачи:

Private Sub Command1_Click()
n = Val(Text1.Text)
s = n ^ 2
a$ = Str$(s)
c = Len(a$)
Min = 10
For i = 1 To c
r = Val(Mid$(a$, i, 1))
If r > Max Then Max = r
If r < Min Then Min = r
Next i
Text2.Text = Max
Text3.Text = Min
End Sub

Условия максимального цифр работает но минимум.......ошибка помогите пж..... как найти минимального число. 10-й строк.....

Решение задачи: «Вывод минимального числа»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
dim n#, s#, a$, iMin%, iMax%, i&, r%
n = CDbl(Text1.Text)
s = n ^ 2
a = CStr(s)
iMin = 10
For i = 1 To Len(a)
if isnumeric(Mid(a, i, 1)) then
r = CInt(Mid(a, i, 1))
If r > iMax Then iMax = r
If r < iMin Then iMin = r
end if
Next i
Text2.Text = iMax
Text3.Text = iMin
End Sub
                        

Оцени полезность:

14 голосов , оценка 4.571 из 5

Похожие ответы