Поле (элемент ActiveX) в PowerPoint-VBA

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста. В презентации нужно организовать ввод таблицы, чтобы в итоге выводилось, правильно пользователь её ввёл или нет. С целыми числами более ли менее получилось это сделать, а вот с дробями не хочет работать. Подскажите, как решить проблему или предложите альтернативу

Решение задачи: «Поле (элемент ActiveX) в PowerPoint-VBA»

textual
Листинг программы
Private Sub CommandButton5_Click()
Const ANS = "-3 -9 1/7 1/33 0 1 4 1 0 8 1 2 0 1 4" 'правильные ответы через пробел
Dim i&, s$()
  s = Split(" " & ANS)
  For i = 1 To UBound(s)
    If Trim(Me.Shapes("TextBox" & i).OLEFormat.Object.Value) <> s(i) Then
      MsgBox "Неправильно", vbExclamation
      Exit Sub
    End If
  Next
  MsgBox "Правильно", vbInformation
End Sub

Оцени полезность:

9   голосов , оценка 3.667 из 5