vb6 algoritmo per nuovo programma

[Jc_]

non e' complicato imo.
Farei una cosa del tipo.

[squadra1] vs [squadra2] [RisSquadra1] - [RisSquadra2]

Dim puntiSquadra1 as Integer
Dim GolFattiSquadra1 as Integer
Dim GolSubitiSquadra1 as Integer

Dim puntiSquadra2 as Integer
Dim GolFattiSquadra2 as Integer
Dim GolSubitiSquadra2 as Integer


if RisSquadra1 > RisSquadra 2 Then
puntisquadra1 = 'prendi dal db i punti attuali della squadra
puntiSquadra1 += 3 
GolFattiSquadra1 = ' gol fatti dal db
GolFattiSquadra1 += [RisSquadra1]
GolSubitiSquadra1  = ' dati db
GolSubitiSquadra1  += [RisSquadra2]
end if

if RisSquadra2 > RisSquadra 1 Then
puntisquadra2 = 'prendi dal db i punti attuali della squadra
puntiSquadra2 += 3 
GolFattiSquadra1 = ' gol fatti dal db
GolFattiSquadra1 += [RisSquadra1]
GolSubitiSquadra1  = ' dati db
GolSubitiSquadra1  += [RisSquadra2]
end if

if RisSquadra2 = RisSquadra 1 Then
puntisquadra2 = 'prendi dal db i punti attuali della squadra
puntiSquadra2 += 1 
puntisquadra1 = 'prendi dal db i punti attuali della squadra
puntiSquadra2 += 1GolFattiSquadra1 = ' gol fatti dal db
GolFattiSquadra1 += [RisSquadra1]
GolSubitiSquadra1  = ' dati db
GolSubitiSquadra1  += [RisSquadra2]
end if