گرفتن خطا از تعریف آرایه

[سید غلامرضا موسوی]

با سلام
برنامه ای نوشتم که از طریق آرایه نام،نام خانوادگی،و نمره سه درس ده دانش اموز را ذخیره می کند. آرایه ها را بصورت public تعریف کردم اما این پیغام را می دهد "user-defined type not defined" . پس از ایجاد تغییراتی در آن این پیغام را می دهد "constants,fixed-length string,array,user-defined type and declare statment not allowed as public members of objects modules" در ضمن برنامه به پیوست میباشد.

[__siavash__]

3 جاش مشکل داشت :
اول که این چیه

Public stuname(9, 1) As string25

اون 25 رو من نمیدونم چیه اما فکر میکنم اشتباه گذاشتی باید برش داری

دوما این دو تا آرایه رو برای Public تعریف کردن باید تو ماژول تعریف کنی !

 

Public stuname(9, 1) As String

Public stugrade(9, 2) As Single

تو این کد هم به i و j توجه کن !

 

Dim j, k

For j = 0 To 9

Print " name is =", stuname(j, 0)

Print " family is =", stuname(j, 1)

Print " grade1 is =", stugrade(j, 0)

Print " grade2 is =", stugrade(j, 1)

Print " grade3 is =", stugrade(j, 2)

Next i

[سید غلامرضا موسوی]

با سلام
اولا 25 جهت تعریف یه رشته ثابت با 25 کاراکتر
ثانیا اگه 25 رو بردارم این پیغام رو میده "constants,fixed-length string,array,user-defined type and declare statment not allowed as public members of objects modules

[__siavash__]

با سلام
اولا 25 جهت تعریف یه رشته ثابت با 25 کاراکتر
ثانیا اگه 25 رو بردارم این پیغام رو میده "constants,fixed-length string,array,user-defined type and declare statment not allowed as public members of objects modules

کارهای بالا رو کردی ؟
من انجام دادم و جواب داد !
راجع به 25 :
شاید منظورت اینه

Public stuname(9, 1) As string * 25

که به احتمال زیاد هم منظورت همینه !
این به استرینگ 25 خونه برای قرار دادن کارکتر ها میده که اگه ورودی بیشتر از 25 باشه بقیشو ندید میگیره!

[سید غلامرضا موسوی]

با سلام
دست شما درد نکنه جواب گرفتم