jueves, 2 de septiembre de 2010

PRACTICA EXCEL 8vo. A-B


Transcribir la siguiente tabla en excel, solo las columnas A,B,C,D y E
Con el profesor llenaran los demas campos.

martes, 31 de agosto de 2010

SOLUCION DEL EXAMEN SEGUNDO A-B


Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = 0 Then
TextBox3 = Val(TextBox1) + Val(TextBox2)
Else
If ComboBox1.ListIndex = 1 Then
TextBox3 = Val(TextBox1) - Val(TextBox2)
Else
If ComboBox1.ListIndex = 2 Then
TextBox3 = Val(TextBox1) * Val(TextBox2)
Else
If ComboBox1.ListIndex = 3 Then
TextBox3 = Val(TextBox1) / Val(TextBox2)
Else
If ComboBox1.ListIndex = 4 Then
TextBox3 = Val(TextBox1) ^ Val(TextBox2)
End If
End If
End If
End If
End If
ListBox1.AddItem TextBox3
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub CommandButton4_Click()
If ListBox1.ListIndex = 0 Then
ListBox1.RemoveItem 0
Else
If ListBox1.ListIndex = 1 Then
ListBox1.RemoveItem 1
Else
If ListBox1.ListIndex = 2 Then
ListBox1.RemoveItem 2
Else
If ListBox1.ListIndex = 3 Then
ListBox1.RemoveItem 3
Else
ListBox1.RemoveItem 4
End If
End If
End If
End If
End Sub


Private Sub UserForm_Initialize()
ComboBox1.AddItem "SUMA"
ComboBox1.AddItem "RESTA"
ComboBox1.AddItem "MULTIPLICACION"
ComboBox1.AddItem "DIVISION"
ComboBox1.AddItem "POTENCIA"
End Sub

domingo, 29 de agosto de 2010

miércoles, 11 de agosto de 2010

EXAMEN DE SEXTO DE PRIMARIA

Realizar la siguiente figura en el LOGO

EXAMEN DE OCTAVOS DE PRIMARIA

RELIZAR EL EJERCICIO EN EXCEL

viernes, 28 de mayo de 2010

PREGUNTA DE EXAMEN PARA PRIMEROS SEC


Pregunta: Introducir un numero y obtener su raiz cuadrada.

sE LE PROPORCIONA PARTE DE LA SOLUCION, DEBERAN COMPLETAR Y EJECUTAR EL PROGRAMA EN DFD

miércoles, 26 de mayo de 2010

SOLUCION DE EXAMEN PARA SEGUNDO A-B



Private Sub CommandButton1_Click()
A = Val(TextBox1)
N = Val(TextBox2)
RAIZ = A ^ (1 / N)
MsgBox (RAIZ)
End Sub

Private Sub CommandButton2_Click()
TextBox1 = " "
TextBox2 = " "
End Sub

Private Sub CommandButton3_Click()
End
End Sub