quote:

Orjinalden alıntı: corvus_corvusan

Eğer pcnde kurulu basic varsa kodlar da şu şekilde. C ile daha kısa olurdu kanimca ama javascript ile uğraşmaya başladım iyice birbirlerine girdiler c ile. Umarım istediğin şeyi doğru anlamışımdır.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub

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

Dim title As String = "InputBox "
Dim j As Integer
Dim x As Integer = Convert.ToInt32(TextBox1.Text)
Dim i As Integer
Dim dizi(x) As String

For i = 0 To x - 1
dizi(i) = InputBox("Lütfen ürün adlarını giriniz", title, 1)
Next

For i = 0 To x - 1
For j = 0 To x - 1
If dizi(i) <> dizi(j) Then

Label2.Text = Label2.Text + " " + dizi(i) & dizi(j)
Else

End If
Next

Next


End Sub
End Class