Private Sub Command1_Click() Dim k%,a%,b%,c%a = Val(Text1)b = Val(Text2)If (a Mod 2 = 0) And (b Mod 2 = 0) Thena = a \ 2b = b \ 2k = 2Elsek = 1End IfIf a < b Thent = aa = bb = tEnd IfDoc = a - bIf c >...