Зачетная работа по теме «Ветвление»

Создать приложение «Калькулятор». Эта программа должна выполнять элементарные арифметические действия (сложение, умножение, вычитание и деление).

Для операции умножения нужно предусмотреть размер элемента для вывода результата, чтобы в нем помещались большие числа. Если умножить 999999 на 999999 (самые большие шестизначные числа), получится 999998000001.

VisualBasic знает три (!) различных типа деления:

• Деление чисел с плавающей запятой,

• Деление нацело (результат всегда целое число);

• Деление по модулю (Mod) (результат тоже целое число);

Кроме того, необходимо предусмотреть возможность деления на ноль. Ограничьте число знаков после запятой. Расширь возможности своего калькулятора – добавь еще какую-нибудь функцию, например вычисление Sin(x) или вычисление квадратного корня или что-то свое. !!! Предусмотреть десятичную точку при вводе.

Задача «Стили шрифта» Создайте приложение, которое обеспечивает возможность вводить фрагмент текста и выбирать стиль шрифта – жирный, курсив или оба этих начертания.

P rivate Sub chkжирный_Click()

If chkжирный.Value = 1 Then

txtтекст.FontBold = True

Else

txtтекст.FontBold = False

End If

End Sub

Private Sub chkкурсив_Click()

If chkкурсив.Value = 1 Then

txtтекст.FontItalic = True

Else

txtтекст.FontItalic = False

End If

End Sub

Private Sub cmdвыход_Click()

End

ёEnd Sub

=======================================================================

Создай новый проект, назови его frmBall и придумай заголовок, например «Игра в мяч»

Мяч можно нарисовать иструментом Shape. Закрась мяч и задай ему одинаковые размеры по ширине и высоте. Задай для свойства Left (левая координата) элемента Shape значение 2000.

=======================================================================

Dim xValue As InTeger

D

Привожу свой вариант программы.

Мяч движется по полю по диагонали и, достигнув края формы, летит обратно. Поэтому необходимо вводить опросы столкновений (как в любой компьютерной игре).

im yValue As InTeger

PrivaTe SuB cmdSTarT_Click()

TmrTimer.EnaBled = True

End SuB

PrivaTe SuB cmdSTop_Click()

TmrTimer.EnaBled = False

End SuB

PrivaTe SuB Form_Load()

xValue = 90 'зависит от быстродействия компьютера

yValue = 75

End SuB

PrivaTe SuB TmrTimer_Timer()

shpBall.LefT = shpBall.LefT + xValue

shpBall.Top = shpBall.Top + yValue

If shpBall.Top <= 0 Then yValue = -yValue

If shpBall.LefT <= 0 Then xValue = -xValue

If (shpBall.Top + shpBall.HeighT) >= ScaleHeighT Then yValue = -yValue

If (shpBall.LefT + shpBall.WidTh) >= ScaleWidTh Then xValue = -xValue

E nd SuB

Задание:

1. В нашем задании мяч начинает двигаться вниз и направо. Измени программу так, чтобы он начал двигаться налево и вверх.

2. На панели инструментов найди инструмент Линия (Line). Нарисуй прямую линию и заставь мяч отскакивать от нее.