Svårigheter med att formulera algoritmer. HJÄLP.

Kan nå´n lämna över till mig en hjälpande- och skrivande hand från eran tangentbord, till nedanstående (allra längst ner), som kan överföra VB-språket till algoritmer?!
Kan icke få igång hjärnverksamheten!!

Har frågat om detta förut Vägen till att få äta pizza och dricka en Guinness som jag inte blev smartare av förstås :e tyvärr. :(

Jag har ju hört att det bl.a. spars in tid, med att planera och analysera lösningen/problemet noga först, med algoritm, innan man börjar koda.
Tyvärr, så började jag denna gång bakvägen, som tog ju sin tid, så nu ska jag vara mer förutseende, inför nästa projekt :stud
Så här kommer en redan inkodad- och fullbordad VB-språk, som söker en algoritm (även om problemet är löst), men bara så att stackars jag får åtminstone ett större överblick:

Private Sub pris_Click()

   Dim utgift As Integer
   
   If a.Value Then
   utgift = aInt
   Else
   utgift = bInt
   End If
   
   If HScroll1.Value Then
   utgift = utgift + cInt
   End If
   
   If d.Value = Checked Then
   utgift = utgift + dInt
   End If
   
   If e.Value = Checked Then
   utgift = utgift + eInt
   End If
   
   If f.Value = Checked Then
   utgift = utgift + fInt
   End If
   
   txtSumma.Text = utgift

End Sub

Programavsnittet beräknade alltså fram den totala summan, från av det som användaren har valt.

Mvh
/Cheezes