'redim'에 해당되는 글 1건

  1. 2009.01.30 ASP VBScript - 배열 선언 or IsArray by 잠수콩



배열 선언 방법
1. dim KKK_Array(10)
2. dim KKK_Array()
   redim KKK_Arrya(10)
예제) 구구단
<%
dim KKK_Array()
redim KKK_Array(9,9)
'//Ubound(KKK_Array) --> '9'  출력됨
'//Ubound(KKK_Array,2) --> '9'  출력됨

'배열데이타 ( 일단 0부터 9까지 데이타를 가지고있다 )
for i=0 to Ubound(KKK_Array)
   for j=0 to Ubound(KKK_Array,2)
      KKK_Array(i, j) = i * j
  next
next

'redim preserve KKK_Array(9,8) --> 구팔단? ㅋㅋ 사이즈를 줄인다
'redim preserve KKK_Array(9,10) --> 구십단? ㅋㅋ 사이즈를 늘린다

'print ( 2단 부터 프린트 )
for i=2 to Ubound(KKK_Array)
   for j=1 to Ubound(KKK_Array,2)
      response.write i & " * " & j & "=" & KKK_Array(i, j) & "<br>"
  next
next
%>
저작자 표시 비영리 변경 금지
신고
Posted by 잠수콩