X.
Line (-1, 0) - (l, 0)
For I = -1
To 1 picl
. PSet (I, 0) picl.
Print I
Next I 'Вісь Y .
Line (0,-l) - (0, 1)
For I = -1 To 1 . PSet (0, I). Print I
Next I
End Sub
4) Ввести кількість генеруються точок. Після клацання по кнопці Пуск в графічному полі буде відображено процес генерації випадкових точок, а в текстові поля виведені кількості випадінь В«орлаВ» і В«решкиВ».
На перевірку знань: У процесі тренувань тенісистів використовуються автомати з кидання м'ячика в певне місце майданчика. Необхідно задати автомату необхідну швидкість і кут кидання м'ячика для потрапляння в майданчик певного розміру, що знаходиться на відомій відстані. p align="justify"> 1) Розмістити на формі шість текстових полів:
В· txtVO для введення значень початкової швидкості;
В· txtA для введення кута кидання;
В· txtS для введення відстані до майданчика;
В· txtL для введення довжини майданчика;
В· txtX для виведення координати х падіння м'ячика;
В· txtM для виведення текстового повідомлення про результати кидка.
2) Помістити на форму мітки для позначення полів і одиниць виміру.
3) Помістити на форму кнопку і створити для неї подієву процедуру, яка забезпечує присвоєння змінним значень, введених в текстові поля, обчислення координати х падіння м'ячика і виведення результатів на форму з використанням конструкції вибору Select Case:
Const G As Single = 9.81 Const ...
