Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Для слайда 4
Модуль4
'запись результата тестирования для данного слайда
Open "D:\T\Результат тестирования.txt" For Append As 1
If OptionButton3.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
If OptionButton5.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
If OptionButton12.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
Close #1
Модуль6
With SlideShowWindows(1).View
.GotoSlide 5
End With
End Sub
Для слайда 5
Модуль4
'запись результата тестирования для данного слайда
Open "D:\T\Результат тестирования.txt" For Append As 1
If OptionButton1.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
If OptionButton7.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
If OptionButton10.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
Close #1
Модуль6
With SlideShowWindows(1).View
.GotoSlide 6
End With
End Sub
Для слайда 6:
Модуль4
'запись результата тестирования для данного слайда
Open "D:\T\Результат тестирования.txt" For Append As 1
If OptionButton4.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
If OptionButton6.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
If OptionButton11.Value Then
Print #1, "1"
Else
Print #1, "0"
End If
Close #1
Модуль6
With SlideShowWindows(1).View
.GotoSlide 7
End With
End Sub
Слайд7
На слайде 7 расположены элементы управления, предназначенные для вывода результатов тестирования. Вид слайда:
 |
Date: 2015-07-27; view: 235; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |