Danh mục

GIÁO TRÌNH MICOSOFT VISUAL BASIC - BÀI TẬP PHẦN CƠ BẢN

Số trang: 8      Loại file: pdf      Dung lượng: 248.96 KB      Lượt xem: 13      Lượt tải: 0    
10.10.2023

Xem trước 2 trang đầu tiên của tài liệu này:

Thông tin tài liệu:

Bai tập 1 Viết 1 form nhập 2 số và bấm nút để cho kết quả phép cộng Chương trình khi chạy sẽ cho kết quả như sau:Hướng dẫn: 1. Khởi động Visual Basic , chọn New/ Standard EXE 2. Điều chỉnh các thuộc tính của form1 theo nh ư bảng sau:
Nội dung trích xuất từ tài liệu:
GIÁO TRÌNH MICOSOFT VISUAL BASIC - BÀI TẬP PHẦN CƠ BẢN Bài tập Visual Basic - Phần cơ bản 168 BÀI TẬP PHẦN CƠ BẢNBai tập 1Viết 1 form nhập 2 số và bấm nút để cho kết quả phépcộngChương tr ình khi ch ạy sẽ cho kết quả nh ư sau:Hướng dẫn:1. Khởi động Visual Basic , chọn New/ Standard EXE2. Điều chỉnh các thuộc tính của form1 theo nh ư Thuộc tính Giá trị (Value) bảng sau: (Property) Alignment 1 - Right justify Thuộc tính Giá trị (Value) Name txtTong (Property) Lock True Name frmTinh Height 315 Caption Cong hai so Width 735 Height 2500 8. Nhấp đúp CommandButton trên Toolbox. Width 2800 Button sẽ xuất hiện chính giữa form. Di3. Nhấp đúp Label trên Toolbox đ ể đặt Label lên chuyển và điều chỉnh các thuộc tính theo bảng giữa form. Di chuyển và đặt các thuộc tính sau: theo như b ảng sau: Thuộc tính Giá trị (Value) Thuộc tính Giá trị (Value) (Property) (Property) Name CmdTinh Name Label1 Caption Tinh Caption Nhap so thu 1 Height 3304. Làm tương t ự như bước 3 với các thuộc tính Width 1335 theo như b ảng sau: 9. Nhấp đúp CommandButton đ ể viết lệnh cho Thuộc tính Giá trị (Value) chức năng tính toán khi ngư ời dùng bấm vào (Property) nút này. C ửa sổ lệnh sẽ xuất hiện với phần Name Label2 khai báo th ủ tục khi bấm nút được định nghĩa Caption Nhap so thu 2 sẵn:5. Nhấp đúp Textbox trên Toolbox. Textbox th ứ Private Sub CmdTinh_Click() nhất sẽ xuất hiện chính giữa form. Di chuyển và điều chỉnh các thuộc tính theo bảng sau: End Sub Thuộc tính Giá trị (Value) (Property) Nhập lệnh để cuối cùng ta có Alignment 1 - Right justify Private Sub CmdTinh_Click() Name txtSo1 txtTong.Text = Val(tx tSo1.Text) + Height 315 Val(txtSo2.Text) Width 735 End Sub6. Nhấp đúp Textbox trên Toolbox. Textbox th ứ 10. Bấm nút Run trên Toolbar hoặc F5 để chạy hai sẽ xuất hiện chính giữa form. Di chuyển chương tr ình. Nhập 2 số vào 2 text box. Bấm và điều chỉnh các thuộc tính theo bảng sau: nút tính. K ết quả cộng 2 số xuất hiện trong ô Thuộc tính Giá trị (Value) thứ 3. (Property) 11. Chọn File/Save Project để save các tập tin của Alignment 1 - Right justify chương tr ình như sau: N ...

Tài liệu được xem nhiều: