1. THÔNG BÁO TUYỂN ADMIN DIỄN ĐÀN 2013
    Tìm kiếm nhà trọ - Ở ghép
    THÔNG BÁO BÁN ÁO SPKT.NET CHO THÀNH VIÊN DIỄN ĐÀN


    HÃY TÌM KIẾM Ở ĐÂY TRƯỚC KHI ĐẶT CÂU HỎI
    {xen:phrase loading}

đảo chuỗi trong vb

Thảo luận trong 'Visual Basic' bắt đầu bởi Ngọc Bình, 18 Tháng ba 2011.

  1. Ngọc Bình New Member

    Số bài viết: 61
    Đã được thích: 0
    Điểm thành tích: 0
    Bài tập chuỗi
    Yêu cầu:
    Thiết kế Form cho phép nhập vào một chuỗi và đảo ngược chuỗi đó lại
    Form
    Bài giải
    Private Sub cmddao_Click()
    Dim j, i, cau, caus
    cau = Trim(txtchuoi) + Space(1)
    caus = ""
    j = 1
    For i = 1 To Len(cau) - 1
    If Mid(cau, i, 1) <> Space(1) And Mid(cau, i + 1, 1) = Space(1) Then
    caus = Mid(cau, j, i - j + 2) + caus
    j = i + 2
    End If
    Next i
    MsgBox "Cau" & " " & cau & "duoc dao lai la:" & " " & caus, vbOKCancel, "Ket qua"
    End Sub
    txtchuoi
    cmdkt
    cmddao
    Label1
  2. 10911023b Member

    Số bài viết: 37
    Đã được thích: 0
    Điểm thành tích: 6
    bài này hình như chưa đúng lắm , mình sửa lại nè :
    ---
  3. nhoctnu New Member

    Số bài viết: 76
    Đã được thích: 2
    Điểm thành tích: 0
    bài trên thì đảo chuỗi theo kiểu đảo thứ tự từng từ. VD: Nhoc Tnu thành Tnu Nhoc
    còn bài dưới là đảo chuỗi theo kiểu đổi thứ tự của từng ký tự. VD Nhoc Tnu thành unT cohN

Chia sẻ trang này