вывод единственного значения

@irealife · Регистрация: 10.05.2012

Author24 — интернет-сервис помощи студентам

Имеются условия

Visual Basic

tipletters1 >= 7  
tipletters2 >= 6 
tipletters3 >= 6 
tipletters4 >= 5 
tipletters5 >= 6 
tipletters6 >= 6 
tipletters7 >= 6 
tipletters8 >= 6
tipletters9 >= 6 
tipletters10 >= 6
tipletters11 >= 6

нужно, чтобы выводился какой-то один из этих tipletters, если только он единственный удовлетворяет этому условию, а если несколько tipletters удовлетворяет условию, то выводилось ПУСТО.

@ikki · 20.07.2012, 02:21

лучше такие штуки делать через массивы

Visual Basic

dim tipletters%(1 to 11) , условия%(1 to 11), i%, ii%, n%
n=0
for i=1 to 11
  if tipletters(i)>=условия(i) then ii=i: n=n+1
next
if n=1 then msgbox tipletters(ii) else msgbox "пусто"

но если у вас такая уж жуткая необходимость работать с отдельными переменными,..
...то всё равно массивы

Visual Basic

dim arr(), условия(), i%, ii%, n%
' ... ваш код до нужной проверки
arr=array(tipletters1, tipletters2, tipletters3, tipletters4, tipletters5, tipletters6, _
             tipletters7, tipletters8, tipletters9, tipletters10, tipletters11)
условия=array(7, 6, 6, 5, 6, 6, 6, 6, 6, 6, 6)
for i=lbound(arr) to ubound(arr)
  if arr(i)>=условия(i) then ii=i: n=n+1
next
if n=1 then msgbox arr(ii) else msgbox "пусто"

	20.07.2012, 02:21