Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > ПОМОГИТЕ!!!!!! ПРОГРАММИРОВАНИЕ В VBA (EXCEL)!!!

Автор: Ватрушка 3.12.2008, 22:51

Создать процедуру, перемещающую последнюю введенную запись на место первой записи.

Задача 1
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом

Автор: Naghual 4.12.2008, 00:05

Ошиблись разделом, заголовком и манерой написания
Читайте правила

Автор: Данкинг 4.12.2008, 00:11

Снова не понимаю: что тут сложного-то? Просто посидеть и подумать надо.

Автор: Ватрушка 4.12.2008, 06:11

кому как,нам в институте ничего не объясняют,просто дают задание и всё! =(((( а никто не хочет мне помочь =(((

Автор: Данкинг 4.12.2008, 11:47

Цитата(Ватрушка @ 4.12.2008, 06:11

)

нам в институте ничего не объясняют,просто дают задание и всё!

Интересный институт у вас. smile

Всё, офф заканчиваю.

Автор: Ватрушка 4.12.2008, 16:33

у нас интересный прподаватель =(( ничего не объясняет.....и это вообще дом задание =((((

Автор: Dobermann 4.12.2008, 16:37

Ватрушка, Поставь макрос на запись и сделай все что написал, и будет тебе счастье!

Автор: FINANSIST 8.12.2008, 16:22

Цитата(Ватрушка @ 3.12.2008, 22:51

)

Создать процедуру, перемещающую последнюю введенную запись на место первой записи.
Задача 1
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом

Либоя чего-то недопонимаю smile

либо одно из двух

Автор: mihanik 9.12.2008, 06:34

Модератор:

Ватрушка, выложи то что сам/сама уже наделал!
Какие-то попытки решения были?
Хотелось бы увидеть!!!

Это во-первых.

Во-вторых!!!
Обращаюсь к участникам данного обсуждения!!!
Два минуса в репу за один вопрос, - это перебор!!!

Автор: kapbepucm 9.12.2008, 11:21

Цитата(Ватрушка @ 3.12.2008, 22:51

)

Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом

Цитата(kapbepucm @ 5.12.2008, 13:17

)

Код

Sub Test()
  Dim MyValue As Long
  Dim MinValue As Byte, MaxValue As Byte
  On Error GoTo ErrorLabel
  Do
    MyValue = CLng(InputBox("Введите натуральное число"))
  Loop Until MyValue > 0
  On Error GoTo 0
  If Len(CStr(MyValue)) = 1 Then
    MsgBox "Невозможно выполнить указанные действия"
  Else
    MinValue = Left(CStr(MyValue), 1)
    MaxValue = MinValue
    Dim I As Long
    For I = 2 To Len(CStr(MyValue))
      If CByte(Mid(CStr(MyValue), I, 1)) > MaxValue Then MaxValue = CByte(Mid(CStr(MyValue), I, 1))
      If CByte(Mid(CStr(MyValue), I, 1)) < MinValue Then MinValue = CByte(Mid(CStr(MyValue), I, 1))
    Next I
    If ((MinValue + MaxValue) Mod 2) = 1 Then
      MsgBox "нет, не является"
    Else
      MsgBox "да, является"
    End If
  End If
ExitLabel:
Exit Sub
ErrorLabel:
  If Err.Number = 13 Then Resume Else Resume ExitLabel
End Sub