Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Язык программирования: Visual Basic

10-11 класс

Задача: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно.

Timagaysarov20 21 апр. 2014 г., 15:10:31 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Андрей1101
21 апр. 2014 г., 17:00:59 (10 лет назад)

Sub Z()
Dim a(10) As Currency
Dim i As Integer
Dim min As Currency
Dim s As String
s = "Курсы покупки в банках:" & Chr(13)
For i = 1 To 10
   a(i) = Int(Rnd * 1000 + 3000) / 100
   s = s & i & ": " & a(i) & " " 
   If i = 1 Then min = a(i)
   If a(i) < min Then  min = a(i)
Next i
s = s & Chr(13) & "Меняйте в банке номер:  "
For i = 1 To 10
  If a(i) = min Then s = s & i & "; "
Next i
s = s & Chr(13) & "По курсу: " & min
MsgBox (s)
End Sub

Ответить

Другие вопросы из категории

Помогиииитееее!!!!

на паскале
1.Найти сумму первых 10 натуральных нечетных чисел.
2.Найти произведение натуральных чисел прекратить подсчет при вводе 1.

Дан одномерный массив целых чисел размерностью 20.

Определите количество положительных групп в этом массиве.
(группа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.)

Читайте также

Разработайте приложение для обработки двумерного массива в среде программирования VISUAL BASIC.дан массив x(15). Найти произведенияя отрицательных и

положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2

дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые числа от о до 10000 включительно. Опишите на естественном языке или на

одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0

Cрочно! Язык visual basic,массивы - задачи:

1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки

Английский язык можно условно отнести:

1) -к одному из искусственных языков
2) -к алгоритмическому языку программирования СИ;
3) -к естественным языкам;
4) -к языку логического программирования;
5) -к графическому языку.



Вы находитесь на странице вопроса "Язык программирования: Visual Basic", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.