Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Свойства элементов управления слайда 5
| Элемент | Свойства | Значение |
| Label(надпись) | Name caption Font Height Left SpecialEffect Top Width | Label 1 Arial,24 6-Sp….. |
| Label(надпись) | Name caption Font Height Left SpecialEffect Top Width | Label 2 Arial,24 6-Sp….. |
| Label(надпись) | Name caption Font Height Left SpecialEffect Top Width | Label 3 Arial,24 6-Sp….. |
| Label(надпись) | Name caption Font Height Left SpecialEffect Top Width | Label 4 Arial,24 6-Sp….. |
| TextBox (поле) | Name Font Height Left MultiLain Scrollbars Text Value Width | TexBox 1 Arial,24 True….. True |
| CommandButton (кнопка) | Name caption Font Height Left Top Width | CommandButton 1 Показать результат Arial,18 |
| CommandButton (кнопка) | Name caption Font Height Left Top Width | CommandButton 2 Завершить работу Arial,18 |
Функциональное назначение элементов управления Label и TextBox:
| Элемент управления | Функциональное назначение |
| Label1 | Вывод числа правильных ответов |
| Label1 | Вывод числа ошибочных ответов |
| Label1 | Вывод общего числа вопросов |
| Label1 | Вывод оценки |
| TextBox | Вывод списка вопросов, на которые выбраны ошибочные ответы. |
Для расчета оценки использовался следующий алгоритм:
Больше 75% правильных ответов – «отлично»
Больше 50%, но меньше 75% - «хорошо»
Больше 25%, но меньше 50% - «удовлетворительно»
Меньше 25% - «неудовлетворительно»
Элементы управления слайда 7 связаны со следующими процедурами:
Private Sub Commandbutton1_click()
Dim Count_1 As Integer 'число правильных ответов
Dim Count_0 As Integer 'число ошибочных ответов
Dim Count As Integer 'номер вопроса, на который дан ошибочный ответ
Dim Sum As Integer 'число вопросов
Dim Estimation As Single 'оценка
Dim List 'список вопросов, на которые дан ошибочный ответ
Dim LFCR
LFCR = Chr(13) + Chr(10)
'итоги тестирования
Count_1 = 0
Count_0 = 0
Count = 0
Open "D:\T\Результат тестирования.txt" For Input As #1
List = ""
Do While Not EOF(1)
Count = Count + 1
Line Input #1, ansver
If ansver = 1 Then Count_1 = Count_1 + 1
If ansver = 0 Then
Count_0 = Count_0 + 1
List = List + LFCR + Str(Count)
End If
Loop
Close #1
TextBox1.Text = List
Sum = Count_1 + Count_0 'число вопросов
Estimation = Count_1 / Sum 'оценка
Label1.Caption = " " & Count_1 'число правильных ответов
Label2.Caption = " " & Count_0 'число ошибочных ответов
Label3.Caption = " " & Sum
If (Estimation < 0.25) Then Label4.Caption = "неудовлетворительно"
If (Estimation > 0.25) And (Estimation < 0.5) Then Label4.Caption = "удовлетворительно"
If (Estimation > 0.5) And (Estimation < 0.75) Then Label4.Caption = "хорошо"
If (Estimation > 0.75) Then Label4.Caption = "отлично"
End Sub
Private Sub commandButton2_click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
TextBox1.Text = ""
ActivePresentation.Save
Application.Quit
End Sub
Date: 2015-07-27; view: 207; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |