trav2t > 02-08-13, 11:34 AM
Public Function Daytrungnhau(st As String) As Boolean
Dim kt As Integer, sophantu As Integer
Dim ktso As String
Dim kts As String
Dim tohop() As Integer 'Tạo mãng động do không biết số phần tự trong dãy số nhập vào là bao nhiêu'
'Đếm số phần tử trong dãy số'
kt = 1
sophantu = 0
kts = st + " "
Do While kt < Len(kts)
ktso = ""
Do While Mid(kts, kt, 1) <> " "
ktso = ktso + Mid(kts, kt, 1)
kt = kt + 1
Loop
sophantu = sophantu + 1
kt = kt + 1
Loop
ReDim tohop(sophantu) As Integer 'Tao lai mang voi so luong la sophantu kieu Integer'
kt = 1
For i = 1 To sophantu 'Lay gia tri cac phan tu gan cho mang'
Do While kt < Len(ktphieu)
ktso = ""
Do While Mid(ktphieu, kt, 1) <> " "
ktso = ktso + Mid(ktphieu, kt, 1)
kt = kt + 1
Loop
tohop(i) = Val(ktso) 'Đổi các ký tự số kiểu text thành số kiểu Number và gán cho mãng vị trí thứ i'
kt = kt + 1
Loop
Next i
'Kiểm tra các phần tử trong mãng có trùng nhau không'
'Nếu trùng nhau thì gắn kết quả False và thoát khỏi hàm'
For i = 1 To sophantu - 1
For j = 2 To sophantu
If tohop(i) = tohop(j) Then
Daytrungnhau = False
Exit Function
End If
Next j
Next i
Daytrungnhau = True 'Nếu đến cuối cùng không tìm được số trùng nhau thì gắn kết quả True'
End Function
Private Sub cmdKiemtra_Click()
If Daytrungnhau(dayso) then
MsgBox "Có số trùng nhau", vbInformation, "Thông báo!"
Else
MsgBox "Không có số trùng nhau", vbInformation, "Thông báo!"
End If
End Sub