Ficha 8-4

Private Sub cmd1_Click()

Dim media As Single, maximo As Integer, minimo As Integer
Dim id As Integer, soma As Integer, cont As Integer, contp As Integer

media = 0
maximo = 0
minimo = 100
id = 0
soma = 0
cont = 0
contp = 0

num = Val(InputBox("Quantos valores quer inserir?"))
If num = 0 Then
End
End If

Do
id = Val(InputBox("Introduza o " & cont + 1 & " valor"))
cont = cont + 1
If id > 0 Then
soma = soma + id
contp = contp + 1

If id > maximo Then
maximo = id
End If
If id < minimo Then
minimo = id
End If
End If
Loop While num <> cont
media = Round(soma / contp, 1)
resultado.Print "A soma dos números introduzidos é"; soma
resultado.Print "A média dos " & contp & "º números positivos introduzidos é"; media
resultado.Print "O maior número introduzido foi"; maximo
resultado.Print "O menor número introduzido foi"; minimo

End Sub

Private Sub cmd2_Click()
End
End Sub