Đang chuẩn bị liên kết để tải về tài liệu:
Giáo trình phân tích quy trình tự động hóa với Autocad 3d cho thiết kế công trình giao thông p9

Ví dụ sau tính tổng của các số chẵn từ 0 đến 10: Dim i As Integer Dim Tong As Integer Tong = 0 For i = 0 To 10 Step 2 Tong = Tong + i Next Debug.Print ("Tong = " & Tong)Kết quả như sau:CHÚ Ý Khi giá trị của là âm ( và đổi chỗ cho nhau.Ví dụ tính tổng của các số chẵn từ 0 đến 10 sử dụng vòng lặp đếm ngược:Dim i As Integer Dim Tong As Integer Tong = 0 For i = 10To 0 Step -2 Tong = Tong + i Next Debug.Print ("Tong = " & Tong) | CHƯƠNG III CƠ BẢN VỀ NGÔN NGỮ LẬP TRÌNH VISUAL BASIC GỢI Ý Cửa sổ Immediate là một bộ phận trong VBA IDE bật tắt cửa sổ này được thực hiện trong menu View của VBA IDE. Khi sử dụng lệnh Debug.Print tên_biến thì giá trị của biến sẽ được thể hiện trong cửa sổ Immediate khi chương trình hoạt động và được lưu lại ngay cả khi chương trình kết thúc. Cửa sổ này thường được dùng với mục đích gỡ rối khi lập trình. Khi nội dung trong cửa sổ này nhiều quá thì ta có thể xóa bớt bằng cách chọn vùng cần xóa và bấm phím Delete. 7.4. Các hàm xử lý chuỗi Các hàm loại này được chứa trong thư viện Strings có thê tra cứu thư viện này bằng Object Browser . Sau đây là một số hàm thông dụng Hàm Mô tả Asc x Trả về mã ASCII của ký tự đầu trong một chuỗi Chr x Chuyển đổi từ mã ASCII sang một ký tự Left String Length as Long Trích dữ liệu bên trái của một chuỗi Mid String Start As Long Length Trích dữ liệu phần giữa của một chuỗi Right String Length As Long Trích dữ liệu phần bên phải của một chuỗi Split String Tách một chuỗi dài thành một mảng gồm nhiều chuỗi nhỏ hơn Joi nt String Array Len String Gộp một mảng các chuỗi thành một chuỗi duy nhất Trả về độ dài của chuỗi số lượng ký tự trong chuỗi bao gồm cả ký tự trống Ucase String Hàm thực hiện đổi tất cả các ký tự trong chuỗi thành chữ HOA. InStr start string1 string2 compare Trả về vị trí bắt đầu của chuỗi String2 trong chuỗi String1. Ví dụ Public Sub Test Dim StrArDes As String Mảng các chuỗi được khai báo dạng mảng động Dim StrScr As String Chuỗi ban đầu StrScr Point1_23.5_4.5_44.8 StrArDes Split StrScr _ Tách chuỗi StrScr thành một mảng các chuỗi và đưa vào StrArDes kí tự ngăn cách là _ Khi đó StrArDes 0 Point1 StrArDes 1 23.5 StrArDes 2 4.5 StrArDes 3 44.8 Debug.Print StrArDes 0 StrArDes 1 StrArDes 2 StrArDes 3 End Sub Kết quả sẽ như sau Poíntl 23.5 4.5 44.8 El Lưu ý là dấu _ trong ví dụ trên có thể thay thế bằng bất cứ ký tự nào. CHÚ Ý Trong tất cả các ngôn ngữ lập trình khái niệm chuỗi số và số là khác nhau. Ví dụ khi gán A 123 thì .