Курсовая работа: Цифровые образовательные ресурсы, как составляющая часть электронного образовательного пространс

Тест по тригонометрии.

1. Чему равен cos(0)?

2. Чему равен sin(0)?

3. Чему равен tg(pi/4)?

4. Чему равен sin(pi/4)?

5. Чему равен cos(pi/6)?

Код программы:

Описание переменных :

Dim k As Byte, k1 As Byte, k2 As Byte, k3 As Byte, k4 As Byte

Dim oc As Byte, pov As Byte, a As Integer

Первый вопрос :

Private Sub CommandButton1_Click()

k = k + 1

If k < 3 Then

If OptionButton1.Value = True Then

Label1.Caption = "Правильно!"