Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox - VB
Формулировка задачи:
1). Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox.
2). Найти максимальное значение функции y=1/x^2 на участке 1 ≤ x ≤ 5 с шагом изменения аргумента 0,5.
3). Запросить у пользователя 10 чисел. Определить максимальное значение.
Решение задачи: «Запросить у пользователя название дней. Вывести их на экран с помощью команды MsgBox»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д