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}

Giai giup minh bai toan viet bang visual basic voi

Thảo luận trong 'Visual Basic' bắt đầu bởi lebich, 31 Tháng ba 2012.

  1. lebich New Member

    Số bài viết: 2
    Đã được thích: 0
    Điểm thành tích: 0
    Nhap vao 3 so nguyen to A,B,C. tim so lon nhat trong 3 so A,B,C. thanks!
  2. hungson3 New Member

    Số bài viết: 6
    Đã được thích: 0
    Điểm thành tích: 1
    Bài của bạn không nói rỏ là viết trên console hay winform, mình viết trên console cho đơn giản còn winform bạn chuyển qua nhanh thôi :)
    Mã:
    Module Module1
    
        Sub Main()
            Dim A(3) As Integer
    
            Console.WriteLine("Nhap 3 so nguyen to !")
            For i = 1 To 3 Step 1
                Console.Write("So nguyen to thu {0}: ", i)
                Integer.TryParse(Console.ReadLine, A(i))
                While KTSNT(A(i)) = False
                    Console.Write("{0} khong phai la so nguyen to, moi ban nhap lai : ", A(i))
                    Integer.TryParse(Console.ReadLine, A(i))
                End While
                Console.WriteLine()
            Next
            Console.WriteLine("So nguyen to lon nhat trong 3 so tren: {0}", TimMax(A(1), A(2), A(3)))
            Console.WriteLine("Nhan bat ku phim nao de thoat !")
            Console.ReadKey()
        End Sub
        Private Function KTSNT(ByVal N As Integer) As Boolean
            Dim flag As Boolean
            flag = True
            For i = 2 To Math.Sqrt(N) Step 1
                If (N Mod i) = 0 Then
                    flag = False
                End If
            Next
            Return flag
        End Function
        Private Function TimMax(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer) As Integer
            Dim max As Integer
            max = A
            If (A < B) Then
                If (B > C) Then
                    max = B
                Else
                    max = C
                End If
            End If
            Return max
        End Function
    End Module
    
    
    
    Chúc bạn học tốt
    mình không quen trên VB nên code hơi gà mọi nguwoif góp ý nhé :)
  3. dinhquanghiep New Member

    Số bài viết: 74
    Đã được thích: 0
    Điểm thành tích: 0
    Theo mình cách giải là thế này:
    Sử dụng 3 textbox để người sử dụng nhập số, 1 button để thực hiện chức năng Tìm số lớn nhất và 1 label để hiển thị kết quả.
    Trong sự kiện click của button bạn kiểm tra 3 số nhập vào có phải số nguyên tố không, nếu không thì thông báo không thỏa yêu cầu bài toán. Nếu đúng là 3 số nguyên tố thì thực hiện việc so sánh: so sánh A và B, lấy số lớn hơn gán cho biến max, so sánh biến max với C, đưa kết quả ra label
  4. dinhcongluc New Member

    Số bài viết: 1
    Đã được thích: 0
    Điểm thành tích: 0
    viết chương trình nhập vào mảng A gồm n phần tử(n nhập vao bàn phím).kiểm tra là mảng tăng hay giảm hay khong tang khong giảm .giup em
  5. davipmanh Member

    Số bài viết: 57
    Đã được thích: 0
    Điểm thành tích: 6
    Giới tính: Nam
  6. congamaisuameomeo New Member

    Số bài viết: 6
    Đã được thích: 0
    Điểm thành tích: 1
    có ai giúp em bài này với em cám ơn nhiều.[FONT=tahoma,arial,helvetica,sans-serif].Viết chương trình hiện ra msgBox ngày nhập vào từ bàn phím theo dạng: Thứ Ba Ngày 05 tháng 11 năm 2012[/FONT]
  7. nhoctnu New Member

    Số bài viết: 76
    Đã được thích: 2
    Điểm thành tích: 0

Chia sẻ trang này