bài tập lập trình visual basic 2
Bài tập lập trình visual basic
... 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 ' ...
- 173
- 1,302
- 13
bài tập lập trình visual basic
... 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...
- 115
- 3,579
- 0
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...
- 277
- 1,997
- 13
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...
- 57
- 1,496
- 0
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...
- 158
- 943
- 1
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...
- 36
- 1,046
- 10
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...
- 11
- 1,237
- 2
Hướng dẫn lập trình Visual Basic .NET
... (MP3) download size Week 3.1 Week 3 .2 Week 3.3 Week 3.4 Week 3.5 Week 3.6 Week 3.7 Week 3.8 Week 3.9 Week 3.10 1 .2 mb 1 .2 mb 1 .2 mb 1 .2 mb 1 .2 mb 1 .2 mb 1 .2 mb 1 .2 mb 1.0 mb 0.8 mb Những khác biệt ... download size Week 1.1 Week 1 .2 Week 1.3 Week 1.4 Week 1.5 Week 1.6 Week 1.7 Week 1.8 1 .2 mb 1 .2 mb 0.6 mb 1 .2 mb 1 .2 mb 1 .2 mb 1.4 mb 1.4 mb Cài đặt Visual Studio.NET Beta Visual Studio.NET nằm CDs, ... Dim X2 As Variant X1 = "24 .7" X2 = Debug.Print X1 + X2 ' Cộng hai số với operator + Debug.Print X1 & X2 ' Ghép hai strings lại với operator & End Sub Kết hiển thị Immediate Window : 29 .7 24 .75...
- 133
- 1,951
- 15
Lập trình Visual Basic.doc
... Cài đặt Dim cngay As String cngay = Right("0" & Microsoft.VisualBasic.Day(ngay), 2) & Right("0" & Month(ngay), 2) & Right(Year(ngay), 2) Dim sqlConn As SqlConnection = New SqlConnection(strCon) ... drSqldataReader.Read() strMaSDH = drSqldataReader.GetString(0) Dim tng As Date = drSqldataReader.GetDateTime (2) If tng = Then flag = False End If If flag Then madh = cngay & "DH001" ' Exit Function Else 'ngay ... Trim(Str(Val(Right(drSqldataReader1.GetString(0), 3)) + 1)), 3) If drSqldataReader1.GetDateTime (2) = Then If Val(so) < Val(so1) Then so = so1 End If End If madh = cngay & "DH" & Right("00" & so,...
- 3
- 673
- 4
Tìm thêm: hệ việt nam nhật bản và sức hấp dẫn của tiếng nhật tại việt nam xác định các nguyên tắc biên soạn khảo sát các chuẩn giảng dạy tiếng nhật từ góc độ lí thuyết và thực tiễn khảo sát chương trình đào tạo của các đơn vị đào tạo tại nhật bản khảo sát chương trình đào tạo gắn với các giáo trình cụ thể tiến hành xây dựng chương trình đào tạo dành cho đối tượng không chuyên ngữ tại việt nam điều tra đối với đối tượng giảng viên và đối tượng quản lí điều tra với đối tượng sinh viên học tiếng nhật không chuyên ngữ1 khảo sát các chương trình đào tạo theo những bộ giáo trình tiêu biểu nội dung cụ thể cho từng kĩ năng ở từng cấp độ xác định mức độ đáp ứng về văn hoá và chuyên môn trong ct phát huy những thành tựu công nghệ mới nhất được áp dụng vào công tác dạy và học ngoại ngữ mở máy động cơ lồng sóc mở máy động cơ rôto dây quấn đặc tuyến hiệu suất h fi p2 đặc tuyến tốc độ rôto n fi p2 động cơ điện không đồng bộ một pha sự cần thiết phải đầu tư xây dựng nhà máy thông tin liên lạc và các dịch vụ chỉ tiêu chất lượng theo chất lượng phẩm chất sản phẩm khô từ gạo của bộ y tế năm 2008