операторы выбора и организации ветвления в программах на VBSRIPT

[alex Fal]

1) Без использования операторов условного перехода написать программу, находящую меньше из двух чисел.
2) Напишите программу, которая переводит школьные отметки в оценки.
3) Исправьте ошибки в данной программе:
x=CInt(inputbox("Введите параметр","вычисление квадратного корня", "1"))
If x>0 Then
Msgbox "Ответ: "&(1/(7/6*4-x))),vbSystemModal, "Результат"
ElseIf
Msgbox "Значение данного выражения вычислить нельзя!",_
vbSystemModal+vbCritical, "ошибка ввода"

P.S. за любую помощь буду крайне признателен....