VB и Excel! Тест

01.01.2001

VB и Excel! Тест.
В Excel составить тест, который состоит из вопроса. В конце теста выставляется отметка. Все вопросы должны появляться в окне InputBox, а ответы должны остаться в окне ListBox.

  • На листе Экселя нарисуй все, что нужно, сам.
    В том числе и ListBox для ответов.
    В программе пишешь
    Dim x As String, k As Integer, Otmetka As Single
    k = 0
    x = InputBox ("Текст первого вопроса", "ПЕРВЫЙ вопрос", )
    Rem В переменную х записывается ответ на вопрос
    List1.AddItem (x)
    Rem И этот ответ добавляется в ListBox
    If x = "Правильный ответ для 1 вопроса" Then k = k + 1
    Text1.Text = k ' Это окошко "Количество правильных ответов"
    x = InputBox ("Текст второго вопроса", "ВТОРОЙ вопрос", )
    Rem В переменную х записывается ответ на вопрос
    List1.AddItem (x)
    Rem И этот ответ добавляется в ListBox
    If x = "Правильный ответ для 2 вопроса" Then k = k + 1
    Text1.Text = k ' Это окошко "Количество правильных ответов"
    ...
    x = InputBox ("Текст последнего вопроса", "N-ный вопрос", )
    Rem В переменную х записывается ответ на вопрос
    List1.AddItem (x)
    Rem И этот ответ добавляется в ListBox
    If x = "Правильный ответ для n-го вопроса" Then k = k + 1
    Text1.Text = k ' Это окошко "Количество правильных ответов"

    Rem Ставим оценку за прохождение теста
    Text2.Text = Int(k / n) + 1
    End Sub

Вас заинтересует