UBound(a) - 1\rimin =i\rFor j= i + 1 To UBound(a)\rIfa(j) < a(imin) Then imin = j\rNext j\rt = a(i): a(i) = a(im in): a(imin) = t\rNext i.\rEndSub\rPrivateSub Form_Click()\rDimbO, i%\rb `Array (8, 9, 4, 2, 6)\rCal Isort (b())\rFor i = 0 To UBound(b)\rPrint b(i);\rNext i\rEndSub\r45.\rde?/#,\nD?fgh./i#4RO?\rSubsort (a())\rDimimin%, i%, j%\rFor i= 0 To UBound(a) - 1\rForj = 0 To UBound(a) - 1 - i\rIfa(j) > a(j + 1) Then\rt= a(j): a(j) = a(j + 1): a(j + 1) = t\rEndlf\rNext j\rNext i\rEndSub\rPrivateSub Form_Click()\rDimb (), i%\rb `Array (8, 9, 4, 2, 6)\rCallsort (b())\rFori = 0 To UBound(b)\rPrintb(i);\rNexti.\rEndSub