- NO T: Trả về True nếu toán hạng là False Trả về False nếu toán hạng là True
2.Cấu trúc lặp.
a. Lặp với số lần lặp biết trước: Cấu trúc FOR . . NEXT Cú pháp:
FOR <Biến> =< Giá trị đầu> TO <Giá trị cuối> [STEP <bước lặp>]
<Các lệnh>
[EXIT FOR]
NEXT <Biến>
Ý nghĩa: là cấu trúc lặp với số bước lặp là cố định. Cấu trúc này thường sử dụng khi
ta biết trước số bước lặp. Ơ cấu trúc này câu lệnh được thực hiện từ đầu cho đến khi hết số bước lặp. Đây là cấu trúc lặp hay dùng nhất trong Visual Basic.
Trong đó:
- Biến: Biến đếm kiểu số nguyên.
- STEP: là bước lặp sau mỗi lần lặp. Nếu giá trị Step này khơng có, mặc định bước lặp này là 1.
- [EXIT FOR]: Nếu có thì sẽ cho dừng ngay q trình lặp của vịng lặp FOR.
Ví dụ 1: Tính tổng các số từ 1 đến n
Private Sub cmdthoat_Click() End
End Sub
Private Sub cmdtiep_Click() txtn = “”
txtkq = “” txtn.SetFocus End Sub
Private Sub Cmdtinh_Click() Dim i As Integer
Dim n As Integer Dim tong As Integer n = Val(txtn.Text) For i = 1 To n Tong = tong + i Txtkq.Text = tong Next i End Sub Ví dụ 2: Tính tổng các số chẵn từ 2 đến n
Dim i As integer For i = 2 To 10 Step 2
Tong = Tong + I Next I
TxtThongbao = ‘’Tổng các số chẵn từ 1 đến 10 là’’ & Tong
Ví dụ 3: Tính tổng các số lẻ từ 1 đến 9 với điều kiện nếu Tong > 12 thì thốt khỏi vịng lặp
Dim Tong As integer Dim i As integer For i = 1 To 9 Step 2 Tong = Tong + i If Tong > 12 Then Exit For End If Next i
TxtThongbao = ‘’Tổng các số lẻ từ 1 đến 9 là ‘’ & Tong
Chú ý: Ta không cần gán biến Tong = 0, vì trong Visual Basic các biến số thì có giá trị mặc nhiên ban đầu bằng 0.