Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Задача по vba передеать


Автор: Uourin 3.4.2016, 20:36
Надо из цикла с параметром, переделать в цикс с предусловие помогите
Hайти количество цифp в целом положительном числе.


x = InputBox("Введите число", "Окно ввода данных")
        For i = 1 To 10
        If x > 10 ^ (i - 1) And x < 10 ^ i Then
        Label2.Caption = " число " & i & " цифры"
        End If
        Next
End Sub

Автор: kapbepucm 7.4.2016, 16:28
ели я правильно логику вопроса понимаю
Код
i = 1
Do While i <= 10
  ...
   i = i + 1
Loop

вместо
Код

For i = 1 To 10
...
Next

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)