End Sub. S = S + I: IfS >= 100 Then Exit For

End

End Sub

End Sub

...

S = 0

For I = 1 To 50

S = S + I: If S >= 100 Then Exit For

Next I

Print “S=” & S & “_” & “Количество слагаемых:” &I

6. Вычисление суммы и количества простых чисел среди всех

трёхзначных чисел.

Private Sub Cmd1_ Click () ‘связана с кнопкой “Пуск”. _

Запускается щелчком по кнопке ‘“Пуск”, _

созданной на форме

Dim I As Integer, Sum As Integer, K As Integer, J As Integer, F As Integer

Sum = 0: K = 0

For I = 100 To 999 ‘I – проверяемые числа

F = 0 ‘F – флажок

For J = 2 To I\2

IF I Mod J = 0 Then F = 1: Exit For

Next J

IF F = 0 Then Sum = Sum + I: K = K +1

Next I

MsgBox “сумма =” & Sum &“_” & “количество =” &K

7. Среди всех трёхзначных чисел найти такие, сумма цифр которых кратна 7.

Private Sub Cmd1_ Click ()

Dim I As Integer, J As Integ er, P As Integer, S As Integer, M As Integer

Print “Искомые числа”

For I = 100 To 999 ‘I – контролируемое число

S = 0: P = I ‘S-сумма цифр, P-копия (дубликат числа I)

For J = 1 To 3 ‘определение цифр

M = P Mod 10

S = S + M

P = P \ 10

Next J

If S Mod 7 = 0 Then Print I ‘Вывод на форму

Next I

Private Sub Cmd2_Click ()

Результатом выполненния программы является список значений чисел (удовлетво-ряющих условию примера 7, выводимых оператором Print.

Cmd1 (Командная кнопка)

Cmd2 (Командная кнопка)

Рис. 6.2. Экранная форма для прог-

раммы (программного кода) при-

мера 7 (вариант использования для вывода результатов оператора Print)

Для создания списка искомых чисел примера 7 воспользуемся другим инструментом вывода результатов - элементом управления ListBox с Name = Lstz.

Private Sub Cmd1_ Click () ‘связана с кнопкой “Пуск”.

Dim I As Integer, J As Integer, K As Integer

Dim S As Integer, P As Integer, M As Integer

K = -1 ‘номер строки в списке

Lbl1. Caption = “Иск. числа”

For I = 100 To 999

S = 0: P = I ‘S-сумма цифр, P-дубликат (копия) I

For J = 1 To 3

M = P Mod 10: S = S + M: P = P \ 10

Next J

If S Mod 7 = 0 Then K = K+1: Lstz. List (K) = I ‘можно иначе: Lstz .AddItem I, K

Next I

Дата добавления: 2014-01-04