Học Lập Trình Tại Đà Nẵng

H àm tách tên trong xâu họ và tên. (VD: Nếu biết họ tên là Nguyễn Minh Ngọc, hàm sẽ tách ra được tên là Ngọc) Function GetTen(hoten As Strin...

Cú pháp : For Each phần_tử  In nhóm       Lệnh       ……       [ Exit For ]  Lệnh  Next [ phần_tử]   Số lần vòng lặp For thực hiện các lệnh t...

Cú pháp : With đối_tượng         Lệnh  ……  End With Cấu trúc With cho phép thực hiện các lệnh đối với một biến đối tượng nào đó hoặc biến có...

Cú pháp : If TypeOf biến_đối_tượng Is hằng_nội_tại Then           Lệnh_1  [ ElseIf TypeOf biến_đối_tượng Is hằng_nội_tại Then           Lệnh...

Ví dụ 1: Tạo bảng mới có tên là SINHVIEN Sub CreateTable1()     Dim dbs As Database     Set dbs = OpenDatabase("QLSV.mdb")      &#...

Ví dụ 1: Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến 50  Dim i As Byte  Dim tong As Integer  tong = 0  i = 3  While i <= 50    ...

Bài toán: Kiểm tra một số nguyên (>2) có phải là nguyên tố hay không ? Dim so As Integer  Dim uoc As Integer  Dim nguyento As Boolean  ng...

//Tính tổng các số từ 1 đến 50, giá trị được lưu vào biến tong:  Dim i As Byte  Dim tong As Integer  tong = 0  For i = 1 To 50       tong = ...

// Kiểm tra và trả lời một số là chẵn hay lẻ: If so Mod 2 = 0 Then      Msgbox “Là số chẵn !”  Else      Msgbox “Là số lẻ !”  End If  //Cho...