1.RESİM:
2.RESİM:
2.RESİM:
Kimseye yalan söylemeyeceğim. Gerçi söylesem de herkes anlayıp direkt cevapları vermeyecektir. Bunlar benim final sınav sorularım ama final sınavı bitti ve bu soruların cevaplarını bulamadım. BÜT'e kaldığım için bu soruları hem çözmem gerekiyor hem de benzerlerinin çözümlerini öğrenmem. 1 hafta falan sonra BÜT'e gireceğim. Sizden ricam bunları nasıl çözebilirim? BÜT'te de buna benzer sorular geleceğini düşünüyorum. Bunlara benzer sorular ve çözümleri olan site varsa verirseniz çok sevinirim.
[CODE title="2.Resim 1.soru:"]Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dizi(0 To 9) As Integer
dizi(0) = 5
dizi(1) = 10
dizi(2) = 15
dizi(3) = 13
dizi(4) = 15
dizi(5) = 22
dizi(6) = 42
dizi(7) = 21
dizi(8) = 99
dizi(9) = 4
Array.Sort(dizi)
For sayac As Integer = 0 To 9
ListBox1.Items.Add(dizi(sayac))
Next
End Sub
End Class[/CODE]
2. Resimdeki 1. soruyu yaptım. Belki birilerine yardımı olursa diye paylaşıyorum.
Arkadaşlar vb.net de çok boyutlu Dizi'nin satır ve sütununu girdiğim sayıyı nasıl değiştirebilirim? Array resize ile elle girdiğim değerleri değiştirebiliyorum ama dışarıdan girmeyle ilgili kodları eklediğimde işler karışıyor. Acaba Array. CreateInstance ile mi değiştireceğim? Yoksa farklı bir kod var mı? Array. Resize ile sadece tek boyutlu dizilerde değişiklik yapılıyormuş.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dizi() As Integer = {3, 2, 4, 5, 6, 8}
Array.Resize(dizi, 6)
dizi.SetValue(7, 0)
TextBox1.Text = dizi(0) & "--" & dizi(1) & "--" & dizi(2) & "--" & dizi(3) & "--" & dizi(4) & "--" & dizi(5)
End Sub
Dim dizi() As Integer = {3, 2, 4, 5, 6, 8}
Array.Resize(dizi, 6)
dizi.SetValue(7, 0)
TextBox1.Text = dizi(0) & "--" & dizi(1) & "--" & dizi(2) & "--" & dizi(3) & "--" & dizi(4) & "--" & dizi(5)
End Sub
Public Class Form1
Dim dizi(3, 3)
Dim i, j As Integer
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = ""
For i = 1 To 3
For j = 1 To 3
dizi(i, j) = Val(InputBox("a matrisi" & i & "," & j & ".elemanın değeri:"))
TextBox1.Text = TextBox1.Text & "" & dizi(i, j)
Next j
TextBox1.Text = TextBox1.Text & vbCrLf 'vbCrlf alt satıra atlamak için
Next i
End Sub
Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Array.Resize(dizi, 6)
dizi.SetValue(7, 0)
TextBox1.Text = dizi(0) & "--" & dizi(1) & "--" & dizi(2)
End Sub
'Dim dizi(3) As Integer = {1, 4, 9, 7}
' Array.Clear(dizi, 0, 1)
'ListBox1.Items.Add(dizi(0) & "--" & dizi(1) & "--" & dizi(2) & "--" & dizi(3))
End Class
Dim dizi(3, 3)
Dim i, j As Integer
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = ""
For i = 1 To 3
For j = 1 To 3
dizi(i, j) = Val(InputBox("a matrisi" & i & "," & j & ".elemanın değeri:"))
TextBox1.Text = TextBox1.Text & "" & dizi(i, j)
Next j
TextBox1.Text = TextBox1.Text & vbCrLf 'vbCrlf alt satıra atlamak için
Next i
End Sub
Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Array.Resize(dizi, 6)
dizi.SetValue(7, 0)
TextBox1.Text = dizi(0) & "--" & dizi(1) & "--" & dizi(2)
End Sub
'Dim dizi(3) As Integer = {1, 4, 9, 7}
' Array.Clear(dizi, 0, 1)
'ListBox1.Items.Add(dizi(0) & "--" & dizi(1) & "--" & dizi(2) & "--" & dizi(3))
End Class
Son düzenleme: