Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB 6 La probabilidad de que dos números en un dado sean iguales

Programación VB 6 La probabilidad de que dos números en un dado sean iguales

Private Sub Command1_Click() Cls n = Val(InputBox("Ingrese el número de veces para tirar los dados")) Aleatorizar para i = 1 To n

A = Int(6 * Rnd) 1

B = Int(6 * Rnd) 1

Si A = B Entonces C = C 1

Imprimir "A=" amp; amp ", B=" amp; B Siguiente paso Imprimir "Tira los dados" amp; n amp "Veces, el número es el mismo" C amp "Veces, la probabilidad es la misma:" amp; (C / n amp; n amp; "Número de veces, la probabilidad es la misma:" amp; Format(C / n / n)) Format(C / n, "0.00")

End Sub

Hay código, hay imágenes, consulte los resultados en ejecución.

上篇: "El origen de la escritura Yi" 下篇: ¿Qué funciones tiene QQ Yellow Diamond?

Artículos populares