Por favor responda las preguntas de programación de VB en lenguaje DO

Private?Sub?Command1_Click() Dim?x?As?Integer n1?=?0 n2?=?0 n3?=?0 n4?=?0 i?=?1 x?=?InputBox("Ingrese el número de"? amp;?i?amp;?" calificación del estudiante: ") Do?While?x?gt;=?0

Si?x?gt;=?90?Then n1?=? n1?1

Si no?x?gt;=?70?Entonces

n2?=?n2?1 Si no? gt;=?60?Entonces

n3?=?n3?1

Si no n4?=?n4?1

¿Fin?Si ¿Fin? If

End?If

i?=?i? ?1

x?=?InputBox("Ingrese el primero"? amp;?i ?amp;?"calificación del estudiante:") ¿Imprimir en bucle?"90:"?n1 Imprimir?"70?~?89:"?n2 Imprimir?"60?~?69:"?n3 Imprimir?"Menos de 60: ";?n4

¿Fin?