Эта программа не научит вас пользоваться каким-либо элементом управления, но она покажет на примере как пользоваться типами данных, как пользоваться циклами. Вообще в этой программе лучше все-таки разобраться, ведь она показывает на наглядном примере алгоритм вычисления кратных чисел, а это очень важно для программиста.

Шаг №1 - Постановка задачи

По ходу использования этой программы пользователь будет вводить в текстовое поле число, а программа в специальном окне будет выводить, на какие числа это число делится без остатка и что при этом получится. Например, если пользователь введет в поле 10, то программа в поле результат должна написать :

10 : 1 = 10
10 : 2 = 5
10 : 5 = 2
10 : 10 = 1

Вроде бы тут все понятно.

Шаг №2 - Визуальное проектирование

Итак на форме у вас должны быть следующие элементы :

1) Кнопка ( Button ) : Name - Command1, Caption - Поситать
2) Кнопка ( Button ) : Name - Command2, Caption - Выход
3) Текстовое поле ( TextBox ) : Name - Text1, поле свойства Text должно быть пустым
4) Текстовое поле ( TextBox ) : Name - Text2, поле свойства Text также должно быть пустым
5) Этикетка ( Label ) : Caption - Делимое
6) Этикетка ( Label ) : Caption - Результат

В результате всего этого у вас должно получиться примерно так :

Все, с визуальным проектированием покончено.

Шаг №3 - Программирование в коде

В этой программе, как и во многих других этот шаг самый важный. Для начала пишем в разделе глобальных объявлений :

Option Explicit - как обычно объявляем переменные

Dim delimoe As Long - Объявляем переменную delimoe - которая будет обозначать в программе то число котрое мы делим. Long - потому, что вдруг кто - то ( а такие люди обязательно найдутся ) захочет найти числа на которые делится 1000000

Dim delitel As Long - Объявляем переменную delitel - которая будет обозначать в программе то чило на которое мы делим.

Dim resultat As Double - Объявляем переменную resultat которая будет обозначать результат деления, то есть делимое разделить на делитель

Далее вам нужно уяснить, как же будет проверять программа : делится ли число без остатка. То есть является ли переменная resultat целым числом. Войдите в код кнопки Посчитать и пишите там :

Text2.Text="" - Опустошаем свойство Text элемента Text2

If Not IsNumeric (Text1.Text) Then - Если свойство Text элемента Text1 не число, то..ю

Msgbox "Это не число", vbCritical - Сообщить об этом

Exit Sub - Выйти из кода кнопки Посчитать

End If - Закончить проверку свойства Text элемента Text1

delimoe = Text1.Text - Присваиваем переменной delimoe значение свойства Text элемента Text1

Form1.Caption = "Считаю"- Изменяем заголовок программы на "Считаю", это нужно для больших чисел, пока компьютер считает заголовок должен быть таким, это будет заметно при действительно больших числах, например при числе 1000 вы наверное и не заметите как изменится заголовок, а вот при 1000000 это будет достаточно заметно

For delitel = 1 to delimoe - Задаем цикл. Программа просо подставляет в значение переменной delitel все числа от 1 до значения переменной delimoe. Например если вы хотите разделить число 5, то программа проверит , делится ли 5 на 1;2;3;4;5. И естественно, она должна показать на какие из этих чисел, delimoe делится без остатка.

resultat = delimoe / delitel - Тут вроде все ясно, получаем переменную resultat деля delimoe на delitel

If resultat = Int(resultat) then - А вот тут то программа и проверяет : является ли переменная resultat целым числом. Если resultat равен округленному resultat то ...

Text2.Text = Str(delimoe) + " : "+str( delitel) +" = " +str( resultat )+vbCrLf - Свойство Text элемента Text2 равно текстовому эквиваленту переменной delimoe плюс значок деления ( : ) плюс текстовый эквивалент переменной delitel плюс значок равно плюс текстовый эквивалент переменной resultat и плюс переход на другую строчку. В общем просто выводим результат в виде выражения.

End If - заканчиваем проверку целочисленности переменной resultat

Next - Завершаем цикл

Form1.Caption = "Числа"- Возвращаем заголовок программы

А теперь осталось только в код кнопки Выход ввести:

End - заканчиваем работу программы

В результате всего этого у вас должен получится такой код :

Option Explicit
Dim delimoe As Long
Dim delitel As Long
Dim resultat As Double

Private Sub Command1_Click()
Text2.Text = ""

If Not IsNumeric(Text1.Text) Then
MsgBox "Это не число", vbCritical
Exit Sub
Else
delimoe = Text1.Text
End If

Form1.Caption = "Считаю"

For delitel = 1 To delimoe
resultat = delimoe / delitel
If resultat = Int(resultat) Then
Text2 = Text2 + Str(delimoe) + " : " + Str(delitel) + " = " + Str(resultat) + vbCrLf
End If
Next

Form1.Caption = "Числа"
End Sub

Private Sub Command2_Click()
End
End Sub

Шаг №4 - Подведение итогов :

Все программа готова. Запуcтите и проверьте ее. Попробуйте найти числа на которые число 5 делиться без остатка, потом попробуйте какое-нибудь свое число. Если все получилось, то поздравляю, если же нет, то можете посмотреть исходники.