Programación En Visualbasic

UNIVERSIDAD TECNICA DE MACHALA
FACULTAD DE CIENCIAS SOCIALES
ESCUELA DE CIENCIAS DE LA EDUCACION
MODULO:
DOCENCIA EN INFORMATICA
CURSO:
3ero “B”
ALUMNA:
NAVASHA ACOSTA
AÑO LECTIVO
2012-2013PROGRAMA QUE PERMITE CALCULAR UN PROMEDIO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim N1 As Integer = CInt(TextBox1.Text)
Dim n2 As Integer = CInt(TextBox2.Text)
Dim p As Integer
p = (N1 + n2) \ 2
TextBox3.Text = p

End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

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

End Sub
End Class

PROGRAMA QUE PRESENTA LA SUMA DE 3 NUMEROS

PROGRAMA QUE PERMITE PRESENTAR MAYOR DE EDAD

Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If CInt(txt1.text) >= 18 Then
lbl1.Text = "mayor de edad"
Elselbl1.text = "coco"

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
EndEnd Sub
End Class

PROGRAMA QUE PRESENTAN NUMEROS DEL 1 AL 10

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
Dim X As Integer

For X = 1 To 10
ListBox1.Items.Add(X)

Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button2.Click
End
End Sub
End Class

PROGRAMA QUE PRESENTAN NUMEROS DEL 100 AL 150

Public Class Form1

Private Sub Button1_Click(ByVal...