HAIRY
Сообщений: 24
Оценки: 0
Присоединился: 2011-01-01 17:32:26.143333
|
вот код 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 Label2.Caption = N End Sub когда нажимаешь на Command1 вылазиет окно, можно изменить дизайн этого окна
|