Programación VB.

Private Sub Clear Screen Button_Click (remitente como objeto, e como EventArgs) maneja el botón Clear Screen. Haga clic

para cada control como control en Me.Controls

Si Control.GetType = Dollar Box .GetType Entonces

Control.Text = ""

Finalizar si

Siguiente

Finalizar sub

Privado Sub Renminbi 2 Dollars_Click (remitente como objeto, e como EventArgs) maneja el clic

Si Renminbi Box.Text <> "" Y Exchange Rate Box.Text <> "" Entonces

Dim Renminbi como decimal = CDec( Renminbi Box.Text)

Tipo de cambio tenue como decimal = CDec( Exchange Rate Box.Text)

Si el cuadro RMB. Text)

Dollar Box.Text = (RMB * Tipo de cambio).ToString("#. ##")

End If

End Sub

Private Sub USD2RMB_Click(remitente como objeto, e como EventArgs) maneja USD2RMB.Text <> "" y cuadro de tipo de cambio.Text <> "" Luego

Dim Dollar As Decimal = CDec( Dollar Box.Text)

Tipo de cambio tenue como decimal = CDec(Tipo de cambio Box.Text)

Renminbi Box.Text = (Dólar * Tipo de cambio).Text = "VISUAL BASIC PROGRAMACIÓN"

Teacher.Text = "Soy profesor."

Renminbi Convert.Show()

End Sub

Privado Sub ConvertButton_Click (remitente como objeto, e como EventArgs) maneja ConvertButton.Click

Si VBP.Text = "PROGRAMACIÓN BÁSICA VISUAL"