TAILIEUCHUNG - Giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto p2

Tham khảo tài liệu 'giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p2', công nghệ thông tin, quản trị web phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Và mã lệnh cho form như sau ------------------------------------------------------------ Hàm xác định USCNN của 2 số nguyên thuật toán Ơ-cơ-lít Function usc a b As Integer As Integer Dim al bl As Integer al a bl b While a1 b1 If a1 b1 Then a1 a1 - b1 Else b1 b1 - a1 End If Wend usc a1 End Function -------------------------------- Mã lệnh cho nút Tính toán Private Sub cmdTinhToan Click txtUSC usc txtA txtB txtBSC txtA txtB usc txtA txtB End Sub -------------------------------- Mã lệnh cho nút ĐÓng Private Sub cmdClose Click End Sub Bài toán 3 Nhập vào 3 hệ số A B C của phương trình bậc hai Ax2 Bx C 0 và cho biết nghiệm phương trình đó Thiết kế form như sau Trang 159 Thiết lập thuộc tính cho các đối tượng như sau Form Caption Default view Scroll bar Giải phương trình bậc 2 Single Form Neither Record selector No Navigation Buttons No Diving line No Ô nhập số cần kiểm tra Ô Thuộc tính Name A txtA B txtB C txtC Nút Tính toán Name cmdGPTB2 Caption Giải phương trình Nút Đóng Name cmdClose Caption Đóng Trang 160 Và mã lệnh cho form như sau --------------------------------------- Mã lệnh cho nút Giải phương trình Private Sub cmdChanLe Click Dim delta x x1 x2 As Double Dim kqua As String delta txtB txtB - 4 txtA txtC If delta 0 Then x -txtB 2 txtA kq Nghiệm kép x1 x2 Trim Str x Else If dleta 0 Then x1 -txtB Sqr delta 2 txtA x1 -txtB - Sqr delta 2 txtA kqua Có 2 nghiệm phân biệt Chr 13 X1 Trim Str x1 Chr 13 X2 Trim Str x2 Else kqua Phương trình vô nghiệm End If End If MsgBox kqua End Sub -------------------------------------------- Lệnh cho nút Đóng Private Sub cmdClose Click End Sub Trang .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.