Results 1 to 1 of 1
Thread: - ?
Hybrid View
-
10th June 2010 21:05 #1
- ?
, VB 2005, . . , , .
:
Label13-Label22.Code:Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click Dim h, i, j, x1 As Integer h = 0 While (2 * (3 * h + 1) <= 10) h = 3 * h + 1 While (h > 0) For i = h To 10 x1 = mas(i) For j = i - h To 0 If (x1 < mas(j)) Then mas(j + h) = mas(i) Else Exit Sub End If Next j mas(j + h) = x1 Next i End While h = h / 3 End While Label22.Text = mas(1) Label21.Text = mas(2) Label20.Text = mas(3) Label19.Text = mas(4) Label18.Text = mas(5) Label17.Text = mas(6) Label16.Text = mas(7) Label15.Text = mas(8) Label14.Text = mas(9) Label13.Text = mas(10) Label23.Text = " " End Sub
?|AsRock Z77 Extreme 4|i5-3570k@4.20Ghz|TR TS 120M|2x8GB Geil EVO Potenza 1600|A-DATA SP920 128GB|Gigabyte GTX 550Ti|Super Flower Golden Green HX 600w|BENQ GW2265HM|
|AsRock P67 Pro3|i7-26000K@4.40Ghz |2x8GB GSkill Aegis 1600Mhz|Gigabyte GT 640|HANNS-GHS243|
www.brc.soupvolov.com




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in