عمل دائرة تكرارية من 0 الى 9999999 دون أن يعلق الكمبيوتر

قد يفيد هذا الكود ولا افضل ان تستخدم قاعد بيانات

انظر هذا

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = ""
        Dim ooo As New Threading.Thread(AddressOf aa)
        ooo.Start(str)
        TextBox1.Text = str
    End Sub
    Public Sub aa(ByRef str As String)
        Dim x As Integer
        For x = 790000000 To 799999999
            str = str & "0" & x & vbNewLine
        Next        
    End Sub

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As Integer

For x = 0 To 9999999

If x.ToString.Length = 1 Then

TextBox1.Text = TextBox1.Text & "079" & "000000" & x & vbNewLine

ElseIf x.ToString.Length = 2 Then

TextBox1.Text = TextBox1.Text & "079" & "00000" & x & vbNewLine

ElseIf x.ToString.Length = 3 Then

TextBox1.Text = TextBox1.Text & "079" & "0000" & x & vbNewLine

ElseIf x.ToString.Length = 4 Then

TextBox1.Text = TextBox1.Text & "079" & "000" & x & vbNewLine

ElseIf x.ToString.Length = 5 Then

TextBox1.Text = TextBox1.Text & "079" & "00" & x & vbNewLine

ElseIf x.ToString.Length = 6 Then

TextBox1.Text = TextBox1.Text & "079" & "0" & x & vbNewLine

ElseIf x.ToString.Length = 7 Then

TextBox1.Text = TextBox1.Text & "079" & x & vbNewLine

End If

Application.DoEvents()

Next

End Sub

End Class

السلام عليكم 
اجي الكريم ... في الملف المرفق سوف تجد ما تريد.
 
تحياتي

WindowsApplication15.rar

WindowsApplication15.rar

عذرا لقد تم رفع الملف مرتين سهوا يمكنك الاستفادة منها