tailieunhanh - Bài thực hành VB số 1

Viết chương trình nhập vào 3 giá trị dương a, b, c. Kiểm tra xem chúng có thể tạo thành ba cạnh của một tam giác hay không, nếu đúng thì đó là tam giác vuông, cân, đều hay tam giác thường và cho biết chu vi và diện tích của hình tam giác đó. Hướng dẫn a+b+c Diện tích tam giác được tính: S = p ( p − a)( p − b)( p − c) với p = 2 Giao diện chương trình: | BÀI THỰC HÀNH SỐ 1 Viết chương trình nhập vào 3 giá trị dương a b c. Kiểm tra xem chúng có thể tạo thành ba cạnh của một tam giác hay không nếu đúng thì đó là tam giác vuông cân đều hay tam giác thường và cho biết chu vi và diện tích của hình tam giác đó. Hướng dẫn . I -------- ------ ---------- a b c Diện tích tam giác được tính S p p - a p - b p - c với p ------------------2----- Giao diện chương trình Đúng Sai Cân Vuông Đều Thường - Các đối tượng TextBox có thuộc tính Name là Textl - Text7 thứ tự từ trên xuống - Các đối tượng CommandButton nút lệnh có Name từ Commandl - Commands Mã lệnh tham khảo Dim a As Byte b As Byte c As Byte Dim S As Single P As Single Sự kiện Click của nút Command2 nút Tiep tuc Private Sub Command2_Click End Sub Các biến chứa ba cạnh tam giác Chứa diện tích và chu vi của tam giác Xóa rỗng các đối tượng TextBox Sự kiện Click của nút Command3 nút Ket thuc Private Sub Command3_Click Unload Me End Sub Cho biến a nhận giá trị từ Textl Cho biến b nhận giá trị từ Text2 Cho biến c nhận giá trị từ Text3 Sự kiện Click của nút Commandl nút Kiem tra Private Sub Command1_Click a Val b Val c Val If a b c And a c b And b c a Then Kiểm tra loại tam giác - Chỉ khi a b c là ba cạnh của tam giác DIEU NAY DUNG If a b And b c Then TAM GIAC DEU Elself a b Or a c Or b c Then Tam GIAC Can ElseIf a a b b c 2 Or b b c c a 2 Or a a c c b 2 Then TAM GIAC VUONG Else TAM GIAC THUONG End If P a b c 2 Tính chu vi của tam giác Đối tượng Text6 chứa chu vi tam giác Str 2 P Tính diện tích tam giác S Sqr P P - a P - b P - c Đối tượng text7 chứa diện tích tam giác Str S Else DIEU NAY SAI End If End Sub Các bài tập khác 1. Giải phương trình bậc hai ax2 bx c 0 a 0 a1 X b1 y c1 a2 X b2 y c2 Hướng dẫn a. b D 1 1 a2 b2 b1 Dx b2 c1 D c1 a1 c2 y c2 a2 - D 0 Có nghiệm x Dx D và y Dy D - D 0

TỪ KHÓA LIÊN QUAN
crossorigin="anonymous">
Đã 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.