Составить блок схему и написать программу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
