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

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
?(как дальше?)


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

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

СПРАВОЧНИК ДЛЯ ВАС

Как запустить редактор VBA...

Не знаете, как создать форму...

Не знаете, как подключить макросы ...

Вы не знаете, как открыть окно свойств...

Инструментальную панель как открыть...

Автоматическая запись макроса...

Создание своей кнопки и ее подключение к макросу на выполнение...

Как провести проверку на работоспособность созданой кнопки...

Как найти макрос только что созданный вами в автоматическом режиме для последующего редактирования и изучения...

 

 

 
Рейтинг@Mail.ru
 главная с чего начать готовые программы задачи с решениями карта
Copyright © СОМИТ, А.Козлов, 2005 г