Hacer sumas condicionales en VB .NET

[VTacius]

Esto de las sumas condicionales va porque no se me ocurrió nada más. Básicamente, va en el sentido que necesito que se sumen tres cantidades, agrupándolas en función de cierta (En mi caso particular, que un usuario las haya declarado como "ventas al contado" o "ventas al credito")

Es decir:
Teniendo a, b y c
Si a y b son un credito, sumarlas solo a ellas y sumar aparte a c.

Tenía algo parecido a esto:

Código VB:

f tipo_01 = 1 Then
            total_credito = total_credito + nota_01
        ElseIf tipo_01 = 2 Then
            total_credito = total_contado + nota_01
        Else
            total_contado = total_otro + nota_01
        End If
 
        If tipo_02 = 1 Then
            total_credito = total_credito + nota_02
        ElseIf tipo_02 = 2 Then
            total_credito = total_contado + nota_02
        Else
            total_contado = total_otro + nota_02
        End If
 
        If tipo_03 = 1 Then
            total_credito = total_credito + nota_03
        ElseIf tipo_03 = 2 Then
            total_credito = total_contado + nota_03
        Else
            total_contado = total_otro + nota_03
        End If
 

[VTacius]

Esta bien, me respondo yo mismo:

Código VB:

tipo(3) 'donde se coloca el tipo, que para colocarlo puedes usar cualquier metodo
nota(3) 'básicamente una coincidencia de la que hay que tomar nota a la hora que 'se quiera implementar
For i As Integer = 0 To 2
            MsgBox(tipo(i))
            If tipo(i) = 1 Then
                total_credito = total_credito + venta(i)
            ElseIf tipo(i) = 2 Then
                total_contado = total_contado + venta(i)
            ElseIf tipo(i) = 0 Then
                total_otro = total_otro + venta(i)
            End If
        Next
 

¿Que hace?
Básicamente, se suma a uno de las tres opciones según sea su tipo

¿En que caso se puede usar?
Digamos que tienes 3 o más ventas que sumar, pero debes sumar las hechas al contado con las hechas al crédito por separado. Entonces, usando vectores, es posible hacerlo de una manera algo elegante, ahorrativa. Claro, a la semana alguien habrá mejorado el código, pero esa es básicamente la cuestión

Recomendaciones
Hay que estar atento al manejo de las variables cuando se hace por vectores, es más propenso a tener errores

[VTacius]

Puedo apreciarme a mi mismo un error, extraño que al parecer la aplicación funcionaba de maravilla

===EDITADO===

No hay error. El código hace exactamente lo que dice que hará. Recuerden que tipo(0), tipo(1) y tipo(2) almacenan valores que le habrás de dar antes de nada