Diferencia entre revisiones de «Pectoral»

Contenido eliminado Contenido añadido
Sin resumen de edición
m Deshecha la edición 24735710 de 189.186.90.133 (disc.)
Línea 1:
La palabra '''Pectoral''', del [[latín]] ''pectoralis'' (plural ''pectorales'') se puede referir a lo relativo al pecho, a la [[Tórax|cavidad pectoral]]. También a los músculos pectorales:
Public Class Form1
* [[Pectoral mayor]]
Dim preg(0 To 30) As String
* [[Pectoral menor]]
Dim Resp(0 To 30) As String
Dim num As Integer
 
Comúnmente se llama pectoral a lo que es útil o provechoso para el pecho, como las ''flores pectorales''.
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If TextBox1.Text = "" Then
Button2.Enabled = False
Else
Button2.Enabled = True
End If
Randomize()
preg(0) = "Cd. japonesa que recibió bomba atomica"
Resp(0) = "HIROSHIMA"
preg(1) = "Primer presidente de Mexico"
Resp(1) = "GUADALUPE VICTORIA"
preg(2) = "Descubrió america"
Resp(2) = "CRISTOBAL COLON"
preg(3) = "Presidente actual de Mexico"
Resp(3) = "FELIPE CALDERON"
preg(4) = "Año de inicio de la Rev. Mexicana"
Resp(4) = "1910"
preg(5) = "Hizo leyes de reforma"
Resp(5) = "BENITO JUAREZ"
preg(6) = "Presidente de Mexico por 33 años"
Resp(6) = "PORFIRIO DIAZ"
preg(7) = "Quien dio el grito de Independencia"
Resp(7) = "MIGUEL HIDALGO"
preg(8) = "Donde fue el grito de independencia"
Resp(8) = "DOLORES"
preg(9) = "Presidente actual de los EUA"
Resp(9) = "BARRACK OBAMA"
preg(10) = "Lider Nazi"
Resp(10) = "ADOLFO HITLER"
preg(11) = "Donde perdio Napoleon"
Resp(11) = "WATERLOO"
preg(12) = "Años de mundiales de futbol en Mexico"
Resp(12) = "1970 Y 1986"
preg(13) = "Pdte de Mexico que desató crisis"
Resp(13) = "ERNESTO ZEDILLO"
preg(14) = "Año del efecto tequila"
Resp(14) = "1994"
preg(15) = "Años del poder del PRI"
Resp(15) = "70"
preg(16) = "Pais que invento la polvora"
Resp(16) = "CHINA"
preg(17) = "Donde esta la gran muralla"
Resp(17) = "CHINA"
preg(18) = "Civilización con grandes piramides"
Resp(18) = "EGIPTO"
preg(19) = "Mujer de la Conspiracion de Queretaro"
Resp(19) = "JOSEFA ORTIZ DE DOMINGUEZ"
preg(20) = "dijo: sufragio efectivo, no reeleccion"
Resp(20) = "FRANCISCO I. MADERO"
preg(21) = "Persona más rica del mundo"
Resp(21) = "BILL GATES"
preg(22) = "Primer presidente de EUA"
Resp(22) = "GEORGE WASHINGTON"
preg(23) = "Civilización de Chichen-Itza"
Resp(23) = "MAYA"
preg(24) = "pais conocido como la madre patria"
Resp(24) = "ESPAÑA"
preg(25) = "Mes patrio en Mexico"
Resp(25) = "SEPTIEMBRE"
preg(26) = "Mesoamerica es al norte o sur"
Resp(26) = "SUR"
preg(27) = "Aridoamerica es al norte o sur"
Resp(27) = "NORTE"
preg(28) = "Cuantos eran los niños heroes"
Resp(28) = "SEIS"
preg(29) = "Donde pelearon los niños heroes"
Resp(29) = "CASTILLO DE CHAPULTEPEC"
preg(30) = "Logro la expropiación petrolera"
Resp(30) = "LAZARO CARDENAS"
End Sub
 
En religión, a la [[cruz]] que los [[obispo]]s y [[abad]]es llevan sobre el pecho se le denomina [[cruz pectoral]].
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.Enabled = True
Label3.Text = ""
Label4.Text = ""
TextBox1.Text = ""
Label6.Text = ""
num = Fix(30 * Rnd())
Label3.Text = num
Label4.Text = preg(num)
TextBox1.Focus()
End Sub
 
{{desambiguación}}
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Enabled = False
 
[[en:Pectoral]]
If UCase(TextBox1.Text) = Resp(num) Then
[[fr:Pectoral]]
Label6.Text = "correct"
Else
Label6.Text = "wrong!!"
End If
If Label6.Text = "correct" Then
Label9.Text = Label9.Text + 1
Else
Label10.Text = Label10.Text + 1
End If
End Sub
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label11.Text = (Label9.Text / (0 + Label9.Text + Label10.Text)) * 100
End Sub
 
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
End Sub
End Class