Помогите ребят))

В бейсике программы помогите написать, пожалуйста))) 1.Прописные буквы заменить на строчные, строчные на прописные.
2. Дано натуральное трехзначное число. Определить разность между максимальной и минимальной цифрой.

Пожааалуйста)))

 

Диалект хоть какой?

 

для майкрософта офиса..

 

Просто, например, из КаРаНдАш делаешь кАрАнДаШ. Ну а разница это просто максимальное число минус минимальное. Если кто непонял, это шутка.

 

ребят напишите пожалуйста первую задачу ну очень надо((((

 

не знаю, дадут ли за это пинка преподы тебе... Давно с бейсиком не сталкивался.

Второе:

Code:

Dim a As String, text As String, retval As String
Dim i As Long

text = "NeKoKoNeKo"
For i = 1 To Len(text)
  
  a = Mid$(text, i, 1)
  If ((Asc(a) >= Asc("A")) And (Asc(a) <= Asc("Z"))) Then
    retval = retval & LCase(a)
  Else
    retval = retval & UCase(a)
  End If

Next i

MsgBox retval