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