Лабы по КП / Лаба 4

Федеральное агентство по образованию

Государственное образовательное учреждение

Высшего профессионального образования

«Государственный Университет Управления»

Институт Информационных Систем Управления

Кафедра компьютерных технологий

Лабораторная работа № 4

По дисциплине «Компьютерная подготовка»

4 вариант

Выполнила:

студентка ИНиМЭ,

Проверил:

Канаков А.Г.

МОСКВА 2005

Найти все четырёхзначные натуральные числа, не превосходящие заданного числа N, которые делятся на каждую их своих цифр. Если таковых чисел нет, выдать соответствующее сообщение. Произвести проверку вводимой информации.

Private Sub Command1_Click()

Dim N As Integer

Dim I As Integer

Dim A As Byte

Dim B As Byte

Dim C As Byte

Dim D As Byte

Dim SP As Variant

1 N = InputBox("Введите натуральное число N=")

Text2.Text = N

If N < 1111 And N > 9999 Or N <> Fix(N) Then MsgBox ("Ошибка"): GoTo 1

For I = 1111 To N - 1

A = Int(I / 1000)

B = Int((I - A * 1000) / 100)

C = Int(((I - A * 1000) - B * 100) / 10)

D = Int(((I - A * 1000) - B * 100) - C * 10)

If A = 0 Or B = 0 Or C = 0 Or D = 0 Then GoTo 2

If I Mod A = 0 And I Mod B = 0 And I Mod C = 0 Then SP = SP + Str(I) + " "

If SP = 0 Then Text1.Text = "Таких чисел нет" Else: Text1.Text = SP

2 Next I

End Sub

Private Sub Command2_Click()

End

End Sub