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

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

Форум программистов > Программирование, связанное с MS Office > Оператор выбора

Автор: Anna4ka 26.4.2010, 13:50

Помагите пожалуйста решить!!!
1.Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N = 4k (где k — соответствующее частное); если остаток от деления на 4 равен 1, N = 4k + 1; если остаток от деления на 4 равен 2, N = 4k + 2; если остаток от деления на 4 равен 3, N = 4k + 3. Например, 12 = 43, 22 = 45 + 2.

2.Для данного x вычислить значение функции: Если сумма трех попарно различных действительных чисел X, Y, Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из X, Y полусуммой двух оставшихся значений.

Автор: ViterAlex 26.4.2010, 14:02

С оператором выбора Select…Case

Код


Sub test()
  Dim N As Integer
  N = InputBox("Введите N")
  Select Case N Mod 4
    Case 0
      MsgBox N & "=" & 4 & "*" & (N / 4)
    Case 1 To 3
      MsgBox N & "=" & 4 & "*" & (N \ 4) & " + " & (N Mod 4)
  End Select
End Sub

Но, как видно из кода, он не нужен:

Код


Sub test()
  Dim N As Integer
  N = InputBox("Введите N")
  MsgBox N & "=" & 4 & "*" & (N \ 4) & IIf(N Mod 4 = 0, "", " + " & (N Mod 4))
End Sub

Автор: Anna4ka 26.4.2010, 14:15

СПАСИБО БОЛЬШОЕ!!!!)))))

Автор: Anna4ka 26.4.2010, 14:50

Помагите кто нибудь вторую задачу решить!!!

Автор: ViterAlex 26.4.2010, 15:05

ты её сформулируй нормально. А то, x дано, а откуда брать x, y, z непонятно

Автор: Anna4ka 26.4.2010, 16:00

Там в задании вообще больше не чего не указанно!!!!(((((

Автор: Akina 26.4.2010, 17:02

Цитата(ViterAlex @ 26.4.2010, 16:05

)

откуда брать x, y, z непонятно

Судя по заданию с поправкой на кретинизм преподавателя X вводится (параметр), а Y и Z - заданные константы.