D i» fta ndAr rệ jt(ộ r© Aí lcoj?
30 Chương 11; Sử dụng các mảng để quản lý dư liệu số và chuỗ
m ộ t m ản g có tê n là R andA rray và đà đ ịn h chiều cho nó b ằ n g 500 p h ầ n tử. M ột đôl tượng progress b a r đã được đ ịn h chuẩn đ ể th e o dõi
m ột ph ép tín h 500 đơn vị (kích cỡ mảng), v à sô' 500 x u ấ t h iệ n ở bên
p h ải th a n h tiế n dộ (công việc của một đối tượng la b el và h à m UBound).
6. N h ấp n ú t F ill A r r a y .
Chương tr ìn h tả i R andA rray với 500 số ngẫu n h iê n (được d ẫ n x u ất
bởi h àm Rnd) v à h iể n th ị các số tro n g hộp te x t. K h i chương tr ìn h xử lý m ả n g và đ iề n dữ liệu vào đô'i tượng hoặc te x t, th a n h tiế n độ từ từ lấp đầy m àu x a n h lá câỵ M àn h ìn h trô n g n h ư h ìn h m in h h ọ a dưới đây k h i tiế n tr ìn h được ho àn tất.
705547533424 533424 573518 289562 774740 14017 760723 814490 7 fm v 45352 414032 8C2613 7S0430
r rểABạy ỉ Ị^_SofỊAỉí4ỵ ' ị_Rev»s6 j
M â tạo r a k ế t quả n à y là th ủ tục sự kiện B u tto n l_ C lick chứa các câu lệ n h chương tr ìn h sau đây:
‘ Flll tlie array w ỉth ranđom numbers and đỉsplay in text box Privaíe Sưb Button1_Click{ByVal sender As System.Obịect
ByVaí e As System .EventArgs) Handles B ư tto n lC lick Dim i As Integer
For i = 0 To UBound(RandArray)
RandArray(i) = ln t{R n d () * 1000000)
T extB o xl.T ext = T e x tB o x U e x t & RandArray(i) & vbCrLt ProgressBarl.Value » i 'move progress bar
Next i End Sub
Đ ể n h ậ n được các sô" n g ẫu n h iên vôn là các sô" nguyên, các h à m In t và R nd đ ã được sử d ụ n g cùng với n hau n h ư tro n g chương 2 v à số
n gẫu n h iê n được tạo r a bởi R nd được n h â n vứi 1,000,000 để có được các số nguyên vốn là sá u chữ số hoặc ít hơn. Việc g á n nhữ ng sô' này vào m ản g được làm đễ d àn g b ằng việc sử d ụ n g m ộ t vòng lặ p For... N ex t với m ột index m ả n g k h ác với bộ đếm vòng lặp (i), Đ iền đầy m ả n g là m ột th a o tác cực kỳ n h a n h ; việc g iảm tốc độ xuống (và nhu cầu về th a n h tiế n độ) gây r a do gán các p h ầ n tử m ả n g vào đối tượng hộ p te x t mỗi lầ n m ột p h ầ n tử. Điều n ày đòi h ỏ i cập n h ậ t m ột th à n h p h ầ n giao diện người dùng tr ê n fo n n 500 lầ n v à tiế n tr ìn h m ấ t m ột v à i giây dể h o àn th à n h . Vì đối tượng p ro g re ss b a r đ ã được định chuẩn đ ể sử dụng số p h ầ n tữ m ảng là m mức tố i đ a của nó, việc gán bộ đếm vòng lặp (i) vào thuộc tín h V alue của th à n h tiê n độ sẽ cho p h ép th a n h h iể n th ị c h ín h xác bao n h iê u p h ầ n đ ịn h chuẩn đ ã được h o àn th à n h .
7. N h ấ p n ú t S o r t A rraỵ
C hương t r ì n h tu â n th e o m ộ t tiế n t r ì n h tư ơ n g tự đ ể p h â n loại R andA rray, lầ n n ày sử dụng phương thứ c A rra y S o rt dể sắ p xếp lại m ả n g theo th ứ tự tă n g dần. (500 p h ầ n tử được liệ t k ê từ th ấ p n h ấ t đ ến cao n h ất). M àn h ìn h trô n g tương tự n h ư sau:
'Ún' t ' '' ■
C h ư d n g 11: sử d ụ n g c á c m ảng để quản lý dư liệ u s ố v à c h u ô i 31
2412605 2605 4GỊ9 10Ổ3 ÚÕ17 14ál isea2 157Ũ3 16297 16383 18753 22S29 2824S 28S85 [ f i Ì Ã i t i y Ị S o i l A t t a y f Pỉoợress MHH m 500
M ã tạ o r a k ế t quả n ày là th ủ tục sự k iệ n B utton2_C lick chứa các câu lệ n h chương tr ìn h sau đây:
‘Sort the array using the ArraỵSort method and display Private Sub Button2_Click{By\/al sender As System.Obịect, _ ByVal e As System .EventArgs) Handles Button2.Click
Dim i As Integer TextBox1.Text = “ ”