Работа в Microsoft Office. Губина Т.Н - 120 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Губина Т.Н., Масина О.Н., Губин М.А.
120
Label2.Top = 179
.Left = 501
Label3.Top = 304
End Sub
13. Запрогр
у
н
м
П
P
Dim StrFile As String
StrFile = Dir("C:\Test\Устройство.rtf")
If StrF
Th
R
та
Print #1, " Вы ответили правильно."
Print #1, Now
t #1,
Close #1
Else
vbOKOnly + vbCritical, "Результат теста")
Close #1
Label2.Left = 501: Label2.Top = 179
ActivePresentation.Save
Label3
аммируйте кнопку «Готово» следующим образом: если были правильно
казаны все комплектующие, то на экран выдается сообщение: «Вы ответили правиль-
о», в противном случае сообщение «Вы ошиблись, пожалуйста, повторите данную те-
у».
рограммный код:
rivate Sub CommandButton3_Click()
Dim Resalt As Integer
ile <> "" Then Kill ("C:\Test\ Устройство.rtf")
If (FImage1 And FLabel1) And (FImage2 And FLabel2) And (FImage3 And FLabel3)
en
esalt = MsgBox("Вы ответили правильно.", vbOKOnly + vbInformation, "Резуль-
т теста")
Open "C:\Test\ Устройство.rtf" For Output As #1
Prin
Resalt = MsgBox("Вы ошиблись, пожалуйста, повторите данную тему.",
Open "C:\Test\ Устройство.rtf" For Output As #1
Print #1, " Вы ошиблись, пожалуйста, повторите данную тему."
Print #1, Now
Print #1,
End If
FLabel1 = False: FLabel2 = False: FLabel3 = False:
FImage1 = False: FImage2 = False: FImage3 = False:
Label1.Left = 501: Label1.Top = 111
Label3.Left = 501: Label3.Top = 304
Application.Quit
End Sub
14.
Проверьте корректность работы теста.
15. Сохраните презентацию в папку «Работы по Power Point» под именем
Лаб_4_Задание_1. 
                                                     Губина Т.Н., Масина О.Н., Губин М.А.
  Label2.Top = 179
  Label3.Left = 501
  Label3.Top = 304
End Sub
13. Запрограммируйте кнопку «Готово» следующим образом: если были правильно
указаны все комплектующие, то на экран выдается сообщение: «Вы ответили правиль-
но», в противном случае сообщение «Вы ошиблись, пожалуйста, повторите данную те-
му».
Программный код:
Private Sub CommandButton3_Click()
  Dim Resalt As Integer
  Dim StrFile As String
  StrFile = Dir("C:\Test\Устройство.rtf")
  If StrFile <> "" Then Kill ("C:\Test\ Устройство.rtf")
  If (FImage1 And FLabel1) And (FImage2 And FLabel2) And (FImage3 And FLabel3)
Then
Resalt = MsgBox("Вы ответили правильно.", vbOKOnly + vbInformation, "Резуль-
тат теста")
     Open "C:\Test\ Устройство.rtf" For Output As #1
     Print #1, " Вы ответили правильно."
     Print #1, Now
     Print #1,
     Close #1
  Else
     Resalt = MsgBox("Вы ошиблись, пожалуйста, повторите данную тему.",
vbOKOnly + vbCritical, "Результат теста")
     Open "C:\Test\ Устройство.rtf" For Output As #1
     Print #1, " Вы ошиблись, пожалуйста, повторите данную тему."
     Print #1, Now
     Print #1,
     Close #1
  End If
  FLabel1 = False:    FLabel2 = False: FLabel3 = False:
  FImage1 = False: FImage2 = False: FImage3 = False:
  Label1.Left = 501: Label1.Top = 111
  Label2.Left = 501: Label2.Top = 179
  Label3.Left = 501: Label3.Top = 304
  ActivePresentation.Save
  Application.Quit
End Sub
14. Проверьте корректность работы теста.
15. Сохраните      презентацию в папку «Работы по Power Point» под именем
Лаб_4_Задание_1.




                                      120

Страницы