SaveText.Ru

Без имени
  1. Set y = CreateObject("Scripting.FileSystemObject")
  2. Set y = Nothing
  3. Do
  4. a = 0
  5. u = 0
  6. Randomize
  7. Number = Int((RND*99)+1)
  8. MsgBox "Я загадал число от 1 до 100, попробуй отгадать",64,"Угадайка"
  9. Do
  10. a = a + 1
  11. c = InputBox("Угадай число" & vbCrLf & vbCrLf & "Попытка: " & a & vbCrLf & vbCrLf & "Чтобы посмотреть результаты введите число !" & vbCrLf & vbCrLf & "Для выхода оставьте поле пустым" & vbCrLf & vbCrLf,"Угадайка")
  12. If c = "!" Then CreateObject("WScript.Shell").Run "notepad C:WindowsResult.dll",3,True : Exit Do
  13. If c <> "" Then
  14. If IsNumeric(c) = True Then
  15. If CInt(c) < Number Then MsgBox "Нет,это не " & c & ". Я загадал число больше",64,"Угадайка"
  16. If CInt(c) > Number Then MsgBox "Нет,это не " & c & ". Я загадал число меньше",64,"Угадайка"
  17. If CInt(c) = Number Then
  18. Set y = CreateObject("Scripting.FileSystemObject")
  19. MsgBox ("Количество попыток: " & a)
  20. If MsgBox ("Правильно, это было число " & c & ". Начать заного?",36,"Угадайка") = 6 Then Exit Do Else WScript.Quit
  21. End If
  22. Else
  23. MsgBox "Это не число!",16,"Угадайка"
  24. a = a - 1
  25. End If
  26. Else
  27. a = a - 1
  28. l = MsgBox ("Ты ничего не ввел. Выйти из программы?",36,"Угадайка")
  29. If l = 6 Then WScript.Quit
  30. End If
  31. Loop
  32. loop

Share with your friends:

Распечатать