Problema de programación VB Problema con la bebida Hay N yuanes, 2 yuanes por una botella de vino, se pueden cambiar 4 tapas de botellas por una botella de vino, se pueden cambiar 2 botellas vacías

Esto no requiere recursividad, solo usa un bucle:

Dim N As Integer

Dim Y As Integer

Dim Gai As Entero

Dim Ping As Integer

Dim Temp As Integer

N = Val(InputBox("Ingrese cuántos yuanes es N: "))

Y = N \ 2

Gai = Y

Ping = Y

Hacer mientras Gai gt;= 4 O Ping gt;= 2

Y = Y Int(Gai / 4) Int(Ping / 2)

Temp = Ping

Ping = Ping Mod 2 (Int(Gai / 4) Int (Ping / 2))

Gai = Gai Mod 4 (Int(Gai / 4) Int(Temp / 2))

Bucle

Imprimir N amp; "Yuan Qian:"

Imprimir "Beber:" amp; Y, "Botellas vacías restantes:" Ping, "Tapas de botellas restantes:" Gai