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ải giúp giải đề Visual Basic ngày 18/01/2013

Thảo luận trong 'Thư viện Đề thi Đề cương' bắt đầu bởi huyggmu, 20 Tháng một 2013.

  1. huyggmu New Member

    Số bài viết: 17
    Đã được thích: 2
    Điểm thành tích: 3
    Câu 1
    Viết hàm Function TongChuSo(Byval n As intger) As integer để tính tổng các chữ số của số nguyên dương n
    Vd: nếu n= 1245 thì trả về 12
    Câu 2
    Cho mảng một chiều gồm n số nguyên,hãy viết hàm tìm số âm lớn nhất trong mảng,nếu mảng không có số âm thì trả về 0
    Function SoAmLonNhat(Byval a As Variant,Byval n As integer) As integer
    Vd: mảng 4 2 5 7 98 6 sẻ trả về 0
    Mảng 4 -5 8 -12 3 -2 thì trả về -2
    Câu 3
    Viết hàm tính tổng sau
    S(n)=1- ( 1/(1+2)) + (1/(1+2+3)) + ….+ (-1)[SUP]N+1[/SUP](1/(1+2+3+…+n))
    Function Tong(Byval n As integer) As Double
    Câu 4
    Viết hàm chuẩn hóa chuỗi dùng loại bỏ khoảng trống thừa trong chuỗi,biến chữ cái đầu thành chữ hoa.các chữ còn lại thành chữ thường
    Function ChuanHoaChuoi(Byval s As String) as String
    Vd: chuỗi “ tOi hoC LOP 12” ,hàm trả về “ Toi Hoc Lop 12’
    moitinhdau090 thích bài này.

Chia sẻ trang này