Составить блок схему и написать программу - VB

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

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

имеются данные о кличестве преступлений в Н городах...найти самый криминогеный номер. составить блок схему и написать программу на языке бэйсик для решения этой задачи Помогите пожалуйста... Очень нужно выкинут из универа...Т_Т

Решение задачи: «Составить блок схему и написать программу»

textual
Листинг программы
Private Sub Command1_Click()
Dim i, j, n, st, mx, ind
n = 15
ReDim a(n, 2)
List1.Clear
For i = 1 To n
a(i, 2) = Int(Rnd * 25)
st = ""
For j = 1 To Int(Rnd * 5 + 4)
If j = 1 Then
st = UCase(Chr(Rnd * 30 + 224))
Else
st = st & Chr(Rnd * 30 + 224)
End If
Next j
a(i, 1) = st & Space(40 - 2 * Len(st))
List1.AddItem a(i, 1) & Space(40 - Len(a(i, 1))) & a(i, 2)
Next i
 
'====================
mx = a(1, 2): ind = 1
For i = 1 To n
If a(i, 2) > mx Then
mx = a(i, 2): ind = i
End If
Next i
List1.Selected(ind - 1) = True
MsgBox a(ind, 1) & "   " & a(ind, 2)
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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