... xâu s2 để xâu d i S2 < S1 If len(s2) < len(s1) Then S2 = String(Len(S1) - Len(S2), "0") & S2 /// Chèn thêm số v o tr ớc xâu S1 để xâu d i S1 < S2 If Len(s1) < len(s2) Then S1 = String(Len(S2) - ... Then S2 = S2 & "." & Mid(S, i+1, 1) & UCase(Mid(S, i + 2, 1)) i = i + '/// Bỏ qua vị trí i+1 v i +2 (vì cộng v o kết S2 dòng rồi) Else S2 = S2 & Mid(S, i, 1) '/// Nếu l dấu "." cộng v o S2 End ... văn th nh chữ HOA S2 = UCase(Left(S2, 1)) & Mid(S2, 2) '/// Trả kết cho h m ChuanHoa = S2 End Function Trang 26 BI T P L P TRèNH H NG S KI N Biờn so n: B mụn CNPM HSPKT HY 20 05 ' ...
Ngày tải lên: 20/08/2013, 15:35
... Form1.CommonDialog1.ShowSave Trang 28 TT Visual Basic Bài tập 2- 2 ĐỒ HỌA VỚI BASIC Bước 1: Tạo dự án thư mục Basic\ Bt2 -2 Bước 2: Trong Form1 ta tạo Menu có dạng: Hình II .2: Menu giao diện Trang 29 TT Visual Basic Với ... Dim X2 As Integer Dim Y2 As Integer Trang 34 TT Visual Basic ' Khởi tạo tọa độ đầu X1 = 420 0: Y1 = 1000 X2 = 620 0: Y2 = 20 00 ' Vẽ hcn HcnTron X1, Y1, X2, Y2 ' Tạo bóng TaoBong X1, Y1, X2, Y2 ' ... chương trình kết thúc Hình I .25 : Báo hết 20 ) Thiết kế chương trình tương tự ứng dụng Canculator Windows Trang 24 TT Visual Basic Chương LẬP TRÌNH SỰ KIỆN NÂNG CAO & ĐỒ HỌA TRONG VISUAL BASIC Mục...
Ngày tải lên: 05/07/2014, 07:32
Giáo án - Bài giảng: LẬP TRÌNH VISUAL BASIC 6.0
... Giáo trình Visual Basic 6.0 Giáo trình Visual Basic 6.0 CHƯƠNG 1: GIỚI THIỆU VISUAL BASIC NỘI DUNG GIỚI THIỆU VỀ NGÔN NGỮ VISUAL BASIC MÔI TRƯỜNG IDE CỦA VISUAL BASIC VIẾT CHƯƠNG TRÌNH ĐẦU TIÊN Lập ... Giáo trình Visual Basic 6.0 Giới Thiệu Visual Basic Visual Basic (viết tắt VB) ngôn ngữ lập trình hướng kiện môi trường phát triển tích hợp (IDE) phát triển hãng phần mềm Microsoft Visual Basic ... dụng phiên Visual Basic 6.0 Profressional Hướng dẫn cách cài đặt Visual Basic từ Visual Studio 98 để phần phụ lục giáo trình Giáo trình Visual Basic 6.0 Màn Hình Làm Việc Của Visual Basic Giao...
Ngày tải lên: 16/04/2014, 16:25
BÀI TẬP LỚN NGÔN NGỮ LẬP TRÌNH VISUAL BASIC CHƯƠNG TRÌNH QUẢN LÝ BÁN HÀNG TẠI SIÊU THỊ MITRACO
... ngôn ngữ Visual Basic, Access, Visual FoxPro Để đáp ứng đợc yêu cầu đề tài, chúng em lựa chọn hệ quản trị CSDL Visual Basic làm công cụ lập trình để giải toán Ưu điểm ngôn ngữ lập trình ngôn ... Timer1_Timer() If Me.Label2.Left + Me.Label2.Width < Me.Left Then Me.Label2.Left = Me.Left + Me.Width End If Me.Label2.Left = Me.Label2.Left - 150 End Sub Private Sub Timer2_Timer() 'Khai bao bien ... mnuhangton_Click() MsgBox "Se duoc hoan thien giai doan tiep theo !", vbExclamation, "Niên luận môn Lập trình Visual Basic. " Exit Sub End Sub Private Sub mnuhoadon_Click() frmhoadon.Show End Sub Private Sub...
Ngày tải lên: 19/06/2014, 20:59
bài tập và hướng dẫn giải bài tập cơ bản lập trình visual basic
Ngày tải lên: 24/10/2014, 02:54
bài tập và hướng dẫn giải bài tập tự luyện lập trình visual basic
Ngày tải lên: 24/10/2014, 02:55
BÀI BÁO CÁO THỰC TẬP-TÌM HIỂU NGÔN NGỮ LẬP TRÌNH VISUAL BASIC 6.0 VÀ ỨNG DỤNG VÀO GIẢI QUYẾT BÀI TOÁN PHỤC VỤ CÔNG CỘNG
Ngày tải lên: 02/06/2015, 17:36
Lap trinh visual basic 6 0 toan tap
... Visual Basic I Giới thiệu Visual Basic 6.0 Visual Basic 6.0 (VB6) phiên cơng cụ lập trình Visual Basic (VB), cho phép người dùng tiếp cận nhanh cách thức lập trình mơi trường ... tạo chương trình Visual Basic IDE Visual Basic nơi tập trung menu, cơng cụ cửa sổ để tạo chương trình Mỗi thành phần IDE có tính ảnh hưởng đến hoạt động lập trình khác Trang Visual Basic Hình ... tham khảo: - Microsoft Visual Basic 6.0 Lập trình Cơ sở liệu - Chương 2, trang 26 ; Chương 3, trang 29 - Nguyễn Thị Ngọc Mai (chủ biên), Nhà xuất Giáo dục - 20 00 Trang Visual Basic I Các khái niệm...
Ngày tải lên: 03/10/2013, 11:12
Tài liệu Lập trình Visual Basic - Bài 1 pptx
... Sub BÀI TẬP Bài tập 4.1 Lập ứng dụng tính n! với n nguyên dương nhập từ bàn phím 10A, 14 Bà Triệu, Quy Nhơn 056- 821 483 Trang 12 Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài tập 4 .2 Lập ... Quy Nhơn 056- 821 483 Trang Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Kích thước byte ghi ngày lẫn Thông thường dùng ngày ta viết hai dấu # Ví dụ: #22 / 12/ 2007#, #22 - 12- 2007# Phép toán: ... Triệu, Quy Nhơn 056- 821 483 Trang 24 Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic + ListCount: tổng số ổ đĩa Chọn ổ đĩa kiện Change Ví dụ Xem tập 8 .2 BÀI TẬP SỐ Bài tập 8.1 Tạo ứng dụng...
Ngày tải lên: 12/12/2013, 13:15
Luận văn ngôn ngữ lập trình visual basic và bài toán tìm đường đi ngắn nhất
... trợ ngời lập trình phơng diện, nói cung cấp phơng tiện để lập trình tự động Visual Basic lập trình thứ cần Visual Basic hỗ trợ ngời lập trình tạo Form, thuộc tính, phơng thức để ngời lập trình việc ... đối tợng 2. 2 Lập trình hớng đối tợng Visual Basic hỗ trợ cách lập trình ta gọi lập trình hớng đối tợng (Object oriented programming) Từ trớc đến lập trình theo kiểu cổ điển tức kiểu lập trình theo ... hiểu Visual Basic 1.1 Tổng quan ngôn ngữ Visual Basic Visual Basic sản phẩm hãng Microsoft trải qua nhiều phiên Visual Basic 6.0 Enterprise Edition phiên đợc u chuộng Visual Basic chơng trình 32...
Ngày tải lên: 20/12/2013, 18:11
bài giảng lập trình kỹ thuật chương 3 ngôn ngữ lập trình visual basic
Ngày tải lên: 26/07/2014, 20:12
sử dụng lập trình visual basic trong powerpoint để xây dựng chương trình minh họa cho bài dạy về giải bài toán trên máy tính
Ngày tải lên: 28/02/2015, 07:20
Kỹ thuật lập trình Visual Basic tự học trong 21 ngày - Tin học thực hành. Tập 2
Ngày tải lên: 11/04/2015, 10:27
Bài tập lập trình môn lý thuyết Automata và ngôn ngữ hình thức
Ngày tải lên: 09/08/2012, 23:24
Bài tập lập trình CLC
... cmdenter_Click() so2 = Val(mh.Text) Select Case pt Case "+" kq = so1 + so2 mh.Text = Str(kq) Case "-" kq = so1 - so2 mh.Text = Str(kq) Case "*" kq = so1 * so2 mh.Text = Str(kq) Case "/" If so2 Then ... txtmaxgt.Text = Str(maxgt) txtus.Text = Str(us) txtbs.Text = Str(bs) End Sub Bài 21 Thiết kế máy tính đơn giản Dim so1, so2, kq, pt Private Sub cmdAC_Click() mh.Text = "" End Sub Private Sub cmdchia_Click() ... mang A") Next i End Sub Bài 12 Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) câu Private Sub Command1_Click() Text1.Enabled = True End Sub Private Sub Command2_Click() Dim s As String...
Ngày tải lên: 17/08/2012, 10:50