1.
Código:
Private Sub cmdcalcular_Click()
Dim desconto1 As Single, desconto2 As Single
Const DESC As Single = 0.05, DESC2 As Single = 0.08
If Val(quantidade.Text) < 100 Then
desconto.Caption = "0"
total.Caption = Val(quantidade.Text) * 1500
ElseIf Val(quantidade.Text) >= 100 And Val(quantidade.Text) < 1000 Then
desconto1 = Val(quantidade.Text) * 1500 * DESC
desconto.Caption = desconto1
total.Caption = Val(quantidade.Text) * 1500 - desconto1
ElseIf Val(quantidade.Text) >= 1000 Then
desconto2 = Val(quantidade.Text) * 1500 * DESC2
desconto.Caption = desconto2
total.Caption = Val(quantidade.Text) * 1500 - desconto2
End If
End Sub
Private Sub cmdsair_Click()
End
End Sub
2.
Código:
Private Sub cmdcalcular_Click()
Dim Media As Single
Media = Round((Val(teste1.Text) + Val(teste2.Text) + Val(trabalho.Text)) / 3)
If Val(teste1.Text) > 20 Or Val(teste2.Text) > 20 Or Val(trabalho.Text) > 20 Then
media.Caption = "Uma das notas é inválida"
aqualitativa.Caption = "Uma das notas é inválida"
ElseIf Val(teste1.Text) < 0 Or Val(teste2.Text) < 0 Or Val(trabalho.Text) < 0 Then
media.Caption = "Uma das notas é inválida"
aqualitativa.Caption = "Uma das notas é inválida"
ElseIf Val(teste1.Text) < 6.5 Or Val(teste2.Text) < 6.5 Or Val(trabalho.Text) < 6.5 Then
media.Caption = Media
aqualitativa.Caption = "Reprovado"
ElseIf Media < 10 Then
media.Caption = Media
aqualitativa.Caption = "Reprovado"
ElseIf Media >= 10 And Media < 14 Then
media.Caption = Media
aqualitativa.Caption = "Sufeciente"
ElseIf Media >= 14 And Media < 16 Then
media.Caption = Media
aqualitativa.Caption = "bom"
ElseIf Media >= 16 And Media < 18 Then
media.Caption = Media
aqualitativa.Caption = "Bom"
ElseIf Media >= 18 Then
media.Caption = Media
aqualitativa.Caption = "Muito Bom"
End If
End Sub
Private Sub cmdsair_Click()
End
End Sub
Sem comentários:
Enviar um comentário