VB encuentra la probabilidad de números binarios

No debería ser una probabilidad.

Dado que el número es fijo

Entonces la probabilidad es fija. De lo que estás hablando debería ser la proporción del. número

p>

Si lo entiendes como yo

Programa de la siguiente manera

privado

sub

command1_click()

atenuado

s

como

cadena

atenuado

b

as

entero

b=0

s=inputbox("Ingrese el número dado")

para

i

= 1

a

len(s)

si

mid(s,i,1)="1"

luego

b=b+1

siguiente

label1.caption ="La proporción de 1 es"

&

b/len(s)

end

sub