درخواست سورس توليد عدد

[Ali0541]

با سلام
من سورس برنامه اي رو مي خوام كه با زدن بر روي دكمه دو عدد ايجاد كنه
مثلا
عدد اول = 43685
عدد دوم = 445365
دقيقا به همين صورت يعني عدد اول 5 رقم و عدد دوم 6 رقم داشته باشه ممنون

[baran.ng85]

با سلام
معیار تولید عدد چیه؟

[HjSoft]

من با توجه به اينكه هيچ معياري ندارين . اين كد رو ميزارم .
البته ميشد عدد rnd رو زياد كرد اما اينجوري بهتره .

Private Sub Command1_Click()
Text1.Text = new_num & new_num & new_num & new_num & new_num
Text2.Text = new_num & new_num & new_num & new_num & new_num & new_num
End Sub

Private Function new_num() As String
Dim MyNumber As Integer
f:
Randomize
MyNumber = (10 * Rnd) + 1

new_num = MyNumber
End Function