Arraygetindex

06.02.2007, 13:45. **Показов** 10082. **Ответов** 2

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

Всем доброго время суток...
есть вопрос...
Мне необходимо проверить является ли значение элементом массива
или нет... если является то действие Else действие
использую функцию Arraygetindex
вот код

Код

For g = 1 To p1
p1 = Cint(p1)
v = Round(Rnd*p1,0)
If v =0 Then v= v+1

Dim n As Variant

n = Arraygetindex(roman,v)
If n = Null Then
roman(g) = v
Else
g = g - 1
End If
Next

Вопрос:
почему после сравнения n = Null всё время следующее действие сваливается
на Else (т.е. не идёт продолжение на Then) если значение переменной n при проходе в дебаггере действительно равно Null???

@Mydyvys · 06.02.2007, 13:50

Для проверки надо использовать функцию IsNull.

А значение Null можно только присвоить.

06.02.2007, 13:56

действительно....=) работает=)

If Isnull(n) Then
roman(g) = v
Else
g = g - 1
End If

невнимательность... спасиб!

kor
		1
	Arraygetindex 06.02.2007, 13:45. Показов 10082. Ответов 2 Метки нет (Все метки) Всем доброго время суток... есть вопрос... Мне необходимо проверить является ли значение элементом массива или нет... если является то действие Else действие использую функцию Arraygetindex вот код Код For g = 1 To p1 p1 = Cint(p1) v = Round(Rnd*p1,0) If v =0 Then v= v+1 Dim n As Variant n = Arraygetindex(roman,v) If n = Null Then roman(g) = v Else g = g - 1 End If Next Вопрос: почему после сравнения n = Null всё время следующее действие сваливается на Else (т.е. не идёт продолжение на Then) если значение переменной n при проходе в дебаггере действительно равно Null???

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	06.02.2007, 13:50	2
	Для проверки надо использовать функцию IsNull. А значение Null можно только присвоить. 0

kor
	06.02.2007, 13:56	3
	действительно....=) работает=) If Isnull(n) Then roman(g) = v Else g = g - 1 End If невнимательность... спасиб!

Опции темы