Powitanie

NaleŜy utworzyć nowy projekt, wstawić obiekt typu CommandButton, Edit, oraz dwa obiekty Label. Wprowadzić odpowiednie zmiany tak, aby nadać aplikacji wygląd zbliŜony do poniŜszej ilustracji.

Zadeklarować zmienną licznik typu całkowitego .

Dim licznik As Integer

Zaprogramować funkcję Load formatki tak aby zmienna licznik przyjmowała wartość 0

licznik = 0

wprowadzić do procedury Click przycisku poniŜszy kod: licznik = licznik + 1

If licznik = 1 Then

Command1.Caption = "Politechnika Czestochowska:jak nazywasz sie?"

Command1.BackColor = QBColor(10)

Command1.FontSize = 14

Command1.FontName = "arial"

Label2.Visible = True

Text1.Visible = True

ElseIf licznik = 2 Then

Command1.Caption = "Witam " + Text1.Text Command1.BackColor = QBColor(13)

Command1.FontSize = 20

Command1.FontName = "arial"

Label2.Visible = False

Text1.Visible = False

ElseIf licznik = 3 Then

Command1.Caption = "Milego Dnia"

Command1.BackColor = QBColor(14)

Command1.FontSize = 20

Command1.FontName = "arial"

Label2.Visible = False

Text1.Visible = False

ElseIf licznik = 4 Then

Command1.Caption = "Zamknij"

Command1.BackColor = QBColor(15)

Command1.FontSize = 20

Command1.FontName = "arial"

Label2.Visible = False

Text1.Visible = False

ElseIf licznik = 5 Then

Unload Me

End If