EXERCICIOS_VB6

Capítulo 5
Estruturas de Repetição Condicionais Simples II
Início
Soma 0
TotNum 0
Escrever(“Introduza um nº inteiro positivo (<0 para terminar)”)
Ler(N)
Repetir até N < 0
Soma Soma + N
TotNum TotNum + 1
Escrever(“Introduza um nº inteiro positivo (<0 para terminar)”)
Ler(N)
Fim Repetir
Se TotNum > 0 Então
Media Soma / TotNum
Escrever(“Média = ”, Media)
Fim Se
Escrever(“Total de números =” , TotNum)
Fim
2. Codificação em Visual Basic:
Private Sub CmdIniciar_Click()
Dim N As Long, Soma as Long, TotNum As Integer
Dim Media as Single
Soma = 0
TotNum = 0
N = val(inputbox ( “Introduza um número inteiro:” , “Leitura de dados” ))
Do Until N<0
Soma = Soma + N
TotNum = TotNum + 1
N = val(inputbox ( “Introduza um número inteiro:” , “Leitura de dados” ))
Loop
If TotNum >0 Then
Media = Soma/TotNum
LblMedia.Caption = format(Media,”0.0”)
End if
LblTotNum.Caption = TotNum
End Sub
Visual Basic 22