سوال : بدجوري گيرم لطفا جوابمو بديد

[4dweb]

ميخوام با وي بي 6 برنامه اي درست كنم كه 100 تا سوال موقع نوشتن برنامه بهش بدم بعد با زدن يك دكمه به صورت تصادفي 20 تا سوال خودش برام بياره ممنون ميشم زودتر جوابمو بديد خيلي گيرم :19:

[karbon2010]

سلام
اگه سورس شو می خواهی که ندارم اما می توانم کمکت کنم
به دو روش می شود 1- استفاده از بانک اطلاعاتی 2- بصورت دستی
اول بصورت دستی بهت می گم که راحتر است بعد نوع اول
اول از همون طوری که بهت قبلا گفتم به این صورت که



dim a, b, c, i
private sub cmd1_click()
for i = 1 to 5
randomize
a = int(rnd * 6) + 1
if a = 1 then b = "ali"
if a = 2 then b = "hoseen"
if a = 3 then b = "javad"
if a = 4 then b = "majid"
if a = 5 then b = "goli"
if a = 6 then b = "baran"
'....
C = c & ("سوال" & i & ":" & " " & b & " ")
next
print c
c = ""
i = 0
end sub



در ضمن شما 5 رو به 20 و 6 رو به 100 تغییر بده
در مورد بانک اطلاعاتی هم بگو تا برات بنویسم اگه کارت راه نیفتاد

در ضمن تنها مشکلی که داره این است که اگه عدد تکرار بشه سوال تکراری هم بهت میده البته قبلا راه حل رو بهت گفتم

تشکر هم یادت نره

[4dweb]

سلام
اگه سورس شو می خواهی که ندارم اما می توانم کمکت کنم
به دو روش می شود 1- استفاده از بانک اطلاعاتی 2- بصورت دستی
اول بصورت دستی بهت می گم که راحتر است بعد نوع اول
اول از همون طوری که بهت قبلا گفتم به این صورت که


در ضمن شما 5 رو به 20 و 6 رو به 100 تغییر بده
در مورد بانک اطلاعاتی هم بگو تا برات بنویسم اگه کارت راه نیفتاد

در ضمن تنها مشکلی که داره این است که اگه عدد تکرار بشه سوال تکراری هم بهت میده البته قبلا راه حل رو بهت گفتم

تشکر هم یادت نره

دوست عزيز دست شما درد نكنه ولي يه توضيح درباره كدهايي كه نوشتي بده بفهميم چي كار بايد بكنيم دمت گرم منتظر جوابم

[karbon2010]

سلام
توضیحی نمی خواهد عزیز برادر
اما چون گفتی چشم
خط اول : تعریف متغیر a b c
خط سوم: ایجاد حلقه تکرار 1 تا 5 که شما آن را 20 می کنی
خط چهارم و پنجم : یاد داری که هیچ ایجاد عدد تصادفی که شما 6 را به 100 تغییر می دهی
خط های بعدی : این را که یاد داری دستور if که شما بجای اسم ها سوال هایت را می نویسی
خط بعد : قرار دادن 20 سوال در کنار هم
next
خط بعد: نشان دادن 20 سوال
کاری دیگه داشتی ما در خدمتیم

تشکر هم یاد ت نره