Phân tích tư tưởng của nhân dân qua đoạn thơ: Những người vợ nhớ chồng… Những cuộc đời đã hóa sông núi ta trong Đất nước của Nguyễn Khoa Điềm
3397
1
0
9 trang
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)
Nội dung trích xuất từ 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 CHƯƠNGIII:CƠBẢNVỀNGÔNNGỮLẬPTRÌNHVISUALBASIC 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 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ỗiCá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 ObjectBrowser). 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ỗiChr(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ỗiMid(String, Start As Long, [Length]) Trích dữ liệu phần giữa của một chuỗiRight(String, Length As Long) Trích dữ liệu phần bên phải của một chuỗiSplit(String) Tách một chuỗi dài thành một mảng gồm nhiều chuỗi nhỏ hơnJoint(StringArray) Gộp một mảng các chuỗi thành một chuỗi duy nhấtLen(String) 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 SubKết quả sẽ như sau: 43Lư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ì giá trị của A là một chuỗi ký tự gồm “1”, “2” và “3”. Còn khi gán B=123 thì giá trị của B là một trăm hai mươi ba. Để tạo ra một chuỗi có chứa dấu nháy kép (“) bên trong nó thì cần sử dụng thêm hai dấu nháy kép nữa. Ví dụ, trong biểu thức sau: s = “ABC” “123” thì giá trị của biến s là: ABC”1238. Các cấu trúc điều khiển8.1. Cấu trúc điều kiệnCác từ khóa: If, Then, Else, ElseIf, End IfCú pháp:If then Khối_lệnhEnd IfDiễn giải tiến trình của cấu trúc điều kiện như sau: nếu là đúng thìchương trình sẽ thực hiện , nếu sai thì chương trình sẽ thoát khỏi cấu trúc lệnhnày.Sơ đồ khối của cấu trúc lệnh kiểu này có thể được biểu diễn như sau: Dim A As Double Dim B As Double A = 20: B = 10 If A > B Then Debug.Print (Hieu cua hai so A va B >0)Kết quả như sau:44 CHƯƠNGIII:CƠBẢNVỀNGÔNNGỮLẬPTRÌNHVISUALBASIC GỢI Ý Nếu như [khối_lệnh] có thể viết trên một dòng như ví dụ trên thì không dùng từ khóa End If. Để phân tách nhiều lệnh trên cùng một dòng, sử dụng dấu hai chấm (:) để ngăn cách giữa các lệnh.Ngoài cấu trúc cơ bản và trường hợp riêng ở trên, trong nhiều trường hợp, ta buộc phải xử lýkhi trả về giá trị False (sai). Để giải quyết tình huống này ta sửdụng cấu trúc điều kiện mở rộng như sau:If Khối_lệnh_1Else Khối_lệnh_2End IfDiễn giải tiến trình của cấu trúc lệnh này như sau: nếu là đúng thìchương trình sẽ thực hiện , còn nếu không đúng thì chương trình sẽ thực hiện.Sơ đồ khối của cấu trúc lệnh kiểu này có thể được biểu diễn như sau:Các cấu trúc lệnh điều kiện có thể được lồng nhau để thể hiện những thao tác phức tạp hơnbằng cách sử dụng thêm từ khoá ElseIf. Như vậy, cấu trúc điều kiện có cú pháp tổng quát nhưsau:If Then[Khối_lệnh_1][ElseIf Then [khối_lệnh_n]...[Else [Khối_lệnh_2]]End IfTrong khối cấu trúc này, khối lệnh [ElseIf Then có thể lặp lại nhiều lầntương ứng với nhiều điều k ...
