ejemplos de codificados en visual basic

Option Explicit On

Public Class Form 1

REM Declaración de variables

Const Pi As Single=3.141592654

Dim R, H, V As Single

REM Contenido del formulario

Private Sub Form1_Load (ByVal sender As System. Object, ByVal e As System.EventArgs) Handles

MyBase. Load

Me.Text=”Cálculo volume cilindro”

ButtonCalcular.Text=”Calcular Volumen”

Label1.Text=”Introduzca aquí el diámetro, en metros”

Label2.Text=”Introduzca aquí la altura, en metros”

End Sub

REM Cálculo y muestra resultados

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonCalcular.Click

R=Val(TextBox1.Text)/2

H=Val(textBox2.Text)

V=Pi*(R^2)*H

LabelResultados.Font=New Font(“Arial”, 10, FontStyle.Bold)

LabelResuewltos.TextAlign=ContentAlignment.MiddleCenter

LabelResueltos.Text=”El volumen del cilindro es de “&V&” metros cúbicos”

End Sub

End Class  

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form 1

REM Declaración de variables

Dim nota 1, nota2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form1- Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MyBase.Load

Me.Text=”Cálculo promedio de 3 notas sumativas”

ButtonCalcular.Text=”Calcular el promedio”

Label1.Text=”Introduzca la primera nota”

Label2.Text=”Introduzca la segunda nota”

Label3.Text=”Introduzca la tercera nota”

End Sub

REM Cálculo y muestra resultados

Private Sub Button1_Click (ByVal sender As System.Object, ByVale e As System.EventArgs) Handles

ButtonCalcular.Click

Nota1=Val (TextBox1.Text)

Nota2=Val (TextBox2.Text)

Nota3=Val (TextBox3.Text)

Promedio= (Nota1+Nota2+Nota3)/3

LabelResultados.Font=New Font (“Arial”, 10, FontStyle.Bold)

LabelResultados.TextAlign=ContentAlignment.MiddleCenter

LabeResueltos.Text=”El promedio es de “&promedio&”

End Sub