vba цыкл do loop until нужна поверка

[Denton72]

и опять здрасти опять надо проверить
Даётся натуральное число x. В какой минимальной степени нужно возвести 2, что бы получить число, которое меньше x.

Dim x As Integer,i As Integer,n As Integer


i<=x(vienads tikai divas gadijumas)")
x = InputBox("любое натуральное число(1,2,3...) x")
Do
i = i + 1
n = (2 ^ i)
Loop Until n > x

i это число степень и оно во всех случиях меньше х

я смысл задания понел?если нет можно обеснение

[Serge_Bliznykov]

Даётся натуральное число x. В какой минимальной степени нужно возвести 2, что бы получить число, которое меньше x.

некорректный вопрос.
ответ - в минус первую степень для любого натурального X.
согласитесь, что 1/2 меньше любого числа

[Denton72]

Сообщение от Serge_Bliznykov

некорректный вопрос.
ответ - в минус первую степень для любого натурального X.
согласитесь, что 1/2 меньше любого числа

да но как это будет выглядеть на do loop

do
n= (2 ^ -1)
loop until n < x

[Serge_Bliznykov]

да но как это будет выглядеть на do loop

да никак не будет выглядеть.
задание составлено неверно (а может Вы его исказили)!
Поэтому тут не нужно никакого цикла.
И решать тут тоже нечего.
разберитесь для начала с заданием.
А потом уже можно думать, как это задание можно решить.

[Denton72]

ок спрошу

и спросил я учителя разбудив его и дал мне он тругое задание просто (ain't that great?)
Дано число x(вводим с клавиатуры),есть интервал [1,x]
найти числа которые находятся друг от друга в шести шагах

Dim n As Integer, x As Integer,count As Integer, checker as Integer
Dim result As String
n = InputBox() `написал  в задание x использую n (разница?(некакой))

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

Do 
x = x + 1 `идёт интервал
checker = x
If count = checker \ 6 Then `проверка если число делитсяна 6 без остатка то х записиваем  если нет то нечего
result = result + " " & x
Else
End If
Loop Until x > n
MsgBox (result)

я уже здаюсь с vba
и неправильно ....

[AleksandrH]

Сообщение от Denton72

Дано число x(вводим с клавиатуры),есть интервал [1,x]
найти числа которые находятся друг от друга в шести шагах

Sub fk()
    Dim x As Integer, i As Integer, l As Integer, r As Integer
    Dim s As String
    x = CInt(InputBox("Input X (X>1)"))
    i = 1
    Do While i <= x
        s = CStr(i) & ": "
        l = i - 6: r = i + 6
        If l >= 1 Then s = s & " left : " & CStr(l)
        If r >= 1 Then s = s & " right : " & CStr(r)
        If Len(s) <> Len(CStr(i)) Then
            Debug.Print s
            s = ""
        End If
        i = i + 1
    Loop
End Sub

[Serge_Bliznykov]

Дано число x(вводим с клавиатуры),есть интервал [1,x]
найти числа которые находятся друг от друга в шести шагах

я это вижу примерно так:

Sub fk()
    Dim x As Integer, i As Integer
    x = CInt(InputBox("Input X (X>1)"))
    i = 1
    Do While (i + 6) <= x
        Debug.Print "в шести шагах находятся числа " + CStr(i) + " и " + CStr(i + 6)
        i = i + 1
    Loop
End Sub

[AleksandrH]

Сложно что-то писать, если ТС не хочет поделиться даже примером входных/выходных данных.

[Denton72]

Сообщение от Serge_Bliznykov

я это вижу примерно так:

Sub fk()
    Dim x As Integer, i As Integer
    x = CInt(InputBox("Input X (X>1)"))
    i = 1
    Do While (i + 6) <= x
        Debug.Print "в шести шагах находятся числа " + CStr(i) + " и " + CStr(i + 6)
        i = i + 1
    Loop
End Sub

Debug.Print неработает я понимаю это выводит на экран результат
MsgBox как будет выглядеть?
Dim x As Integer, i As Integer, l As Integer, r As Integer
Dim s As String
x = CInt(InputBox("Input X (X>1)"))
i = 1
Do While i <= x
s = CStr(i) & ": "
l = i - 6: r = i + 6
If l >= 1 Then s = s & " left : " & CStr(l)
If r >= 1 Then s = s & " right : " & CStr(r)
If Len(s) <> Len(CStr(i)) Then
End If
i = i + 1
Loop
MsgBox(s)
End Sub[/CODE][/QUOTE]
работает спасибо братья!!!

Но дали теперь ещё одну работу теперь (
Дано число x(вводим с клавиатуры),есть интервал [1,x](copy paste no?)
найти числа у которых 6 есть делителей
иногда кажется что задания предумывают находу что была у всех работа
чуть позже тут выложу наработку---

[Denton72]

наработку я преставил так

  Dim x As Integer, i As Integer
    Dim s As String
    x = CInt(InputBox("ввести X (!должно быть!X>1)"))
    i = 1
    Do While i <= x
    If i Mod 6 = 6 Then
    s = s + i
    End If
    i = i + 1
    Loop
    MsgBox ("у чисел" & s & "  6 делителей" & )
`MsgBox пустой