Контрольная работа "Элементы языка программирования Visual Basic"

Контрольная работа № 4 «Среда программирования Visual Basic» 1. С какого слова начинается блок описания переменных: 1) Var 2) Type 3) Dim 4) Sub 2. Что означает запись в строке: p=InputBox(«Введите число», p%)? 1) В строке используется оператор ввода. В программе надо ввести целое число с  клавиатуры. 2) В строке используется функция ввода. В программе надо ввести целое число с  клавиатуры. 3) Эта запись не используется в этом языке программирования. 3. Как обозначается оператор присваивания в Visual Basic? 1) := 2) : 3) = 4) Никак. 4. Что произойдет в результате выполнения фрагмента программы:  5. 6. 7. 8. Private Sub Command1_Click() picture1.scale(­10,10)­(10,­10) picture1.circle(0,0),5,vbGreen End Sub ? 1) Будет задана система координат. 2) Будет построена зеленая окружность с центром в точке (0,0), радиусом 5. 3) Будет построен зеленый круг с центром в точке (0,0) радиуса 5. 9. Исправьте ошибки в записи программного кода:  10. Private Sub Command1_Click() a = InputBox("Введите a") 11. b = InputBox("Введите b") 12. 13. c = InputBox("Введите с") Print "a="; a; "b="; b; "c="; c 14. D = (b ^ 2) ­ (4 * a * c) 15. 16. Print "D="; D If D < 0 Then "Нет корней" 17. If D = 0 Then "x="; (­b) / (2 * a) 18. If D > 0 Then "x1="; (­b + Sqr(D)) / (2 * a); "x2="; (­b ­ Sqr(D)) / (2 * a) 19. 20.  End Sub 21. Исправьте ошибки в записи программного кода  22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. Private Sub Command1_Click() 'Задание масштаба Picture1.Scale (­10, 2)­(10, ­2) 'Построение графика функции For X = ­10 To 10 Step 0.01 Picture1.PSet (X, Sin(X)) 'Ось Х Picture1.Line (­10, 0)­(10, 0) For bytI = ­10 To 10 Picture1.PSet (bytI, 0) Picture1.Print bytI Next bytI 'Ось Y Picture1.Line (0, 2)­(0, ­2) For bytI = ­2 To 2 Picture1.PSet (0, bytI) Picture1.Print bytI Next bytI End Sub 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. Напишите программу построения треугольника с вершинами в точках с  координатами  43. (­3,­3), (­6,3) и (3,0). 44. Определите значение переменной c после выполнения следующего фрагмента  программы:  45. 46. 47. 48. 49. 50. b:=35 a:=120 a:=a­3*b Если a>b  То c:=a­b Иначе c:b­a 51. 52. Напишите программу построения графика функции y = cosx. 53. Напишите программу решения квадратного уравнения. 54. 55.