PDA

View Full Version : Gíp mình hiển thị mảng



kazat
15-04-2010, 13:06
Mình là newbie mới làm quen với VB nên thật sự cũng chả hiểu gì về nó cả. Mong cả nhà giúp.
Mình phải làm 1 bài tập là lập 1 trang web chứa 2 textbox. textbox 1 là nhập 1 mảng số thực rồi sắp xếp theo thứ tự tăng dần và hiển thị ra ở textbox 2. Code thầy cho như sau:
Dim i, j As Integer
Dim a As Array
Dim str As String = txt1.Text
Dim tg As Double
a = str.Split(",")
i = 0
While i <= a.Length - 2
j = i + 1
While j <= a.Length - 1
If a(i) > a(j) Then
tg = a(i)
a(i) = a(j)
a(j) = tg
End If
j = i + 1
End While
str tg = " "
i = 0
While i <= a.Length - 1
str(tg& = a(i) & ",")
i = i + 1
End While
Text(strtg.text = strtg)
End While
Nhưng nó báo sai nhiều chỗ lắm. Từ đoạn str tg=" ". Mình chép bằng giấy nên k biết chỗ nào có dấu cách hay k.hic. Bài này chắc đơn giản thôi nhưng mình mới tìm hiểu nên k rõ lắm.

Với 1 bài thứ 2 là cho 1 mảng số nguyên, đếm có bao nhiêu bộ 3 số sao cho số thứ 1 + số thứ 2 = số thứ 3
Dim i, d As Integer
Dim a As Array
Dim str As String = txtmang.Text
a = str.Split(".")
i = 0
d = 0
While i <= a.Length - 3
If a(i) + a(i + 1) = a(i + 2) Then
d = d + 1
End If
i = i + 1
End While
txtkq.Text = d
Lúc chạy nó chả báo sai gì cả nhưng kết quả luôn luôn = 0. hic. hình như sai ở dòng If a(i) + a(i + 1) = a(i + 2) Then