3. Текст программы

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

For x = 3 To 4 Step 0.1

y = Cos(x)

MsgBox y

Next

End Sub