tümü

bu başlıkta nickini şu şekil girebilene şuku

  1. 176.
    0
    @96 ya bonus alın binler :

    Dim Nick_Pic As String
    Nick_Pic = InputBox("Nickin ney bin?")

    Dim dizi(Nick_Pic. Length) As String
    For a = 0 To Nick_Pic. Length - 1
    For b = 0 To a
    dizi(a) = dizi(a) + Nick_Pic. Chars(b)

    Next
    Next
    For a = 0 To Nick_Pic. Length - 1

    ListBox1.Items.Add(dizi(a))
    Next
    ···
    #8079811 şikayet
   tümünü göster