Bufaum

vo testar valeu ae veiooooo....

sim so que assim eu já sei fazer..so que no tecncico que faço o professor quer que eu faça com as estrturas de for e next ...ajudem me plxx

então foi mal se me expressei errado assim eu preciso calcular a media de uma pessoas que possui 5 noptas e quer media final dessas 5 notas ... Private Sub Command1_Click() Dim nota As Single Dim media As Single Dim i As Single nota = txtnota.Text txtmedia.Text = media For i = 1 To 5 Step 1 media = media + nota Next media = media / (i-1) txtmedia.Text = media End Sub preciso saber o que esta de errado nesse codigo ...pois ele não calcula da sempre zero..passem o codio que devo executar

dim nota as single dim media as single dim i as single nota=txtnota.text media=txtmedia.text nota=txtnota.text for i =1 to 5 step 1 media=media+nota next i media=media/(i-1) Preciso calcular a media de 5 notas de uma pessoa so que não esta calculando o que esta de errado ?