< предыдущий показать вопрос следующий >

дизайн интерьера спальной комнаты может быть любым. / загранпаспорт лучшие цены на доставку .
оформить развод .

From:ivannorilsk@mail.ru
Sent: Friday, January 13, 2006 7:11 PM

Здравствуйте!

Искал в интернете информацию по решению своих вопросов и попал на Ваш сайт. Сайт очень интересный и полезный, причем с учетом того, что в наше время, таким студентам как я, мало кто что объясняет на безвозмездной основе.
Зашел на страничку Вашего сайта "Задачи для самостоятельного решения", решил несколько заданий. У меня к Вам просьба: если Вас, конечно, не затруднит, вышлите мне на email решение (желательно с пояснением) контрольной работы №1и2 (вариант4) и хотя бы бегло, если будет время, проверьте, те которые я решил.
Заранее спасибо.
С уважением, Иван

Sub lab1()
etash = InputBox("введите количество этажей", "этажей", "9")
kv = InputBox("введите номер квартиры", "квартира", "1")
If Val(kv) > (Val(etash) * 3) Then
kv = MsgBox("такой квартиры в доме нет", vbOKOnly)
Exit Sub
End If
etash_lifta = kv \ 3
etash_lifta = etash_lifta - ((etash_lifta + 1) Mod 2)
itog = MsgBox("Лифт остановится на этаже номер " + Str(etash_lifta), vbOKOnly)
End Sub

Sub lab2()
Do While True

If Selection.Text <> " " And first_bukva = "" Then
first_bukva = Selection.Text
End If

Selection.MoveRight Unit:=wdCharacter, Count:=1

If Selection.Text = first_bukva Then
Selection.Delete Unit:=wdCharacter, Count:=1
End If

If Selection.Text = " " Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
first_bukva = ""
End If
Loop
End Sub

Sub lab3()
Dim File(1 To N) As File1
File1 = InputBox("Введите элемент массива", "массив", "N")
If Val(File1) > Val(N) Then
Fale1 = MsgBox("Элементы для удаления не найдены", vbOKOnly)
Exit Sub
Else
ReDim File1(1 To N)
For I = 1 To N
Fale1(I) = N
End If
End Sub
?(как дальше?)

---

Ответы на ваши вопросы опубликованы в разделе "Задачи для самостоятельного решения"

продолжение :