sexta-feira, 30 de outubro de 2009

Ficha 8-1




Private Sub cmd1_Click()

Dim n1 As Integer, n2 As Integer, soma As Integer

n1 = Val(oper1.Text)
n2 = Val(oper2.Text)

If n1 < 0 Or n2 < 0 Then
resultado.Print "Erro"
ElseIf n1 < n2 Then
n1 = n1 + 1
Do
soma = soma + n1
n1 = n1 + 1
Loop Until n1 = n2
resultado.Print soma
ElseIf n1 = n2 Then
resultado.Print "Não há valores a somar"
Else
n2 = n2 + 1
Do
soma = soma + n2
n2 = n2 + 1
Loop Until n1 = n2
resultado.Print soma
End If

End Sub

Private Sub cmd2_Click()
End
End Sub

Sem comentários:

Enviar um comentário