Даны целые числа K и L

[Мвнюня]

Даны целые числа K и L

Здравствуйте,помогите пожалуйста написать программку на Visual Basice,Даны целые числа K и L. Если числа не равны, то заменить меньшее из них остатком от деления большего на меньшее, а если равны, то заменить оба числа нулями.

 

[interacia]

Private Sub Command1_Click()
'Здравствуйте,помогите пожалуйста написать программку на Visual Basice,
'Даны целые числа K и L. Если числа не равны,
'то заменить меньшее из них остатком от деления большего на меньшее,
'а если равны, то заменить оба числа нулями.
Dim K As Integer
Dim L As Integer
K = 9
L = 6
If K > L Then
L = K Mod L
ElseIf L > K Then
K = L Mod K
Else
L = 0
K = 0
End If
Label1.Caption = L
Label2.Caption = K

End Sub