Software para realizar una prueba de probabilidad usando VB
Nombre del primer cuadro de texto: texto1 Nombre del segundo cuadro de texto: texto2 Nombre del botón: comando1 Nombre de la ventana: formulario1 Pegue el siguiente código en la página de códigos: private jc as integer 'Coeficiente de bonificación de equipo private cgl as double 'Éxito coeficiente para equipar, es decir, tus 100/95/... djcs privados como entero 'Número de clics private sub form1_load() 'Inicializa jc=0 al iniciar la ventana cgl=100 djcs=0 text1.text=" 0 Equipar " text2.text=djcsend subdim i as integerprivate sub command1_click()for i=1 to 500 'Haga clic hasta 500 veces Aleatorizar(temporizador) Dim RndNum As double RndNum = (Rnd * 100) 'Genere un número aleatorio si rndnum lt; (cgl) entonces jc=jc 1 si jclt;3 entonces cgl=100 si jcgt;=3 y jclt;4 entonces cgl=95 si jcgt;=4 y jclt;5 entonces cgl=90 si jcgt;=5 y jclt; 6 entonces cgl=80 si jcgt;=6 y jclt; 7 entonces cgl=75 si jcgt;=7 y jclt; entonces cgl=62.1 si jcgt;=8 y jclt; jclt;10 entonces cgl=41.4 si jcgt;=10 y jclt;11 entonces cgl=33.9 si jcgt;=11 y jclt;12 entonces cgl=28 si jcgt;=12 y jclt;13 entonces cgl=20.7 si jcgt;= 13 y jclt;14 entonces cgl=17.3 si jcgt;=14 y jclt;15 entonces cgl=13.6 si jcgt;=15 y jclt;16 entonces cgl=10.1 si jcgt;=16 entonces msgbox("Tu equipo es 16, reinicia . ") text1.text = " " amp; jc amp; "Equipo" text2.text = "i" jc=0 cgl =100 i=501 end if else msgbox("Su equipo explotó, comience de nuevo.
") text1.text = " " amp; jc amp; "Equipo" text2.text = "i" jc=0 cgl =100 i=501 end ifnextend sub