سوال: ساخت متغییر [بایگانی]

sali444

شنبه 03 اسفند 1387, 01:49 صبح

سلام دوستان
من می خواستم مثلن اگه توی یه تکست باکس عدد 10000 وارد شد، 10000 متغییر ساخته بشه.
ممنون می شم کمکم کنید:متفکر:!!!

xxxxx_xxxxx

شنبه 03 اسفند 1387, 02:22 صبح

ReDim اين امكان رو به شما ميده كه يك متغير از نوع آرايه رو گسترش و يا محدودتر كنيد.
نحوه تعريف:

x = Val(Text1.Text)
ReDim aray(x)

اگر دوباره متغير aray رو ReDim كنيد همه مقادير قبليش از بين ميره. براي حفظ مقادير بايد كلمه Preserve را بياوريد:

ReDim Preserve aray(x)

موفق باشيد/