flavianunesf

Preciso criar uma função que calcule média ponderada. Ela pegaria o valor dos créditos de uma coluna e as notas em outra, daí calcula a média ponderada. Fiz esse esquema abaixo, mas não deu certo Function rsg(creditos(), notas() As Double) As Double Dim i As Integer Dim soma, aux As Double soma = 0 aux = 0 For i = 1 To i = 20 If notass(i) >= 90 Then soma = soma + 5 * creditos(i) ElseIf notas(i) >= 80 And notas(i) < 90 Then soma = soma + 4 * creditos(i) ElseIf notas(i) >= 70 And notas(i) < 80 Then soma = soma + 3 * creditos(i) ElseIf notas(i) >= 60 And notas(i) < 80 Then soma = soma + 2 * creditos(i) ElseIf notas(i) >= 40 And notas(i) < 60 Then soma = soma + 1 * creditos(i) Else: soma = soma + 0 * creditos(i) End If aux = aux + creditos(i) Next i rsg = 0 rsg = soma / aux End Function Alguém pra me ajudar?! Obrigada!

Preciso entregar uns TP`s mas to sem tempo de fazer e tb não to sacando muito como faze-los. Será que alguém se habilita a me ajudar? me enviem seu email para que possamos entrar em contato. bjs.