
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