Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
End Sub. УЭ №8 Алгоритмические струтуры - «Ветвление и Выбор»
УЭ №8 Алгоритмические струтуры - «Ветвление и Выбор». Задачи УЭ №8. Научится применять и использовать команды «ветвления» и «выбор». Что делать. Создать проект «Тест». Как делать. 1.Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Тест 2. Разместите на форме управляющий элемент Label1, Label2, Label4 Label3, Label5 (как показано на рисунке)
Dim Otvet As String, N As Byte Private Sub Command1_Click() N = 0 Otvet = InputBox("Чему равен 1байт?", " Первый вопрос") If Otvet = "8бит" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Otvet = InputBox("Чему равен 1Кбайт?", " Второй вопрос") If Otvet = "1024байт" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Otvet = InputBox("Чему равен 1Мбайт?", " Третий вопрос") If Otvet = "1024Кбайт" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Otvet = InputBox("Чему равен 1Гбайт?", " Четвертый") If Otvet = "1024Мбайт" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Otvet = InputBox("Чему равен 1Тбайт?", " Пятый вопрос") If Otvet = "1024Гбайт" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Label2.Caption = N
|