While Condition
〔Statements〕
〔Exit While〕
End〔While〕
' 二次元の配列変数の全要素の中から指定のデータを検索する。
Dim array1( , )
Dim line
:
(配列変数array1への値格納処理)
:
line = 0
allCnt = GetArrayCount ( array1 )
While line < allCnt
buff = InArray ( array1( line + 1 ) ,"1999" ,1 ,False )
If 0 < buff Then
Exit While
End If
line = line + 1
End while