kiểm tra xem đoạn code vb6.0 vay sai đâu vậy. mh lam hoài không được:
đề bài yêu cầu: nhập một mảng ngấu nhiên(dung randomize) sau đó xắp xếp tăng và giảm dần các số trong mảng. nut thoát có hỏi để kết thúc.
mình làm vậy mà nnos báo lối hoài.
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
ReDim mang(n)
Randomize
For i = 0 To n - 1
mang(i) = Int(99 * Rnd + 1)
Text2(i) = mang(i)
Next i
End Sub
Private Sub Command2_Click()
Dim k As Integer
ReDim mang(m)
m = Val(Text1.Text)
For i = 0 To m - 1
mang(i) = Val(Text2(i))
Next
For i = 0 To m - 2
For J = i + 1 To n - 1
If mang(i) > mang(J) Then
k = mang(J)
mang(J) = mang(i)
mang(i) = k
End If
Next
Next
For i = 0 To m - 1
Text2(i) = mang(i)
Next
End Sub
Private Sub Command3_Click()
Dim k As Integer
m = Val(Text1.Text)
ReDim mang(m)
For i = 0 To m - 1
mang(i) = Val(Text2(i))
For i = 0 To m - 2
For J = i + 1 To m - 1
If mang(i) < mang(J) Then
k = mang(i)
mang(i) = mang(J)
mang(J) = k
End If
Next
Next
For i = 0 To m - 1
Text2(i) = mang(i)
Next
End Sub
Private Sub Command4_Click()
n = Val(Text1.Text)
Text1 = ""
For i = 0 To n - 1
Text2(i) = ""
Next i
End Sub
Private Sub Command5_Click()
Dim i As String
i = MsgBox("thoai ha?", vbOKOnly + vbYesNo, "thong bao")
If i = vbYes Then
End
End If
End Sub