Do While + Do While - VB

Формулировка задачи:

Вычислить значения функции a = (b^x + c^y)* sin(xy) при изменении x в пределах /1; 2/ c шагом 0,25 и y в пределах /4,2; 5,1/ c шагом 0,3

Решение задачи: «Do While + Do While»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x As Double, y As Double, dx As Double, dy As Double
Dim a As Double, b As Double, c As Double
x = 1
y = 4.2
dx = 0.25
dy = 0.3
b = 2
c = 3
Do
a = (b ^ x + c ^ y) * Sin(x * y)
Print "a(x=" & x & ", y=" & y & ")=" & a
x = x + dx
y = y + dy
Loop While x < 2 Or y < 5.1
End Sub
                        