Ficha nº3

1.

Código:

Private Sub cmdsair_Click()

End

End Sub

Private Sub média_Click()

resultado2.Caption = resultado / 3

End Sub

Private Sub soma_Click()

resultado.Caption = Val(oper1.Text) + Val(oper2.Text) + Val(oper3.Text)

End Sub

2.

Código:

Private Sub cmdigual_Click()

resultado.Caption = Val(oper1.Text) / Val(oper2.Text)

resultado2.Caption = Val(oper1.Text) Mod Val(oper2.Text)

End Sub

Private Sub cmdsair_Click()

End

End Sub

3.

Código:

Private Sub cmdigual_Click()

resultado.Caption = Val(base.Text) * Val(altura.Text)

resultado2.Caption = 2 * Val(base.Text) + 2 * Val(altura.Text)

End Sub

Private Sub cmdsair_Click()

End

End Sub

4.

Código:

Private Sub cmdigual_Click()

Const PI As Double = 3.14159265358979

resultado.Caption = (Val(raio.Text) ^ 2) * PI

End Sub

Private Sub cmdsair_Click()

End

End Sub

5.

Código:

Private Sub cmdigual_Click()

resultado.Caption = (9 / 5) * Val(celsius.Text) + 32

End Sub

Private Sub cmdsair_Click()

End

End Sub