Red de conocimiento informático - Conocimiento del nombre de dominio - Necesito código vb urgentemente, ¿cómo lo hago?

Necesito código vb urgentemente, ¿cómo lo hago?

Esto es para establecer el número aleatorio. La tasa de aprobación debe ser aproximadamente la mitad. El código es el siguiente: Private?Sub?Command1_Click()

Dim?CJ(100,? 2)

Dim?hg?As?Long

hg?=?0?'Número de pases

Imprimir?"?Número de estudiante",?" puntuación"

Para?i?=?0?To?99

CJ(i,?0)?=?1001? ?i?' p>

Aleatorizar ?'Restablecer semilla de número aleatorio

CJ(i,?1)?=?Int(Rnd()?*?100)?1

Imprimir ?CJ(i, ?0),?CJ(i,?1)

Si?CJ(i,?1)?gt;?59?Entonces?hg?=?hg? '60 puntos, agregue 1 al número de personas calificadas

Siguiente?i

MsgBox?"Número de personas calificadas: "?amp;?Format(hg,?"0" )?amp;?" La tasa de aprobación es: "?amp;?Format(hg,?"0")?amp;?""

End?Sub