Programas Hechos En Visual Studio 2010
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
Dim op As Integer
Dim ad As Integer
Dim hp As Integer
Dim seno As Integer
Dim coseno As Integer
op = Val(Txtop.Text)
ad = Val(Txtad.Text)
hp = Val(Txthp.Text)
seno = op / hp
coseno =op / hp
Txtseno.Text = Str(seno)
Txtcoseno.Text = Str(coseno)
End Sub
End Class
2) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim base As Integer
Dim altura As Integer
Dim area As Integer
base = Val(Txtbase.Text)
altura =Val(Txtaltura.Text)
area = Val(Txtarea.Text)
area = base * altura / 2
Txtarea.Text = Str(area)
End Sub
End Class
3) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim altura As Integer
Dim bace As Integer
Dim hipotenusa As Integer
Dim total AsInteger
altura = Val(txtA.Text)
bace = Val(txtB.Text)
total = (altura ^ 2) + (bace ^ 2)
hipotenusa = total ^ (0.5)
txtH.Text = Str(hipotenusa)
End Sub
End Class
4) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numero As Integer
Dimpotencia As Integer
Dim resultado As Integer
numero = Val(Txtn.Text)
potencia = Val(Txtp.Text)
resultado = numero ^ potencia
Txtr.Text = Str(resultado)
End Sub
End Class
5) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numero As IntegerDim potencia As Integer
Dim resultado As Integer
numero = Val(Txtn.Text)
potencia = Val(Txtp.Text)
resultado = numero ^ potencia
Txtr.Text = Str(resultado)
End Sub
End Class
6) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Vcomisiones AsInteger
Dim Numero As Integer
Dim comisiones As Integer
Vcomisiones = (txtv.Text)
Numero = (txtn.Text)
comisiones = Vcomisiones * Numero
Txtc.Text = Str(comisiones)
End Sub
End Class
7) Public Class Form1
Private Sub Btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcular.ClickDim millas As Integer
Dim kilometros As Integer
Dim metros As Integer
Dim pies As Integer
millas = Val(Txtmillas.Text)
kilometros = (millas * 1609) / 3600
metros = kilometros * 1000
pies = metros * 3.28
Txtkilometros.Text = Str(kilometros)
Txtmetros.Text = Str(metros)
Txtpies.Text = (pies)
End Sub8) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim distacia As Integer
Dim tiempo As Integer
Dim velocidad As Integer
distacia = Val(Txtd.Text)
tiempo = Val(Txtt.Text)
velocidad = distacia / tiempo
Txtv.Text = Str(velocidad)
End Sub
EndClass
9) Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim vef As Integer
Dim veo As Integer
Dim ti As Integer
Dim aceleracion As Integer
vef = Val(txtvf.Text)
veo = Val(txtvo.Text)
ti = Val(txtt.Text)
aceleracion = (vef - veo) / ti...
Regístrate para leer el documento completo.