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