Язык программирования: Visual BasicЗадача: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, ч...
Язык программирования: Visual Basic
Задача: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы