Új hozzászólás Aktív témák

• #90999040 törölt tag

  #1365

  #1364 dani850430

  2011-03-29 14:14:44

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #90999040

  törölt tag

  #1364 dani850430

  #1364 dani850430

  Sziasztok! VB6-tal kapcsolatban lenne kérdésem. Szeretnék számokat sorba rendezni. Van egy listám(list1), amihez egy gomb segítségével véletlen számokat adok. Egy másik gombbal pedig szeretném növekvő sorrendbe rendezni őket. Arra gondoltam, hogy páronként összehasonlítom az elemeket és az elem indexét kicserélem. Az elméleti megoldásom, hogy egy változóba eltárolom a lista elemek értékét, és ezt egy ciklussal léptetem a listavégig. Egy másik változó lenne az indexek, ami szintén egy ciklusban futna. Ha a k-dik elem kisebb, mint a k+1-dik, akkor a k-dik elem indexe legyen 0. A problémám az, hogy nem tudom összekapcsolni az elem értékét és az indexét. De vhogy sehogy sem akar működni. Tudna vki küldeni programkódot, vagy van vmi egyszerűbb megoldás? Előre is köszönöm.

  Ha csak 1-szerű sorbarendezést szeretnél:

  Private Sub Command2_Click()
  Dim rendezendoe As Boolean
  Dim szamlalo As Integer
  Dim temp As String
  Do
  rendezendoe = False
  For szamlalo = 0 To List1.ListCount - 2
  If (List1.List(szamlalo) > List1.List(szamlalo + 1)) Then
  rendezendoe = True
  temp = List1.List(szamlalo)
  List1.List(szamlalo) = List1.List(szamlalo + 1)
  List1.List(szamlalo + 1) = temp
  End If
  Next
  Loop Until rendezendoe = False
  End Sub

Új hozzászólás Aktív témák