Visual Basic

ПР. Проект «Тест».

1.   Запустите MS Visual Studio.

2.   Создайте новый проект.

3.   Поместите на форму: 

4.   Объявите переменные.

    Dim v1 As Integer

    Dim v2 As Integer

    Dim v3 As Integer

    Dim v4 As Integer

    Dim v5 As Integer

    Dim b As Integer     Dim a As String

5.   Кнопка «Начать».

a = InputBox("Введите имя и фамилию:", "Регистрация") v1 = MsgBox("Растровые изображения формируются из пикселей.", 32 + 4, "Вопрос № 1") v2 = MsgBox("Винчестер - это жесткий диск.", 32 + 4, "Вопрос № 2") v3 = MsgBox("Файл - это данные в оперативной памяти.", 32 + 4, "Вопрос № 3") v4 = MsgBox("Драйвер - это устройство длительного хранения информации.", 32 + 4, "Вопрос № 4") v5 = MsgBox("Компьютерным вирусом является специальная программа небольшого размера, которая может приписывать себя к другим программам, она обладает способностью  размножаться .", 32 + 4, "Вопрос № 5")

        If (v1 = 6) Then             b = b + 1

        End If

        If (v2 = 6) Then             b = b + 1

        End If

        If (v3 = 7) Then             b = b + 1

        End If

        If (v4 = 7) Then             b = b + 1

        End If

        If (v5 = 6) Then             b = b + 1         End If

        Label1.Text = "Вас зовут: " + a + "."

        Label2.Text = "Вы набрали " & b & "б."

6.   Запустите программу и пройдите тест.

7.   Сохраните проект в папке «Мои программы».