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

Users found this page by searching for:

  1. chuỗi vb