دارم یه برنامه تستی چهارگزینه ای میسازم که سوال و جوابهارو از دیتابیس میگیره ولی تو ی قسمت دچار مشکل شدم
یعنی میخوام سوالات رو به ترتیب رکوردها بپرسه ولی به صورت تصادفی هر سوال رو میاره
کسی میتونه کمک کنه ؟؟؟؟
کد زیرچطور تغییر بدم که به ترتیب بیاره؟؟؟
Dim Result As Int
Counter = Counter + 1
Qnumber = Rnd(1, 30)
lblQuestion.Text = QuestionList.Get(Qnumber)
If Qnumber >= 30 Then
Qnumber = 0
End If
If Counter = 10 Then
Result = Msgbox2("شما به 8 سوال پاسخ دادید", "Score", "Continue", "Finish", "", Null)
Counter = 0
End If
سوال
ali2 115
سلام دوستان
دارم یه برنامه تستی چهارگزینه ای میسازم که سوال و جوابهارو از دیتابیس میگیره ولی تو ی قسمت دچار مشکل شدم
یعنی میخوام سوالات رو به ترتیب رکوردها بپرسه ولی به صورت تصادفی هر سوال رو میاره
کسی میتونه کمک کنه ؟؟؟؟
کد زیرچطور تغییر بدم که به ترتیب بیاره؟؟؟
Dim Result As Int Counter = Counter + 1 Qnumber = Rnd(1, 30) lblQuestion.Text = QuestionList.Get(Qnumber) If Qnumber >= 30 Then Qnumber = 0 End If If Counter = 10 Then Result = Msgbox2("شما به 8 سوال پاسخ دادید", "Score", "Continue", "Finish", "", Null) Counter = 0 End Ifلینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.