Мои программы

Это самая первая и самая лёгкая программка, которую я написал в VB 6

она довольно простая после амперсанта ( ' ) идут пояснения.

В этой программке необходимо:

1) Создать стандартную форму.

2) Создать кнопку Пуск.

3) Перенести данный код себе на страничку с кодом вашей программы.

__________________________________________________________________________

DefInt X-Y 'Объявление типа Integer всех переменных, имена которых начинаються с букв X или Y.

Private Sub ПУСК_Click()

x = 5 / 2: y = 10 / 3: z = x / y

Print x, y, z 'Печать значений переменных x,y,z в одну строку.

End Sub

__________________________________________________________________________

Теперь уберём первую сточку кода и посмотрим что получиться.

После того как мы убрали первую строку тип переменных X,Y,Z автомотически(по умолчанию) поменялся на Double.

__________________________________________________________

DefDate D 'Объявление типа Date всех переменных, имена которых начинаются с буквы D.

Private Sub ПУСК_Click()

Print "Сегодня", " Я родился", " Я прожил(дней)" 'Печать в одну строчку трёх заголовков.

D1 = Date 'D1 присваевается сегодняшняя дата при помощи встроенной функции Date.

D2 = "01/01/2000" 'D2 присваевается день Вашего рождения.

N = D1 - D2 'N высчитывает количество дней между двумя датами.

Print D1, D2, N 'Печать двух дат и количество дней между ними.

End Sub

___________________________________________________________

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

писателей. В конце теста Вы получите "чисто символическую" оценку.

_____________________________________________________________________________

Dim summa As Integer

Private Sub Command1_Click()

If ФИО.Caption = "Толстой Л.Н.:" Then

ФИО.Caption = "Чехов А.П.:"

If Option2.Value = True Then summa = summa + 1

ElseIf ФИО.Caption = "Чехов А.П.:" Then

ФИО.Caption = "Лермонтов М.Ю.:"

If Option1.Value = True Then summa = summa + 1

ElseIf ФИО.Caption = "Лермонтов М.Ю.:" Then

ФИО.Caption = "Пушкин А.С.:"

If Option3.Value = True Then summa = summa + 1

ElseIf ФИО.Caption = "Пушкин А.С.:" Then

ФИО.Caption = "Тестирование закончено:"

If Option4.Value = True Then summa = summa + 1

MsgBox "Вы получили за тест " + Str(summa + 1), , "Результаты тестирования"

End If

End Sub