tailieunhanh - Tự học thiết kế chương trình cho học sinh làm toán bằng Visual Basic 6.0 tập 2 part 10

Tham khảo tài liệu 'tự học thiết kế chương trình cho học sinh làm toán bằng visual basic tập 2 part 10', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Font Name Font Size Font Style Text VNI - Brush 14 Bold Xóa chữ Text 5 Command Button Name Caption Font Name Font Size Font Style CmdExit Exit VNI - Sans - Serif 18 Boid 6 Command Button Name Caption Font Name Font Size Font Style CmdKetqua Kết quả VNI - Aptima 18 Bold Qtíởc 1 THIẾT KẾ FORM CHO CHƯƠNG TRÌNH Giả sử các bạn đã hoàn thành việc thiết kê và xác lập các thuộc tính cho các điều kiểm. Bước 2 VIẾT CODE CHO CHƯƠNG TRÌNH Option Explicit 1 Viết Code cho điều kiểm CmdExít Private Sub CmdExit_ClickO End End Sub 620 2 Viết Code cho điều kiểm CmdKetqua Private Sub CmdKetqua_Click Select Case Txtl Case 2 Txt2 Tháng 2 có 28 ngày 11 Case 4 6 9 11 Txt2 Tháng Txtl có 30 ngày Case 1 3 5 7 7 8 10 12 Txt2 Tháng Txtl Có 31 ngày Case Else 1 Xt2 Không có tháng này End Select End Sub Trong thủ tục trên chúng tôi dùng phát biểu SELECT CASE .END SELECT bạn thấy phát biểu này ngắn gọn nếu bạn dùng phát biểu IF thì sẽ rất dài. Bước 3 CHẠY THỬ CHƯƠNG TRÌNH Giả sử bạn chạy thử chương trình sau dó bạn gỏ vào sô 1 trong hôp TextESox có tên Txtl va2 Click vào nút Kết quả bạn sẽ thấy có Form như sau 621 đB start I g 1 3 Protect I 3 Mcrow . gyMicíoto. I jg13aP. HqxaC . . Ị5-- Hình 87b Form khi bạn nhập số 1 Bây giờ bạn thử nhập vào ô số 2 bạn sẽ thấy thông báo tháng 2 có 28 ngày như hình sau Woid CuonXiioc ĩ 3e E ytev. iraert Format look Tjpte H Tdow tk .Itfl x ũ SỈH aa 7 - . B0 3 K 11 fooCTJ j Normal - VNlAotnra - - B ỉ u X X 1 F íF . u Autoshotm. X oi 41 A-SS8 Ề IPaga MO Sec 1 -1 V16O TĨS ỮTă an I lit7 fTT F -. 5ĂĨ7 ị f start I 0 J j Proịact I Mrqoto I ByMtcroao I ĩ3 XAC . rrtrtod Ị Ịõ - 6Z3PM Hình 87c Form khi bạn nhập số 2 .

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.