PROGRAMA PARA JUGAR CACHO EN VISUAL BASIC

Private Sub CommandButton1_Click()
'***** GENERA 5 NUMEROS ALEATORIOS ******
N1 = Int((Rnd * 6)) + 1
N2 = Int((Rnd * 6)) + 1
N3 = Int((Rnd * 6)) + 1
N4 = Int((Rnd * 6)) + 1
N5 = Int((Rnd * 6)) + 1
'***** ASIGNA A LAS ETIQUETAS ******
Label1.Caption = N1
Label2.Caption = N2
Label3.Caption = N3
Label4.Caption = N4
Label5.Caption = N5
' SELECCIONA LA IMAGEN DE ACUERDO AL NUMERO OBTENIDO ******
' PARA LOS CINDO DADOS, HAY CINCO SELECT CASE
Select Case N1
Case 1
    Image1.Picture = LoadPicture("c:\cacho\d1.bmp")
Case 2
    Image1.Picture = LoadPicture("c:\cacho\d2.bmp")
Case 3
    Image1.Picture = LoadPicture("c:\cacho\d3.bmp")
Case 4
    Image1.Picture = LoadPicture("c:\cacho\d4.bmp")
Case 5
    Image1.Picture = LoadPicture("c:\cacho\d5.bmp")
Case 6
    Image1.Picture = LoadPicture("c:\cacho\d6.bmp")
End Select
Select Case N2
Case 1
    Image2.Picture = LoadPicture("c:\cacho\d1.bmp")
Case 2
    Image2.Picture = LoadPicture("c:\cacho\d2.bmp")
Case 3
    Image2.Picture = LoadPicture("c:\cacho\d3.bmp")
Case 4
    Image2.Picture = LoadPicture("c:\cacho\d4.bmp")
Case 5
    Image2.Picture = LoadPicture("c:\cacho\d5.bmp")
Case 6
    Image2.Picture = LoadPicture("c:\cacho\d6.bmp")
End Select
Select Case N3
Case 1
    Image3.Picture = LoadPicture("c:\cacho\d1.bmp")
Case 2
    Image3.Picture = LoadPicture("c:\cacho\d2.bmp")
Case 3
    Image3.Picture = LoadPicture("c:\cacho\d3.bmp")
Case 4
    Image3.Picture = LoadPicture("c:\cacho\d4.bmp")
Case 5
    Image3.Picture = LoadPicture("c:\cacho\d5.bmp")
Case 6
    Image3.Picture = LoadPicture("c:\cacho\d6.bmp")
End Select
Select Case N4
Case 1
    Image4.Picture = LoadPicture("c:\cacho\d1.bmp")
Case 2
    Image4.Picture = LoadPicture("c:\cacho\d2.bmp")
Case 3
    Image4.Picture = LoadPicture("c:\cacho\d3.bmp")
Case 4
    Image4.Picture = LoadPicture("c:\cacho\d4.bmp")
Case 5
    Image4.Picture = LoadPicture("c:\cacho\d5.bmp")
Case 6
    Image4.Picture = LoadPicture("c:\cacho\d6.bmp")
End Select
Select Case N5
Case 1
    Image5.Picture = LoadPicture("c:\cacho\d1.bmp")
Case 2
    Image5.Picture = LoadPicture("c:\cacho\d2.bmp")
Case 3
    Image5.Picture = LoadPicture("c:\cacho\d3.bmp")
Case 4
    Image5.Picture = LoadPicture("c:\cacho\d4.bmp")
Case 5
    Image5.Picture = LoadPicture("c:\cacho\d5.bmp")
Case 6
    Image5.Picture = LoadPicture("c:\cacho\d6.bmp")
End Select
End Sub

EXAMEN 5º A-B PRIMARIA

examen de 8vos

NUMERO CAPICUA

SISTEMA DE ECUACIONES REGLA DE CRAMER EN EXCEL

FUNCIONES DE LA PRACTICA10

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.

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

COPIAR TEXTO EN WORD PAD

EXAMEN DE SEXTO DE PRIMARIA

Realizar la siguiente figura en el LOGO

EXAMEN DE OCTAVOS DE PRIMARIA

RELIZAR EL EJERCICIO EN EXCEL

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

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