Pila segment para stack "stack"
Public Class Form1
Dim N, L, F As Double
CALCULAR
Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
N = txt1.Text
L = 1
F = 2
Do
L = L * F
F = F + 1
Loop Until (F > N)
txt2.Text = L
End Sub
LIMPIAR
Private Subcmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
txt1.Text = " "
txt2.Text = " "
End Sub
FIN
Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click
End
End Sub
End Class
BANCO
Public Class Form1
Dim C, M, P1, M1, TP, T, TI, P As Double
CALCULAR
Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
C = txt1.Text
M = txt2.Text
Do
M1 += 1
T = C
P = 0.01
TP = C * (P)
TI = TP + C
txt3.Text += M1 & " " & Format(T, " 00.00") & " " & Format(TI, " 00.00") &" " & vbCrLf
C = TI
Loop Until M1 = M
End Sub
LIMPIAR
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
txt1.Text = " "
txt2.Text = " "
txt3.Text = " "
End Sub
SALIR
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles cmd3.Click
End
End Sub
End Class
CONTRASEÑA
Public Class Form1
Dim x As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "jim" Then
Me.Hide()
Form2.Show()
else
x = x + 1
MsgBox("Llevas " & x& " intentos de 3")
End If
If x = 3 Then
MsgBox("Contraseña invalidada")
End
Else
TextBox1.Clear()
TextBox1.Focus()
End If
End Sub
End Class
CALCULADORA
Public Class Form2
Dim num1, num2, ope, resul As String
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
TextBox1.Text += "1"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text += "2"
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text += "3"
End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text += "4"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text += "5"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button8.Click
TextBox1.Text += "6"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text += "7"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text += "8"
End Sub
Private SubButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text += "9"
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text += "0"
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)...
Regístrate para leer el documento completo.