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 1 part 7', 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ả | 2 Label Name BackColor Caption Font Name Font Size Font Style LbITieude Màu cam dậm Uớc lượng một phân số VNI - Swiss Condense 36 Bold 3 Label Name BackColor Caption Font Name Font Size Font Style LblTưso Màu cam nhạt Bạn nhập vào tử số VNI - Brush 24 Boldltalic 4 Label Name BackColor Caption Font Name Font Size Font Style LblMauso Màu cam nhạt Bạn nhập vào mẫu số VNI - Brush 24 Boldltalic 5 TextBox Name BackColor Font Name Font Size Font Style Text TxtTuso Màu cam nhạt MS - Sans Serif 24 Bold Xóa chữ Text 6 TextBox Name BackColor Font Name Font Size Font Style Text TxtMauso Màu cam nhạt MS - Sans Serif 24 Bold Xóa chữ Text 7 TextBox Name BackColor Font Name TxtKetqua Màu hồng nhạt VNI - Aptima 415 Font Size Font Style MultiLine Text 24 Bold True Xóa chử Text 8 Command Button Name Caption Font Name Font Size Font Style CmdKetqua Phân số tối giẩn VNi - Swiss Condense 24 Bold 9 Command Button Name Caption Font Name Font Size Font Style CmdThoat Thoát khỏi Form VNI - Swiss Condense Ĩ Bold Bước 1 THIẾT KẾ FORM CỦA CHƯƠNG TRÌNH Bạn lần lượt lấy các điều kiểm từ hộp công cụ dể dưa vào Form của chương trình sau dó xác lập các thuộc tính cho tât cả các diều kiểm theo như bảng đã cho ở trên. Bước 2 VIẾT CODE CHO CHƯƠNG TRÌNH Option Explicit 1 Viết Code cho điều kiểm CmdKetqua Private Sub CmdKetqua_Click Dim n As Integer Dim Tuso As String 416 Dim Mauso As String Dim Xh As String Xh chr 13 Chr IO Tuso TxtTuso Mauso - TxtMauso if TxtMauso 0 Then If TxtTuso 0 Then n USCLN TxtTuso TxtMauso TxtTuso TxtTuso n TxtMauso TxtMauso X n If TxtMauso 0 Then TxtTuso -TxtTuso TxtMauso -TxtMauso End If Else TxtMauso 1 End If TxtKetqua Phân số tối giân Xh của phân số trên là TxtTuso TxtMauso Else TxtKetqua - Mãu số không thể bằng 0 bạn nhập lại End If .
