Выведите на экран значения чисел и определите большее и меньшее из них - VB

Узнай цену своей работы

Формулировка задачи:

1. Напишите программу, в которой бы пользователь мог ввести название города-юбиляра (N) и количество исполнившихся ему лет (Х). После нажатия кнопки ОК должно выйти окно с поздравлением: “Поздравляем жителей города N с Х-летием!!!”. 2. Ввести два числа. Выведите на экран их значения и определите большее и меньшее из них. 3. Напишите программу, которая по знаку математической операции выводит её название. (+ - сложение, * - умножение) 4. Вычислите множество значений функции y=x 52 0+b для аргумента х, изменяющегося от -10 до 10 с шагом 2, при b=5. 5. Вычислите значение n! для n=7. Ответ: 5040.

Пожалуйста

помогите хоть какие-нибудь из них написать.

Заранее спасибо!

Решение задачи: «Выведите на экран значения чисел и определите большее и меньшее из них»

textual
Листинг программы
Option Explicit
Dim i As Integer, n As Integer, s As Integer
 
Private Sub Command1_Click()
s = 1
n = InputBox("Г”Г*ГЄГІГ*ðèГ*Г« ГЄГ*êîãî Г·ГЁГ±Г«Г* Г±Г·ГЁГІГ*ГҐГ¬?")
For i = 1 To n
s = s * i
Next i
Print "Г”Г*êòîðèГ*Г«" & Str(n) & "Г°Г*ГўГҐГ*" & Str(s)
End Sub

Оцени полезность:

15   голосов , оценка 3.6 из 5
Похожие ответы