Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox

@eko96 · Регистрация: 09.12.2011

Студворк — интернет-сервис помощи студентам

1). Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox.
2). Найти максимальное значение функции y=1/x^2 на участке 1 ≤ x ≤ 5 с шагом изменения аргумента 0,5.
3). Запросить у пользователя 10 чисел. Определить максимальное значение.

SoftIce · 26.12.2011, 17:02

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  Private Sub Form_Load()
    den_ned = InputBox("Введите день недели")
    a = MsgBox(den_ned, vbInformation + vbYes, "Поздравляю!") ' Tекст в окне,картинка, кнопки,шапка
  End Sub
  Private Sub Command1_Click()
  Dim x As Single, y(10) As Single, maks As Single
      maks = y(x)
      For x = 1 To 5 Step 0.5
        y(x) = 1 / (x ^ 2)
        If maks < y(x) Then maks = y(x)
          Print " x  =  "; x; "  y  = "; y(x)
        Next x
      Print "maks = "; maks
   End Sub
Private Sub Command2_Click()
 Dim chislo(10) As Integer
  For i = 1 To 10
    chislo(i) = InputBox("Введите" + Str(i) + "число")
  Next i
  maks = chislo(1)
  For i = 1 To 10
    If maks < chislo(i) Then maks = chislo(i)
  Next i
  Print "maks = "; maks
End Sub

Новые блоги и статьи Все статьи Все блоги /
Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .

@eko96 0 / 0 / 0 Регистрация: 09.12.2011 Сообщений: 28

	Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox 26.12.2011, 15:38. Показов 2007. Ответов 1 Метки нет (Все метки) 1). Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox. 2). Найти максимальное значение функции y=1/x^2 на участке 1 ≤ x ≤ 5 с шагом изменения аргумента 0,5. 3). Запросить у пользователя 10 чисел. Определить максимальное значение. 0