Programación En Visualbasic
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...
Regístrate para leer el documento completo.