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}

Giúp làm bài tập vb

Thảo luận trong 'Visual Basic' bắt đầu bởi congtrong, 30 Tháng mười một 2011.

  1. congtrong New Member

    Số bài viết: 11
    Đã được thích: 0
    Điểm thành tích: 0
    cho chuỗi sau:" tRaN vaN HunG "
    thành chuỗi:"Tran Van Hung" lưu ý là khoảng trắng giữa các chữ là khác nhau nha.ví dụ" tRan vaN Hung "
  2. congtrong New Member

    Số bài viết: 11
    Đã được thích: 0
    Điểm thành tích: 0
  3. monkeyking New Member

    Số bài viết: 18
    Đã được thích: 0
    Điểm thành tích: 0
    Re: help giup minh với

    s = Trim(s) & Space(1)
    d = ""
    For i = 1 To Len(s) - 1
    j = InStr(i + 1, s, Space(1))
    If (Mid(s, i, 1) = Space(1)) And (Mid(s, i + 1, 1) <> Space(1)) Then d = d & UCase(Mid(s, i + 1, 1)) & LCase(Mid(s, i + 2, j - i - 1))
    Next i
    MsgBox d
    bạn xem cái này đi text rồi đó, chúc thi tốt, môn này rớt nhiều lắm đób-(
  4. congtrong New Member

    Số bài viết: 11
    Đã được thích: 0
    Điểm thành tích: 0
  5. congtrong New Member

    Số bài viết: 11
    Đã được thích: 0
    Điểm thành tích: 0
  6. monkeyking New Member

    Số bài viết: 18
    Đã được thích: 0
    Điểm thành tích: 0
  7. congtrong New Member

    Số bài viết: 11
    Đã được thích: 0
    Điểm thành tích: 0
  8. monkeyking New Member

    Số bài viết: 18
    Đã được thích: 0
    Điểm thành tích: 0
    vây thì bỏ cái j = InStr(i + 1, s, Space(1)) mà cho thêm vòng lặp For j= i to len(s)
    For i = 1 To Len(s) - 1
    If (Mid(s, i, 1) = Space(1)) And (Mid(s, i + 1, 1) <> Space(1)) Then
    For j= i to len(s)
    If (Mid(s, j, 1) = Space(1)) then d = d & UCase(Mid(s, i + 1, 1)) & LCase(Mid(s, i + 2, j - i - 1))
    next j
    next i
    msgbox d
    tạm thời là vậy >:D

Chia sẻ trang này