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

[AleksandrH]

А проверял, код верно работает? Если остача от деления на 6 =6 значит есть 6 делителей?

Sub a()
    Dim x As Integer, i As Integer
    x = InputBox("Podaj X(x>1)")
    i = 1
    Do While i <= x
           If i Mod 6 = 0 Then
                MsgBox ("Dla " & CStr(i) & " mamy 6 podzielnikow")
            End If
        i = i + 1
    Loop
End Sub

[Denton72]

что такое CStr
Какоето возращение?

[AleksandrH]

http://www.techonthenet.com/excel/formulas/cstr.php

[ViktorR]

Дано число x(вводим с клавиатуры),есть интервал [1,x](copy paste no?)
найти числа у которых 6 есть делителей

Как это следует понимать?
а) У некоторого числа число 6 есть делитель?
б) У некоторого числа должно быть 6-ть делителей?

Очень сложно проникнуться заданием, когда его интерпретируют под свое понимание. Правильно было бы просто аккуратно переписать задание.
в случае а) следует использовать оператор Mod. Остаток должен быть равен нулю, а не то, что у Вас записано:

А проверял, код верно работает? Если остача от деления на 6 =6 значит есть 6 делителей?

В случае б) так же надо использовать оператор Mod, но для каждого числа из интервала [1, x] необходимо проверить наличие делителей (у простых чисел делители только 1 и само число, см., например, число 13).
Таких делителей должно быть 6-ть. При этом следует определиться, считать число 1 и само число, у которого ищем делители, делителями (принято считать).
У числа 4 есть делители 1, 2, 4. Это три делителя.
У числа 105 => 1, 3, 5, 7, 15, 21, 35, 105 - 8-мь делителей.


Как-то так, ...

[Denton72]

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

Как это следует понимать?
а) У некоторого числа число 6 есть делитель?
б) У некоторого числа должно быть 6-ть делителей?

Очень сложно проникнуться заданием, когда его интерпретируют под свое понимание. Правильно было бы просто аккуратно переписать задание.
в случае а) следует использовать оператор Mod. Остаток должен быть равен нулю, а не то, что у Вас записано:

В случае б) так же надо использовать оператор Mod, но для каждого числа из интервала [1, x] необходимо проверить наличие делителей (у простых чисел делители только 1 и само число, см., например, число 13).
Таких делителей должно быть 6-ть. При этом следует определиться, считать число 1 и само число, у которого ищем делители, делителями (принято считать).
У числа 4 есть делители 1, 2, 4. Это три делителя.
У числа 105 => 1, 3, 5, 7, 15, 21, 35, 105 - 8-мь делителей.


Как-то так, ...

нет все числа у которых есть 6 делителей 12 >= 1,2,3,4,6,12
18>=1,2,3,6,9,18

[Denton72]

спасибо большое всем кто отписался научил и помог сделать эту программу перехожу к следущей теме

[Serge_Bliznykov]

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

нет все числа у которых есть 6 делителей
18>=1,2,3,4,6,18

тут у Вас ересь какая-то написана.
18 не делится на 4.
зато делится на 9

[Denton72]

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

тут у Вас ересь какая-то написана.
18 не делится на 4.
зато делится на 9

да моя ошибка тупо перекопировал с 12 но суть остаётся тажа у него есть 6 делителей

[Serge_Bliznykov]

суть остаётся тажа у него есть 6 делителей

ну да, с этим согласен.

[Denton72]

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

ну да, с этим согласен.

всё равно спасибо за поправку
VBA трудно учится особено точто ACCESS