Показать сообщение отдельно
  (#1 (permalink)) Старый
Julia220992 Julia220992 вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.04.2010
По умолчанию Как исправить ошибки в программном коде - 29.04.2010, 16:17

Помогите пожалуйста с программным кодом!
Нужно сделать программный код к заданию:

"Исходные данные: список 20 фамилий сотрудников. Определить номер сотрудника по заданной фамилии. Если такого нет в списке, напечатать: "В списке не значится" " Все на одной форме.

Мне дали пример, но я не могу сделать, т.к. там считали план работы предприятия в %, а как сделать по моему заданию?

Код:
Option Explicit

Dim plan() As Single, N As Byte
Private Sub Command1_Click()
Dim I As Byte
Randomize
N = InputBox(”N=”)
ReDim plan (1 To N) As Single
For I = 1 To N
Plan(i) = Rnd*100+50
List1.List(i-1) = Str(i) & ” ” & Str(Round(plan(i), 2)) & ”%”
Next i
End Sub

Private Sub Command2_Click()
Dim I As Byte, k As Byte
K = 0
For I = 1 To N
If plan(i) < 100 Then
List2.List(k) = Str(i)
K = k+1
End If
Next i
If k = 0 Then
Text1.Text = ”предприятие работало ритмично”
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Text1.Text = ””
List1.Clear
List2.Clear
End Sub
Ответить с цитированием
Ads