کمک میخام خیلی خیلی خیلی زیاد

[mostafashoenz]

سلام
من دنبال یه برنامه میگردم که بتونم توش 2 بازه ی عددی رو وارد کنم و با زدن یک دکمه برنامه بصورت تصادفی عددی را به من معرفی کند البته در محدوده ی بازه ی دو عددی که وارد کردم.
با تشکر

[godvb]

دوست عزیز عنوان تاپیک رو درست انتخاب کنین .
دوتا تکست باکس بذار اولی کمترین مقدار رو وارد کن و دومی بیشترین مقدار .

کد:

Private Sub Command1_Click()
Dim v, c As Integer
c = (Val(Text2.Text) - Val(Text1.Text)) + 1
v = Int(Rnd() * c)
v = v + Val(Text1.Text)
MsgBox v
End Sub

[mbza11]

سلام.
من معمولا تو برنامه هام از اين کد استفاده مي کنم:

کد:

randomize(10000)
x=Int((n-m+1)*rnd+m)
msgbox x

X: عدد تصادفي به دست آمده بين M و N
M: عدد کوچکتر
N: عدد بزرگتر

اين تقريبا همون روش دوست خوبم godvb هست فقط يکم کوتاه و بهينه شده.