Programación VB para puntajes altos sobre cálculo de crédito

Déjame hacerlo

hola

Private Sub Command1_Click()

'Puntuación alta buscando programación de élite de VB sobre entrada de cálculo de crédito Los resultados pueden dar los puntos de calificación correspondientes

Dim x como entero, y como único

x = InputBox("Ingrese su puntuación:")

Si x < 60 O x > 99 Luego Salir Sub

Seleccione Caso x

Caso 60 a 62: y = 1

Caso 63 a 64: y = 1,2

Caso 65 A 67: y = 1,5

Caso 68 A 69: y = 1,8

Caso 70 A 72: y = 2

Caso 73 A 74: y = 2,2

Caso 75 A 77: y = 2,5

Caso 78 A 79: y = 2,8

Caso 80 A 82: y = 3

Caso 83 A 84: y = 3,2

Caso 85 A 87: y = 3,5

Caso 88 A 89: y = 3,8

Caso 90 A 92: y = 4

Caso 93 A 94: y = 4,2

Caso 95 A 97: y = 4,5

Caso 98 a 99: y = 5

End Select

MsgBox "Grade Points=" & y

End Sub

Listo