............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. ............................................................................. .............................................................................
Поиск
Проезд
Друзья
Гид
Жильё
Проехать

Лукошко 

​Магазин
4.2
18 оценок

Контакты

Инфо

Отзывы9

Цены

Фото3

4.2
18 оценок
​Батыршин Алханов​3 отзыва
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim distance As Double Dim fuelRate As Double Dim fuelPrice As Double Dim fuelUsed As Double Dim totalCost As Double distance = InputBox("Введите расстояние в км:") fuelRate = InputBox("Введите расход топлива (л/100км):") fuelPrice = InputBox("Введите цену за 1 литр топлива:") fuelUsed = distance * fuelRate / 100 totalCost = fuelUsed * fuelPrice Label1.Text = "Расход топлива: " & Format(fuelUsed, "#.#####") & " л" TextBox1.Text = "Расстояние: " & Format(distance, "#.#####") & " км" MsgBox("Стоимость поездки: " & Format(totalCost, "#.#####") & " руб.") End Sub End Class Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim speed As Double Dim time As Double Dim distance As Double ' Ввод данных через InputBox speed = InputBox("Введите скорость (км/ч):") time = InputBox("Введите время (часы):") ' Расчет расстояния distance = speed * time ' Вывод результатов Label1.Text = "Скорость: " & Format(speed, "#.##") & " км/ч" TextBox1.Text = "Время: " & Format(time, "#.##") & " ч" MsgBox("Расстояние: " & Format(distance, "#.##") & " км") End Sub End Class
Читать целиком
RM
​Remove Me​9 отзывов
Здесь классно. А также ПСИА
​Ruta Sheldon​4 отзыва
Хорошенький маленький магазин "возле дома". Стал он таким правда недавно, по всей видимости сменился хозяин, либо арендатор. В магазине есть все товары первой необходимости, и даже если чего то нет во время покупки, обязательно привезут на следующий день. Это не может не радовать. Цены адекватные, в магазине чисто, нет посторонних запахов. Обслуживание приятное. Площадь маленькая правда для имеющегося ассортимента, но это дело времени. Удачи и успехов вам!
Читать целиком
Лицензионное соглашение, политика конфиденциальности
Интенсивность снегопада
🍪
Мы используем cookies подробнее