Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Как исправить ошибки в программном коде
Ответ
 
Опции темы Опции просмотра
  (#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
Ответить с цитированием
  (#2 (permalink)) Старый
Vlanib Vlanib вне форума
Member
 
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.07.2008
По умолчанию 30.04.2010, 22:09

Код:
Dim arrNames(), i As Integer, sName As String
For i = 0 To 19
    arrNames(i) = InputBox("Введите фамилию сотрудника:")
Next
sName = InputBox("Кого ищем?")
For i = 0 To 19
    If arrNames(i) = sName Then MsgBox sName & " под номером " & i: Exit Sub
Next
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как найти ошибки в программном коде NotFound Assembler 0 03.04.2011 11:57
Как исправить ошибки в программном коде imported_Witcher Lisp 1 06.06.2009 14:54
Исправление ошибки в программном коде berserker Вопросы начинающих программистов 1 11.01.2009 14:01
Как устранить ошибки в программном коде Наташа85 Java 2 04.12.2008 14:17
Как исправить ошибку в программном коде berserker Delphi 2 10.08.2007 15:19
Как исправить ошибки в программном коде _sg Lisp 0 29.07.2007 10:24
Как исправить ошибку в программном коде fikys Delphi 7 07.06.2007 15:28
Как исправить ошибку в программном коде costa WinAPI 1 21.02.2007 22:12
Как исправить ошибки в программном коде MoonChild WinAPI 19 03.08.2005 19:17
Как исправить ошибки в программном коде atomsk С/С++ 11 14.06.2005 04:38
Как найти ошибки в программном коде Regbist Assembler 6 04.05.2005 10:52
Как исправить ошибки в программном коде Belldandy Assembler 4 05.06.2003 07:09



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов