TA(1, 1) = "La
mot he quan tri co so du lieu."
"CSDL la
gi? "
TA(2, 1) = "La tap hop cac thong tin duoc to chuc
cho mot muc dich cu the,
cac thong tin nay thuong co hinh anh bang bieu"
"Bang (Table) la gi?."
*"La thanh phan
co so cua Access dung de luu tru du lieu. Mot bang bao
gom cac cot(Truong, Fields), cac dong (Ban ghi, record)."
"Bieu mau (Forms) la gi?"
TA(4, 1) = "La doi tuong thiet
ke de nhap hoac hien thi du lieu giup xay dung cac thanh phan giao tiep giua
nguoi su dung voi chuong trinh."
"Truy van (Queries) la gi?."
TA(5, 1) = "La cong cu duoc su
dung de trich rut du lieu theo nhung dieu kien duoc xac dinh, tap du lieu trich
rut cung co dang bang bieu."
"Bao bieu (Repots) la gi?"
TA(6, 1) = "La doi tuong dung
de hiem thi cac thong tin tu cac bang theo cac hien thi khac nhau, giup nguoi
xem de dang tiep nhan cac thong tin do."
" Khi tao cau
truc cua Table doi tuong FIELD NAME dung de: "
TA(7, 1) = "Dat ten
truong."
" Khi tao cau truc cua Table doi tuong
DATA TYPE dung de: "
TA(8, 1) = "Chon kieu truong."
" Khi tao cau truc cua Table doi tuong Description dung de: "
TA(9, 1) = "Mo ta truong."
" Khi tao cau truc cua Table nhom doi tuong Field Properties dung de:
"
TA(10, 1) = "Thiet lap cac
thuoc tinh truong."
" Khi tao cau truc cua Table neu kieu truong chon AutoNumber thi
truong do se nhan gia tri: "
TA(11, 1) = "Tu dong chen du
lieu so theo tung record."
" Khi tao cau truc cua Table neu muon du lieu truong do tu dong chen
so theo tung record thi kieu truong phai chon la: "
TA(12, 1) = "AutoNumber."
" Khi tao cau
truc cua Table neu kieu truong chon Number
thi truong do se nhan gia tri: "
TA(13, 1) = "Du lieu kieu so
."
" Khi tao cau truc cua Table neu muon du lieu truong do nhan cac gia
tri so thi kieu truong phai chon la:
"
TA(14, 1) = "Number ."
" Khi tao cau
truc cua Table neu kieu truong chon Yes/No thi truong do se nhan gia tri:
"
TA(15, 1) = "Du lieu kieu logic
."
" Khi tao cau truc cua Table neu muon du lieu truong do nhan cac gia
tri logic thi kieu truong phai chon la:
"
TA(16, 1) = "Yes/No."
" Khi tao cau truc cua Table doi tuong CAPTION dung de: "
TA(17, 1) = " Cho phep tao tieu
de cho tung truong"
" Khi tao cau truc cua Table thuoc tinh Field Size dung de: (Truong co kieu Text) "
TA(18, 1) = " Do dai toi da cho
phep cua truong."
" Khi tao cau truc cua Table thuoc tinh Format dung de: "
TA(19, 1) = " Dinh dang truong,
xac dinh cung cach hien thi... "
" Khi tao cau
truc cua Table thuoc tinh Input Mask
dung de: "
TA(20, 1) = " Khuon na nhap lieu."
" Khi tao cau
truc cua Table thuoc tinh Required dung de: "
TA(21, 1) = " Cho phep hay khong cho phep cac gia
tri trung nhau."
" Khi tao cau
truc cua Table thuoc tinh Default Value dung de: "
TA(22, 1) = " Dung de quy dinh
mot gia tri ban dau cua mot loai du lieu."
" Khi tao cau truc cua Table thuoc tinh Validation Rule dung de:
"
TA(23, 1) = "Quy tac hop le.
Kiem tra cac dieu kien truoc khi nhap mot mau tin moi."
" Khi tao cau truc cua Table thuoc tinh Validation Text dung de:
"
TA(24, 1) = "Thong bao loi khi
mot ban ghi vi pham dieu kien "
" Khi tao cau
truc cua Table thuoc tinh AllowZerolength dung de: "
TA(25, 1) = " Cho phep hay khong cho phep cac truong
Text va memo nhan cac chuoi rong."
"Khi tao cau truc cua Table Neu nhap so khong (0) trong khuon dang cua thuoc tinh
Input mask. "
TA(26, 1) = " Vi tri danh cho
cac chu so 0..9, bat buoc phai nhap ."
"Khi tao cau truc cua Table Neu nhap so chin (9) trong khuon dang cua thuoc tinh
Input mask. "
TA(27, 1) = " Vi tri danh cho
cac chu so 0..9, khong bat buoc phai nhap."
"Khi tao cau truc cua Table Neu nhap ky tu a trong khuon dang cua thuoc tinh Input mask.
"
TA(28, 1) = " Vi tri danh cho
ca chu va so, khong bat buoc phai nhap."
"Khi tao cau truc cua Table Neu nhap ky tu A trong khuon dang cua thuoc tinh Input mask.
"
TA(29, 1) = " Vi tri danh cho
ca chu va so, bat buoc phai nhap."
"Khi tao cau truc cua Table Neu nhap ky tu L trong khuon dang cua thuoc tinh Input mask.
"
TA(30, 1) = " Vi tri danh cho
ca chu cai bat buoc phai nhap."
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00L00000C thi du lieu
cua truong MSV se chap nhan cac gia tri nao. "
TA(31, 1) = " Chap nhan tat ca
cac gia tri."
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00L00000L thi du lieu
cua truong MSV se chap nhan cac gia tri nao. "
TA(32, 1) = " 07A00001N"
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00900000L thi du lieu
cua truong MSV se chap nhan cac gia tri nao. "
TA(33, 1) = " Khong chap nhan
gia tri nao ca"
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00L00000CC thi du
lieu cua truong MSV se chap nhan cac gia tri nao. "
TA(34, 1) = " Chap nhan tat ca
cac gia tri."
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00C00000L thi du lieu
cua truong MSV se chap nhan cac gia tri nao. "
TA(35, 1) = " Khong chap nhan
gia tri nao ca."
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00C00000L thi du lieu
cua truong MSV se chap nhan cac gia tri nao. "
TA(36, 1) = " 07.00001N"
"Khi tao cau truc cua Table cot
MSV co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00L00000C thi du lieu
cua truong MSV se chap nhan cac gia tri nao. "
TA(37, 1) = " Chap nhan tat ca cac gia tri."
"Quan he
Mot-Mot (One-to-One):"
TA(38, 1) = "La quan he cac dong du lieu co trong 2
bang quan he phai tuong ung voi nhau."
" Quan he
Mot- Nhieu (One-to-Many) "
TA(39, 1) = "La quan he mot
dong du lieu o bang ben mot se co tuong ung nhieu dong du lieu o bang ben nhieu."
"Quan he
nhieu nhieu (Many -to-Many)"
TA(40, 1) = "La quan he nhieu ban ghi bat ky trong
bang thu nhat co moi quan he voi
nhieu ban ghi trong bang thu 2. "
" Khi tao cau truc cua Table doi tuong nao dung de tao tieu de cho
tung truong. "
TA(41, 1) = " Caption."
" Khi tao cau truc cua Table doi tuong nao dung de thiet lap do dai
toi da cho phep cua truong. "
TA(42, 1) = " Field Size.
"
" Khi tao cau truc cua Table doi tuong nao dung de dinh dang truong,
xac dinh cung cach hien thi...cua truong. "
TA(43, 1) = " Format. "
" Khi tao cau truc cua Table doi tuong nao dung de thiet lap khuon na nhap lieu cua truong. "
TA(44, 1) = " Input Mask.
"
" Khi tao cau truc cua Table doi tuong nao dung de quy dinh mot gia tri ban dau cua mot loai du
lieu. "
TA(45, 1) = " Default Value.
"
" Khi tao cau truc cua Table doi tuong nao dung de kiem tra cac dieu kien truoc khi nhap mot mau
tin moi. "
TA(46, 1) = " Validation Rule.
"
" Khi tao cau truc cua Table doi tuong nao dung de thiet lap thong bao loi khi mot ban ghi vi
pham dieu kien. "
TA(47, 1) = " Validation Text. "
"Ten truong
(Fields) trong access duoc quy dinh nhu the nao?"
TA(48, 1) = "Khong bat dau la
dau cach, khong chua ky tu :(.),(!),([),(])."
"Khi tao cau truc cua Table Neu nhap ky tu C
trong khuon dang cua thuoc tinh Input mask. "
TA(49, 1) = " Vi tri danh cho
ky tu bat ky khong bat buoc phai nhap."
"Truy
van tao bang (Make - Table Query)"
TB(1, 1) = "Loai truy tao ra
mot bang moi chua du lieu"
"Truy van cap nhat du lieu (Update Query)."
TB(2, 1) = "Loai truy van dung
de cap nhat du lieu cho bang."
"Truy van them du lieu (Append Query)."
TB(3, 1) = "Loai
truy van dung de them mot hay nhieu dong du lieu moi vao cuoi mot bang.
Moi truy van chi dung de them du lieu vao cho mot bang."
"Truy van xoa du lieu (Delete Query)."
TB(4, 1) = "Loai truy van dung
de thuc hien xoa mot hay nhieu dong du lieu cua mot bang."
"Truy van thong ke (Crosstab Query)."
TB(5, 1) = "Loai truy van dung de thuc hien cac truy
van co tinh chat thong ke,
tinh toan va hien thi du lieu theo dang dong va cot."
"Khi tao truy
van doi tuong FIELD co y nghia gi?"
TB(6, 1) = "The hien cac cot, bieu thuc trong truy
van."
"Khi tao truy
van doi tuong TABLE co y nghia gi?"
TB(7, 1) = "The hien cac cot, bieu thuc trong truy
van."
"Khi tao truy
van doi tuong SORT co y nghia gi?"
TB(8, 1) = "Cho phep sap xep thu tu cot tang hay
giam"
"Khi tao truy van doi tuong
SHOW co y nghia gi?"
TB(9, 1) = "Hien hoac an
cot"
"Truy van lua chon (Select Query)."
TB(10, 1) = "Loai truy van nay
chi mang tinh chat cung cap thong tin da duoc luu tru trong bang, khong lam
thay doi du lieu cua bang."
"Khi tao truy
van doi tuong CRITERIA co y nghia gi?"
TB(11, 1) = "Chua gia tri hay bieu thuc loc ung voi
cot"
"Tao ra mot bang moi chua du lieu ta su dung truy van"
TB(12, 1) = "Make table query"
"De thuc hien
truy van cung cap thong tin da duoc luu tru trong bang ta su dung truy van.
"
TB(13, 1) = "Selec query"
"De thuc hien
cac truy van co tinh chat thong ke, tinh toan va hien thi du lieu theo dang
dong va cot ta su dung truy van
nao?"
TB(14, 1) = "Crosstab
query"
"De cap nhat du lieu cho bang ta su dung truy van."
TB(15, 1) = "Update query"
"De them mot hay nhieu dong du lieu moi vao cuoi mot bang ta su dung
truy van. "
TB(16, 1) = "Appen query"
"De thuc hien xoa mot hay nhieu dong du lieu cua mot bang ta su dung
truy van."
TB(17, 1) = "Delete query"
"Muon trich
rut danh sach sinh vien co nam sinh la 1980 (cot NGAYSINH co dang DD/MM/YYYY)
ta thuc hien:"
TB(18, 1) = "Tai CRITERIA cua cot NGAYSINH nhap:
Year([ngaysinh]) = 1980"
"Muon trich
rut danh sach sinh vien co ngay sinh la
29 (cot NGAYSINH co dang DD/MM/YYYY) ta thuc hien:"
TB(19, 1) = "Tai CRITERIA cua cot NGAYSINH nhap:
Day([ngaysinh]) = 29"
"Muon trich
rut danh sach sinh vien co thang sinh la 2 (cot NGAYSINH co dang DD/MM/YYYY) ta
thuc hien:"
TB(20, 1) = "Tai CRITERIA cua cot NGAYSINH nhap:
Month([ngaysinh]) = 2"
"Muon trich
rut danh sach sinh vien co ten la HOA hoc o lop TC12.01 ta thuc hien:"
TB(21, 1) = "Tai CRITERIA cua cot TEN nhap: ''HOA''
va tai CRITERIA cua cot TENLOP nhap: ''TC12.01'' "
"Muon trich
rut danh sach sinh vien co ten la HOA sinh nam 1980 ta thuc hien:"
TB(22, 1) = "Tai CRITERIA cua cot TEN nhap: ''HOA''
va tai CRITERIA cua cot NGAYSINH nhap: Year([ngaysinh]) = 1980 "
"Muon trich
rut danh sach sinh vien co ten la HOA sinh ngay 29 ta thuc hien:"
TB(23, 1) = "Tai CRITERIA cua cot TEN nhap: ''HOA''
va tai CRITERIA cua cot NGAYSINH nhap: Day([ngaysinh]) = 29 "
"Muon trich
rut danh sach sinh vien co ten la HOA sinh thang 2 ta thuc hien:"
TB(24, 1) = "Tai CRITERIA cua cot TEN nhap: ''HOA''
va tai CRITERIA cua cot NGAYSINH nhap: Month([ngaysinh]) = 2"
"Muon trich
rut danh sach sinh vien co Ho la PHAN va ten HOA ta thuc hien:"
TB(25, 1) = "Tai CRITERIA cua cot TEN nhap: ''HOA''
va tai CRITERIA cua cot HODEM nhap: Like ''PHAN *'' "
"Muon trich
rut danh sach sinh vien co DIEML1 tu 5 den 10 ta thuc hien:"
TB(26, 1) = "Tai CRITERIA cua cot DIEML1 nhap:
>=5 AND <=10 "
"Muon trich
rut danh sach sinh vien co DIEML1 tu 5 den 10 ta thuc hien:"
TB(27, 1) = "Tai CRITERIA cua cot DIEML1 nhap:
Between 5 And 10 "
"Muon trich
rut danh sach sinh vien co DIEML1 la 5
hoac10 ta thuc hien:"
TB(28, 1) = "Tai CRITERIA cua cot DIEML1 nhap: 5 OR
10 "
"Muon trich
rut danh sach sinh vien co DIEML1 la 5
hoac 7 hoac 10 ta thuc hien:"
TB(29, 1) = "Tai CRITERIA
cua cot DIEML1 nhap: 5 OR 10 OR 7"
"Muon trich
rut danh sach sinh vien co DIEML1 nho
hon 5 , nhung co diemthi o DIEML2 (Thi lai) ta thuc hien:"
TB(30, 1) =
"Tai CRITERIA cua cot DIEML1 nhap: <5 va tai CRITERIA cua cot DIEML2
nhap: Not IsNull"
"Muon trich
rut danh sach sinh vien co DIEML1 da dat
, nhung co diem thi o DIEML2 (Thi nang diem) ta thuc hien:"
TB(31, 1) =
"Tai CRITERIA cua cot DIEML1 nhap: >=5 va tai CRITERIA cua cot DIEML2
nhap: Not IsNull"
"Muon trich
rut danh sach sinh vien co DIEML1 tu 5
diem , nhung DIEML2 nho hon 5 ta thuc
hien:"
TB(32, 1) = "Tai CRITERIA cua cot DIEML1 nhap: >=5 va tai CRITERIA
cua cot DIEML2 nhap: <5"
"Muon trich
rut danh sach sinh vien co DIEML1 nho
hon 5 diem , nhung DIEML2 tu 5 diem ta thuc hien:"
TB(33, 1) = "Tai CRITERIA cua cot DIEML1 nhap: <5 va tai CRITERIA
cua cot DIEML2 nhap: >=5"
"Muon trich
rut danh sach sinh vien co DIEML1 cua
hoc phan tin 4 da dat ta thuc hien:"
TB(34, 1) = "Tai CRITERIA cua cot DIEML1 nhap: >=5 va tai CRITERIA
cua cot TENMON nhap: ''Tin 4'' "
"Muon trich
rut danh sach sinh vien co DIEML1 cua
hoc phan tin 4 chua dat ta thuc hien:"
TB(35, 1) = "Tai CRITERIA cua cot DIEML1 nhap: <5 va tai CRITERIA
cua cot TENMON nhap: ''Tin 4'' "
"Muon trich
rut danh sach sinh vien co DIEML1 duoc
nhap tu ban phim ta thuc hien:"
TB(36, 1) =
"Tai CRITERIA cua cot DIEML1 nhap: [Ban muon hien diem bang bao nhieu? ]
"
"Muon tinh
BHYT bang 5% LUONGCB ta thuc hien:"
TB(37, 1) =
"Tai Update To cua cot BHYT nhap: [LUONGCB ] * 0.05 "
"Muon tinh
BHXH bang 20% LUONGCB ta thuc hien:"
TB(38, 1) =
"Tai Update To cua cot BHXH nhap: [LUONGCB ] * 0.2 "
"Muon tinh
PHUCAP theo cong thuc: GD, PGD bang 20% LUONGCB. TP,PP bang 10% LUONGCB ta thuc hien:"
TB(39, 1) = "Tai Update To cua cot PHUCAP nhap: IIF (OR([CV ] =''GD'',
[CV ] =''PGD''), [LUONGCB ] * 0.2, IIF
(OR([CV ] =''TP'', [CV ] =''PP''),
[LUONGCB ] * 0.1,0)) "
"Muon tinh TIENLUONG bang (LUONGCB * HESO)+ PHUCAP - BHYT - BHXH ta
thuc hien:"
TB(40, 1) =
"Tai Update To cua cot TIENLUONG nhap: ([LUONGCB ]
*[HESO])+[PHUCAP]-[BHYT]-[BHXH] "
"Muon tinh
TONG bang TOAN + LY + HOA ta thuc
hien:"
TB(41, 1) =
"Tai Update To cua cot TONG nhap: [TOAN]+[LY]+[HOA] "
"Muon tinh
TONG bang TOAN + LY + HOA + Diem KHUVUC
(KHUVUC=1 cong then 1.5 diem, KHUVUC=2NT cong then 1 diem, KHUVUC=2 cong then
0.5 diem ) ta thuc hien:"
TB(42, 1) =
"Tai Update To cua cot TONG nhap: [TOAN]+[LY]+[HOA] +
IIF(KHUVUC=''1'',1.5, IIF(KHUVUC=''2NT'',1,IIF(KHUVUC=''2'',0.5,0)))
"Dau man hinh
(Form Header)"
TC(1, 1) =
"Cac dieu khien nam trong man hinh nay se xuat hien o dau man hinh."
"Chi tiet
(Detail)"
TC(2, 1) =
"The hien cac chi tiet du lieu tren man hinh"
"Cuoi man
hinh (Form Footer)"
TC(3, 1) =
"Cac dieu khien nam trong thanh phan nay se xuat hien o cuoi cua man
hinh."
"Tieu de
(Caption)"
TC(4, 1) =
"La mot chuoi van ban xuat hien tren thanh tieu de (Title bar) cua cua so
man hinh."
"De viet duoc
chu '' cap nhat ho so sinh vien'' (doi tuong 1) thi phai lua chon cong cu nao
"
TC(5, 1) = "Label."
"Nguon du lieu (Record Source)"
TC(6, 1) = "Dung de xac dinh bang du lieu nguon can su dung de xay
dung man hinh."
"De tao duoc doi tuong (5) thi
phai su dung cong cu nao tren thanh cong cu ToolBox "
TC(7, 1) = "Image."
"De tao duoc cac doi tuong (2)
thi phai su dung cong cu nao tren thanh cong cu ToolBox "
TC(8, 1) = "Text Box."
"De tao duoc doi tuong (3) thi phai su dung cong cu nao tren thanh cong
cu ToolBox "
TC(9, 1) =
"Check Box."
"De tao
duoc doi tuong (4) thi phai su dung cong cu nao tren thanh cong
cu ToolBox "
TC(10, 1) =
"Command Button."
"Doi tuong
(1) tren thanh cong cu ToolBox la:
"
TC(11, 1) = "Label."
"Doi tuong
(2) tren thanh cong cu ToolBox la:
"
TC(12, 1) =
"Text Box."
"Doi tuong
(3) tren thanh cong cu ToolBox la:
"
TC(13, 1) =
"Option Group."
"Doi tuong
(5) tren thanh cong cu ToolBox la:
"
TC(14, 1) =
"Option Button."
"Doi tuong
(6) tren thanh cong cu ToolBox la:
"
TC(15, 1) =
"Check Box."
"Doi tuong
(7) tren thanh cong cu ToolBox la:
"
TC(16, 1) =
"Combo Box."
"Doi tuong
(8) tren thanh cong cu ToolBox la:
"
TC(17, 1) =
"List Box."
"Doi tuong
(9) tren thanh cong cu ToolBox la:
"
TC(18, 1) =
"Command Bottom."
"De tao
duoc doi tuong (A) thi phai su dung cong cu so may tren thanh
cong cu ToolBox "
TC(19, 1) =
"So 1."
"De tao
duoc doi tuong (B) thi phai su dung cong cu so may tren thanh cong
cu ToolBox "
TC(20, 1) =
"So 2."
"De tao
duoc doi tuong (C) thi phai su dung cong cu so may tren thanh
cong cu ToolBox "
TC(21, 1) =
"So 6."
"De tao
duoc doi tuong (D) thi phai su dung cong cu so may tren thanh
cong cu ToolBox "
TC(22, 1) =
"So 9."
"De tao duoc
doi tuong (A) thi phai su dung cong cu
so may tren thanh cong cu ToolBox "
TC(23, 1) =
"So 6."
"De tao duoc
doi tuong (B) thi phai su dung cong cu
so may tren thanh cong cu ToolBox "
TC(24, 1) =
"So 5."
"De tao duoc
doi tuong (C) thi phai su dung cong cu
so may tren thanh cong cu ToolBox "
TC(25, 1) =
"So 7.."
"De tao duoc
doi tuong (D) thi phai su dung cong cu
so may tren thanh cong cu ToolBox "
TC(26, 1) =
"So 8."
"De tao duoc
doi tuong (E) thi phai su dung cong cu
so may tren thanh cong cu ToolBox "
TC(27, 1) =
"So 10."
"Tieu de bao
cao(Report Header) "
TD(1, 1) =
"Cac dieu khien nam trong thanh phan nay se xuat hien o dau bao cao (Chi
mot lan o trang dau tien cua bao cao)."
"Tieu de trang(Page Header)
"
TD(2, 1) = "Cac dieu khien nam trong thanh phan nay se xuat hien o dau
moi trang cua bao cao."
"Chi tiet (Detail) "
TD(3, 1) = "The hien cac du lieu cua bao cao."
"Cuoi trang(Page Footer)"
TD(4, 1) = "Cac dieu khien nam trong thanh phan nay se xuat hien o
cuoi moi trang bao cao."
"Cuoi bao
cao(Report Footer)"
TD(5, 1) =
"Cac dieu khien nam trong thanh phan nay se xuat hien o trang cuoi cung
(chi mot lan trong bao cao)."
"Dau
nhom(Group Header)"
TD(6, 1) =
"Cac dieu khien nam trong thanh phan nay se xuat hien o dau moi nhom bao
cao."
"Cuoi
nhom(Group Footer)"
TD(7, 1) =
"Cac dieu khien nam trong thanh phan nay se xuat hien o cuoi moi nhom bao
cao."
"Khi tao mot bao cao du lieu
hien thi se duoc dat trong phan nao cua Report:"
TD(8, 1) = "Detail"
"Khi tao mot bao cao cac doi
tuong chi hien thi mot lan o trang dau tien cua bao cao
thi cac doi tuong do se duoc dat trong phan nao cua Report:"
TD(9, 1) = "Report Header"
"Khi tao mot bao cao cac doi
tuong chi hien thi mot lan o trang cuoi cung cua bao
cao thi cac doi tuong do se duoc dat trong phan nao cua Report:"
TD(10, 1) = "Report Footer"
"Khi tao mot bao cao cac doi
tuong hien thi o dau moi trang cua bao cao thi cac doi tuong
do se duoc dat trong phan nao cua Report:"
TD(11, 1) = "Page Header"
"Khi tao mot bao cao cac doi
tuong hien thi o cuoi trang
cua bao cao thi cac doi tuong do se duoc dat trong phan nao cua
Report:"
TD(12, 1) = "Page Footer"
"Chuc nang cua bien Database? "
TE(1, 1) = "Dung de ket noi voi CSDL"
"Chuc nang cua bien Recordset? "
TE(2, 1) = "Dung de thao tac voi cac ban ghi"
"Cach khai bao bien Recordset? "
TE(3, 1) = "DIM <Ten bien> AS DAO.Recordset"
"Cach khai bao bien Database? "
TE(4, 1) = "DIM <Ten bien> AS DAO.Database"
"Cach gan bien Database voi
CSDL? "
TE(5, 1) = "SET <Ten bien> =CurrentDB()"
"Cach gan bien Recordset voi
ban ghi? "
TE(6, 1) = "SET <Ten bien> = Bien Database.OpenRecordSet(''Nguon
du lieu'',''Kieu du lieu'')"
"De gan bien <DuLieu> kieu Database voi CSDL
''HSSV''? "
TE(7, 1) = "SET DuLieu =CurrentDB()"
"De gan bien <BanGhi>
kieu Recordset voi ban ghi (da co bien <DuLieu> kieu Database va CSDL la
''HSSV'') ? "
TE(8, 1) = "SET DuLieu = BanGhi.OpenRecordSet(''HSSV'',''DB_OPEN_DYNASET'')"
"Hay cho biet khi lap trinh thi thu tuc nao sau day khong hop le. "
TF(1, 1) =
"Sub For()."
"Hay cho biet
khi lap trinh thi thu tuc nao sau day
hop le. "
TF(2, 1) = "Tat ca deu hop
le."
"Hay cho biet
khi lap trinh thi ten thu tuc nao sau day hop le. "
TF(3, 1) =
"Sub False()."
"Hay cho biet
khi lap trinh thi ten thu tuc nao sau day hop le. "
TF(4, 1) =
"Sub TinhTong()."
"Hay cho biet
khi lap trinh thi ten thu tuc nao sau day khong hop le. "
TF(5, 1) =
"Tat ca deu khong hop le."
"Hay cho biet
khi lap trinh thi ten bien nao sau day hop le. "
TF(6, 1) =
"Dim TongDiem As Double."
"Hay cho biet
khi lap trinh thi ten bien nao sau day hop le. "
TF(7, 1) = "Tat ca deu hop le."
" Phat bieu
MsgBox trong Access thuong duoc dung de:"
TF(8, 1) = "Hien thong bao (Lenh ra du lieu)."
" Phat bieu
InputBox trong Access thuong duoc dung de:"
TF(9, 1) = "Nhap du lieu dang bat ky tu ban phim."
" Phat bieu
cua lenh IF...THEN... ENDIF (Dang khuyet): " & vbCrLf & _
"IF
<DK> THEN" & vbCrLf & _
" <Khoi lenh>" & vbCrLf &
_
"END IF"
TF(10, 1) =
"Neu <DK> dung thi thuc hien <Khoi lenh>, neu sai thi bo
qua."
" Phat bieu
cua lenh IF...ELSE... END IF (Dang day du): " & vbCrLf & _
"IF
<DK> THEN" & vbCrLf & _
" <Khoi lenh 1>" & vbCrLf
& _
"ELSE"
& vbCrLf & _
" <Khoi lenh 2>" & vbCrLf
& _
"END IF"
TF(11, 1) =
"Neu <DK> dung thi thuc hien <'Khoi lenh 1>, neu sai thi thuc
hien <'Khoi lenh 2>."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim A As
Double" & vbCrLf & _
"Dim B As
Double" & vbCrLf & _
"Dim S As
Double" & vbCrLf & _
"A=7"
& vbCrLf & _
"B=3"
& vbCrLf & _
"S=0"
& vbCrLf & _
"If A<B
Then" & vbCrLf & _
" S= A-B " & vbCrLf & _
"End If"
& vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(12, 1) = "
0."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim A As
Double" & vbCrLf & _
"Dim B As
Double" & vbCrLf & _
"Dim S As
Double" & vbCrLf & _
"A=7"
& vbCrLf & _
"B=3"
& vbCrLf & _
"S=0"
& vbCrLf & _
"If A<B
Then" & vbCrLf & _
" S= A-B " & vbCrLf & _
"Else "
& vbCrLf & _
" S= A+B " & vbCrLf & _
"End If"
& vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(13, 1) =
"10."
" Phat bieu
cua lenh Select Case: " & vbCrLf & _
"Select Case
Bien_Chon" & vbCrLf & _
" Case 1" & vbCrLf & _
" Khoi lenh 1" & vbCrLf &
_
" Case 2" & vbCrLf & _
" Khoi lenh 2" & vbCrLf &
_
" Case N" & vbCrLf & _
" Khoi lenh N" & vbCrLf
& _
" Case Else" & vbCrLf & _
" Khoi lenh N+1" & vbCrLf & _
"End
Select"
TF(14, 1) =
"Neu bien chon bang mot gia tri tu 1...N thi thuc hien khoi lenh tuong
ung. Neu khong bang thi thuc hien khoi lenh N+1."
"Khi chay
''thu tuc'' duoi day cho ket qua la gi? neu nhap so 3: " & vbCrLf
& _
"Sub
Thoi_Khoa_Bieu()" & vbCrLf & _
"Dim Thu As
Byte" & vbCrLf & _
"Thu =
InputBox(''Ban muon hoi thu may? '', ''Thoi khoa bieu'')" & vbCrLf
& _
"Select Case
Thu" & vbCrLf & _
" Case 2" & vbCrLf & _
" MsgBox ''Hom nay hoc Triet hoc tai phong
A403 Vinh tuy ''" & vbCrLf & _
" Case 3" & vbCrLf & _
" MsgBox ''Hom nay hoc Kinh te tai phong C203 Lac trung''" & vbCrLf
& _
" Case 4" & vbCrLf & _
" MsgBox ''Hom nay hoc Tin hoc tai phong B509 Vinh tuy ''" & vbCrLf
& _
" Case 5" & vbCrLf & _
" MsgBox ''Hom nay hoc Ke toan tai phong C207 Lac trung ''" &
vbCrLf & _
" Case 6 " & vbCrLf & _
" MsgBox ''Hom nay hoc Toan CC tai phong B203 Vinh tuy'' " & vbCrLf
& _
" Case 7 " & vbCrLf & _
" MsgBox ''Hom nay hoc Tieng anh tai
phong B203 Vinh Tuy'' " & vbCrLf & _
" Case Else " & vbCrLf & _
" MsgBox ''Xin loi, ngay nay khong co
trong thoi khoa bieu''" & vbCrLf & _
" End Select" & vbCrLf & _
"End
Sub"
TF(15, 1) = "
Hom nay hoc Kinh te tai phong C203 Lac
trung."
"Khi chay
''thu tuc'' duoi day cho ket qua la gi? neu nhap so 8: " & vbCrLf
& _
"Sub
Thoi_Khoa_Bieu()" & vbCrLf & _
"Dim Thu As
Byte" & vbCrLf & _
"Thu =
InputBox(''Ban muon hoi thu may? '', ''Thoi khoa bieu'')" & vbCrLf
& _
"Select Case
Thu" & vbCrLf & _
" Case 2" & vbCrLf & _
" MsgBox ''Hom nay hoc Triet hoc tai
phong A403 Vinh tuy ''" & vbCrLf & _
" Case 3" & vbCrLf & _
" MsgBox ''Hom nay hoc Kinh te tai phong C203 Lac trung''" & vbCrLf
& _
" Case 4" & vbCrLf & _
" MsgBox ''Hom nay hoc Tin hoc tai phong B509 Vinh tuy ''" & vbCrLf
& _
" Case 5" & vbCrLf & _
" MsgBox ''Hom nay hoc Ke toan tai phong C207 Lac trung ''" &
vbCrLf & _
" Case 6 " & vbCrLf & _
" MsgBox ''Hom nay hoc Toan CC tai phong B203 Vinh tuy'' " & vbCrLf
& _
" Case 7 " & vbCrLf & _
" MsgBox ''Hom nay hoc Tieng anh tai
phong B203 Vinh Tuy'' " & vbCrLf & _
" Case Else " & vbCrLf & _
" MsgBox ''Xin loi, ngay nay khong co
trong thoi khoa bieu''" & vbCrLf & _
" End Select" & vbCrLf & _
"End
Sub"
TF(16, 1) = "
Xin loi, ngay nay khong co trong thoi khoa bieu."
" Phat bieu
cua lenh FOR ... NEXT " &
vbCrLf & _
"FOR Bien = <Gia tri dau> TO <gia tri
cuoi> [STEP <N>] " &
vbCrLf & _
" <Khoi lenh> " & vbCrLf
& _
"NEXT"
TF(17, 1) =
"Neu gia tri cua Bien van con nho hon hoac bang gia tri cuoi thi thuc hien
<Khoi lenh>, neu lon hon thi thoat khoi vong lap."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(18, 1) =
"15."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 0 To
to 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(19, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(20, 1) = "
9."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(21, 1) =
"16."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" For I = 0 To
to 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(22, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(23, 1) =
"10."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = 0" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(24, 1) = "
5."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" For I = 0 To
to 5 Step 2" & vbCrLf
& _
" S = 0" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(25, 1) = "
4."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" S = 0" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(26, 1) =
"5."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = 1" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(27, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" For I = 0 To
to 5 Step 2" & vbCrLf
& _
" S = 1" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(28, 1) = "
5."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" S = 1" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(29, 1) =
"6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" Next" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(30, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 0 To
to 5 Step 2" & vbCrLf
& _
" Next" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(31, 1) =
"6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub Test()"
& vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" Next" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(32, 1) =
"7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" Next" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(33, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 0 To 5 Step
2" & vbCrLf & _
" Next" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(34, 1) =
"6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As Integer"
& vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" Next" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(35, 1) =
"7."
" 'Thu tuc''
duoi day thuc hien bao nhieu vong lap " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(36, 1) =
"5 vong."
" 'Thu tuc''
duoi day thuc hien bao nhieu vong lap " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5 Step 2 " & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(37, 1) =
"3 vong."
" 'Thu tuc''
duoi day thuc hien bao nhieu vong lap " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 0 To 5 Step 2 " & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(38, 1) =
"3 vong."
" 'Thu tuc''
duoi day thuc hien bao nhieu vong lap " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 2 To 5 Step 2 " & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(39, 1) =
"2 vong."
" 'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(40, 1) =
"Tinh tong tu 1 den 5."
" 'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(41, 1) =
"Tinh tong cac so le tu 1 den 5."
" 'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 0 To 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" Next" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(42, 1) =
"Tinh tong cac so chan tu 1 den 5."
" Phat bieu
cua lenh Do While " & vbCrLf
& _
"Do
While <BT Logic>" &
vbCrLf & _
" <Khoi lenh> " & vbCrLf
& _
"Loop"
'--------------
TF(43, 1) =
"Neu <BT Logic> con dung thi thuc hien <Khoi lenh>, neu <BT
Logic> sai thoat khoi vong lap."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(44, 1) =
"15."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(45, 1) = "
9."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(46, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(47, 1) =
"16."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(48, 1) =
"10."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(49, 1) = "
7."
" 'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 0 To 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Next" & vbCrLf & _
"End
Sub"
TF(50, 1) =
"Liet ke cac so chan tu 1 den 5."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(51, 1) = "
9."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(52, 1) = "
6."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(53, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(54, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(55, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As Integer"
& vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(56, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(57, 1) = "
8."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(58, 1) = "
7."
"'Thu tuc''
duoi day thuc hien bao nhieu vong lap: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S+ I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(59, 1) =
"3 vong."
"'Thu tuc''
duoi day thuc hien bao nhieu vong lap: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S+ I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(60, 1) =
"3 vong."
"'Thu tuc''
duoi day thuc hien bao nhieu vong lap: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(61, 1) =
"Vo so vong."
"'Thu tuc''
duoi day thuc hien bai toan gi?" & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As Integer"
& vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(62, 1) =
"Tinh tong tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(63, 1) =
"Tinh tong cac so le tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(64, 1) =
"Tinh tong cac so chan tu 1 den 5."
" Phat bieu
cua lenh Do Until " & vbCrLf & _
"Do
Until <BT Logic>" &
vbCrLf & _
" <Khoi lenh> " & vbCrLf
& _
"Loop"
TF(65, 1) =
"Neu <BT Logic> con sai thi thuc hien <Khoi lenh>, neu <BT
Logic> dung thoat khoi vong lap."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(66, 1) =
"15."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(67, 1) = "
9."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(68, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I
= I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(69, 1) =
"16."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(70, 1) =
"10."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(71, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(72, 1) = "
9."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(73, 1) = "
6."
"Ket qua la bao nhieu khi chay ''thu tuc'' duoi day: " &
vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(74, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(75, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(76, 1) = "
6."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(77, 1) = "
7."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(78, 1) = "
8."
"Ket qua la
bao nhieu khi chay ''thu tuc'' duoi day: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 1" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
" S = S + I" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(79, 1) = "
7."
"'Thu tuc''
duoi day thuc hien bao nhieu vong lap: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S+ I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(80, 1) =
"3 vong."
"'Thu tuc''
duoi day thuc hien bao nhieu vong lap: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S+ I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(81, 1) =
"3 vong."
"'Thu tuc''
duoi day thuc hien bao nhieu vong lap: " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(82, 1) =
"Vo so vong."
"'Thu tuc''
duoi day thuc hien bai toan gi?" & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(83, 1) =
"Tinh tong tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(84, 1) =
"Tinh tong cac so le tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(85, 1) =
"Tinh tong cac so chan tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi?" & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Loop" & vbCrLf & _
"End
Sub"
TF(86, 1) =
"Liet ke cac so tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Loop" & vbCrLf & _
"End
Sub"
TF(87, 1) =
"Liet ke cac so le tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do While I<=5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" MsgBox S" & vbCrLf & _
" Loop" & vbCrLf & _
"End
Sub"
TF(88, 1) =
"Liet ke cac so chan tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi?" & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 1" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Loop" & vbCrLf & _
"End
Sub"
TF(89, 1) =
"Liet ke cac so tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 1" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" Loop" & vbCrLf & _
"MsgBox
S" & vbCrLf & _
"End
Sub"
TF(90, 1) =
"Liet ke cac so le tu 1 den 5."
"'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" I = 0" & vbCrLf & _
" Do
Until I > 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" I = I + 2" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Loop" & vbCrLf & _
"End
Sub"
TF(91, 1) =
"Liet ke cac so tu chan 1 den 5."
" 'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5" & vbCrLf & _
" S = S + I" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Next" & vbCrLf & _
"End
Sub"
TF(92, 1) =
"Liet ke cac so tu 1 den 5."
" 'Thu tuc''
duoi day thuc hien bai toan gi? " & vbCrLf & _
"Sub
Test()" & vbCrLf & _
"Dim I As
Integer" & vbCrLf & _
"Dim S As
Integer " & vbCrLf & _
" S = 0" & vbCrLf & _
" For I = 1 To 5 Step 2" & vbCrLf
& _
" S = S + I" & vbCrLf & _
" MsgBox I" & vbCrLf & _
" Next" & vbCrLf & _
"End
Sub"
TF(93, 1) =
"Liet ke cac so le tu 1 den 5."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub
Test()" & vbCrLf & _
"2. Dim A As
Double" & vbCrLf & _
"3. Dim B As
Double" & vbCrLf & _
"4. Dim S As
String" & vbCrLf & _
"5. If A<B
Then" & vbCrLf & _
"6. S= A-B " & vbCrLf & _
"7. End
If" & vbCrLf & _
"8. MsgBox
S" & vbCrLf & _
"9. End
Sub"
TG(1, 1) =
"Dong 6."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub KetQua()" & vbCrLf & _
"2. Dim Diem As Double" & vbCrLf & _
"3. Diem = InputBox(''Ban hay nhap diem cua thi
sinh'')" & vbCrLf & _
"4. Select Case Diem" & vbCrLf & _
"5. Case >=15" & vbCrLf & _
"6. MsgBox (''Ban da do dai hoc, xin chuc
mung ban!'')" & vbCrLf & _
"7. Case Else " & vbCrLf & _
"8. MsgBox (''Ban da truotj dai hoc, xin
chia buon cung ban!'')" & vbCrLf & _
"9. End Select" & vbCrLf & _
"10. End Sub"
TG(2, 1) =
"Dong 5."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub
Test()" & vbCrLf & _
"2. Dim I As
Integer" & vbCrLf & _
"3. Dim S As
Integer " & vbCrLf & _
"4. S = 1" & vbCrLf & _
"5. For I > 1 To 5" & vbCrLf & _
"6. S = S + I" & vbCrLf & _
"7. Next" & vbCrLf & _
"8. MsgBox
S" & vbCrLf & _
"9. End
Sub"
TG(3, 1) =
"Dong 5."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub
Test()" & vbCrLf & _
"2. Dim I As
Integer" & vbCrLf & _
"3. Dim S As
String " & vbCrLf & _
"4. Do While I<=5" & vbCrLf & _
"5. S = S + I" & vbCrLf & _
"6. Loop" & vbCrLf & _
"7. MsgBox
S" & vbCrLf & _
"8. End
Sub"
TG(4, 1) =
"Dong 5."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub Test()" & vbCrLf & _
"2. Dim I As Integer" & vbCrLf & _
"3. Dim S As String " & vbCrLf & _
"4. S = 0" & vbCrLf & _
"5. Do Untile I>5" & vbCrLf &
_
"6. S = S + I" & vbCrLf & _
"7. I = I + 1" & vbCrLf & _
"8. Loop" & vbCrLf & _
"9. MsgBox S" & vbCrLf & _
"10. End
Sub"
TG(5, 1) =
"Dong 6."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub CapNhat()" & vbCrLf & _
"2. Dim DuLieu As DAO.Database" & vbCrLf
& _
"3. Dim BanGhi As DAO.Recordset " &
vbCrLf & _
"4. Dulieu =CurrentDB()" & vbCrLf &
_
"5. Set BanGhi=Dulieu.OpenRecordSet (''DMKHOA'',
DB_OPEN_DYNASET)" & vbCrLf & _
"6. Banghi.AddNew" & vbCrLf &
_
"7. BanGhi(''MAKHOA'') = TxtMakhoa"
& vbCrLf & _
"8. BanGhi(''TENKHOA'') =
TxtTenkhoa" & vbCrLf & _
"9. BanGhi.Update" & vbCrLf
& _
"10. End
Sub"
TG(6, 1) =
"Dong 4."
"''Thu tuc''
duoi day sai o dong lenh nao? " & vbCrLf & _
"1. Sub CapNhat()" & vbCrLf & _
"2. Dim DuLieu As DAO.Database" & vbCrLf
& _
"3. Dim BanGhi As DAO.Recordset " &
vbCrLf & _
"4. Set Dulieu =CurrentDB()" & vbCrLf
& _
"5. BanGhi=Dulieu.OpenRecordSet (''DMKHOA'',
DB_OPEN_DYNASET)" & vbCrLf & _
"6. Banghi.AddNew" & vbCrLf &
_
"7. BanGhi(''MAKHOA'') = TxtMakhoa"
& vbCrLf & _
"8. BanGhi(''TENKHOA'') =
TxtTenkhoa" & vbCrLf & _
"9. BanGhi.Update" & vbCrLf
& _
"10. End
Sub"
TG(7, 1) =
"Dong 5."
"Ten truong (Fields) trong access duoc quy dinh
nhu the nao?"
TK(1, 1) = "Khong bat dau la dau cach, khong
chua ky tu :(.),(!),([),(])."
"Khi tao cau truc cua Table Neu nhap ky
tu C
trong khuon dang cua thuoc tinh Input mask. "
TK(2, 1) = " Vi tri danh cho ky tu bat ky
khong bat buoc phai nhap."
“De truong
HOTEN kieu text toi da 25 ki tu chon thuoc tinh nao sau day:”
TK(3, 1) =” filed size”
“De truong HOTEN kieu text toi da 25 ki tu tai fileld size ta nhap:”
TK(4, 1) =” field size 25”
“De dinh dang cho truong HOTEN kieu text luon in Hoa va mau do tai FORMAT ta nhap:”
TK(3, 1) =” >[red]”
TK(3, 1) =” >[red]”
”Ki tu nao sau day dung lam khuon dang xac dinh vi tri danh cho cac ki tu
so bat buoc phaI nhap khi thiet ke bang”
TK(4,1)=”0”
”Ki tu nao sau day dung lam khuon dang xac dinh vi tri danh cho cac ki tu
so khong bat buoc phaI nhap khi thiet ke
bang”
TK(5,1)=”9”
Ki tu nao sau day dung lam khuon dang xac dinh vi tri danh cho cac ki tu
ca chu va so bat buoc phaI nhap khi
thiet ke bang”
TK(6,1)=”a”
Ki tu nao sau day dung lam khuon dang xac dinh vi tri danh cho cac ki tu
chu caI bat buoc phaI nhap khi thiet ke
bang”
TK(7,1)=”L”
Ki tu nao sau day dung lam khuon dang xac dinh vi tri danh cho cac ki tu
bat ki khong bat buoc phaI nhap khi
thiet ke bang”
TK(8,1)=”L”
Gia su co Bang HOADON(hoa don) luu tru cac hoa don cua khach hang gom cac
truong(MHD(ma hoa don),LHD(loai hoa don),MKH(ma khach hang),NLHD(ngay lap hoa
don)). Hay cho biet truong nao se lam khoa chinh:”
TK(9,1)=”MHD”
Gia su truong LHD(loai hoa don ) cua bang HOADON(hoa
don) gom cac thuoc tinh nhu sau:” & vbCrLf & _
“1. Fieldsize:1” & vbCrLf & _
“2. Default value: X” & vbCrLf & _
“3. Validation rule:
In(“N”,”X”,”C”,”T”) “&
vbCrLf & _
“4. Required: Yes” & vbCrLf & _
“5. Format:>[red]” & vbCrLf & _
“Hay cho biet y nghia cua thuoc
tinh 2”
TK(10,1)=” Gia tri ngam dinh cua truong la X”
Gia su truong LHD(loai hoa don ) cua bang HOADON(hoa
don) gom cac thuoc tinh nhu sau:” & vbCrLf & _
“1. Fieldsize:1” & vbCrLf & _
“2. Default value: X” & vbCrLf & _
“3. Validation rule:
In(“N”,”X”,”C”,”T”) “&
vbCrLf & _
“4. Required: Yes” & vbCrLf & _
“5. Format:>[red]” & vbCrLf & _
“Hay cho biet y nghia cua thuoc
tinh 1”
TK(11,1)=”Cho biet do daI cua truong toi da la 1 ki
tu”
Gia su truong LHD(loai hoa don ) cua bang
HOADON(hoa don) gom cac thuoc tinh nhu sau:” & vbCrLf & _
“1. Fieldsize:1” & vbCrLf & _
“2. Default value: X” & vbCrLf & _
“3. Validation rule:
In(“N”,”X”,”C”,”T”) “&
vbCrLf & _
“4. Required: Yes” & vbCrLf & _
“5. Format:>[red]” & vbCrLf & _
“Hay cho biet y nghia cua thuoc
tinh 3”
TK(12,1)=” Truong co the nhap mot trong cac gia tri: N ; X; C; hoac T”
Gia su truong LHD(loai hoa don ) cua bang HOADON(hoa
don) gom cac thuoc tinh nhu sau:” & vbCrLf & _
“1. Fieldsize:1” & vbCrLf & _
“2. Default value: X” & vbCrLf & _
“3. Validation rule:
In(“N”,”X”,”C”,”T”) “&
vbCrLf & _
“4. Required: Yes” & vbCrLf & _
“5. Format:>[red]” & vbCrLf & _
“Hay cho biet y nghia cua thuoc
tinh 4”
TK(13,1)=” Truong bat buoc phaI nhap”
Gia su truong LHD(loai hoa don ) cua bang HOADON(hoa
don) gom cac thuoc tinh nhu sau:” & vbCrLf & _
“1. Fieldsize:1” & vbCrLf & _
“2. Default value: X” & vbCrLf & _
“3. Validation rule:
In(“N”,”X”,”C”,”T”) “&
vbCrLf & _
“4. Required: Yes” & vbCrLf & _
“5. Format:>[red]” & vbCrLf & _
“Hay cho biet y nghia cua cac
thuoc tinh ”
TK(14,1)=” Tat ca deu dung”
Gia su truong LHD(loai hoa don ) cua bang HOADON(hoa
don) gom cac thuoc tinh nhu sau:” & vbCrLf & _
“1. Fieldsize:1” & vbCrLf & _
“2. Default value: X” & vbCrLf & _
“3. Validation rule:
In(“N”,”X”,”C”,”T”) “&
vbCrLf & _
“4. Required: Yes” & vbCrLf & _
“5. Format:>[red]” & vbCrLf & _
“Hay cho biet y nghia cua thuoc
tinh 5”
TK(15,1)=” Gia tri cua truong luon in hoa va mau do”
De tao cau truc bang bang cach tu thiet ke ta chon Table va New sau do chon tiep:”
TK(16,1)=”
Design View “
De tao cau truc bang tu bang co san
ta chon Table va New sau do chon tiep:”
TK(17,1)=”
Table Wizard “
Cho CSDL gom cac bang sau (hinh anh) :moi quan he bang DIEMTHI va HOSOSINHVIEN la moi quan he “
TK(19,1)=”N-1”
Cho CSDL gom cac bang sau (hinh anh) :moi quan he bang DIEMTHI
va DMMONHOC la moi quan he “
TK(20,1)=”N-1”
Cho CSDL
gom cac bang sau (hinh anh) :moi quan
he bang DMLOP va DMKHOA la moi quan he “
TK(21,1)=”N-1”
Cho CSDL
gom cac bang sau (hinh anh) :moi quan he
bang HOSOSINHVIEN va DMLOP la moi quan he
“
TK(22,1)=”N-1”
Khi thiet ke co so du lieu de truong
diemtoan , kieu number voi dieu
kien >=0 va <=10, Su dung thuoc
tinh nao sau day”
TK(23,1)=”Trong muc validation rule nhap:>=0 and <=10 “
Khi thiet ke co so du lieu de truong HOTEN kieu text bat buoc phaI nhap du
lieu, su dung thuoc tinh nao sau day:”
TK(24,1)=”Trong muc required chon yes”
Khi thiet ke csdl de truong HOTEN kieu text
toi da 20 ki tu, su dung thuoc tinh nao sau day”
TK(25,1)=”Trong muc fieldsize go 20”
Khi thiet ke csdl de truong DONGIA co kieu
curency va dinh dang don vi la vnd, su dung thuoc tinh nao sau day:”
TK(26,1)=”Trong muc format go: 0”vnd””
Khi thiet ke csdl de truong MSV co kieu
text luon in hoa va mau do, su dung
thuoc tinh nao sau day”
TK(27,1)=” Trong muc Format nhap: >[red]
Quy tac xay dung co so du lieu”
TK(28,1)=”Tat ca deu dung”
Khi muon loc csdl, Phuong phap loc nao se dat loc
tai vi tri con tro dang dung”
TK(29,1)=”Record/filter/filter by selection”
Khi
muon loc csdl, Phuong phap loc nao se cho ket qua loc phu dinh tai vi tri con tro dang dung”
TK(30,1)=”Reord/filter/filter excluding selection”
Khi
muon loc csdl, Phuong phap loc nao
se dat loc theo giao dien cho truoc”
TK(31,1)=”Record/filter/filter by form”
Khi
muon loc csdl, Phuong phap loc nao
se dat loc theo dIuu kien nhat dinh”
TK(32,1)=”Record/filter/advanced filter/sort”
Muon dua ra tat ca sinh vien co ten
bat dau la H va chi co 3 ki tu ta thuc
hien”
TK(36,1)=”Tai
criteria cua cot ten nhap : Like “H??””
Muon dua ra tat ca
sinh vien o hai khoa co ten KETOAN va
CNTT ta thuc hien”
TK(37,1)=”Tai
criteria cua cot TENKHOA ta go :”KETOAN” or “CNTT” “
Neu go ma sinh
vien tu ban phim thi xuat hien noi dung cua sinh vien do ta thuc hien”
TK(38,1)=”Tai criteria cua cot
MSV nhap :[ Moi ban nhap ma sinh
vien] “
Muon dua ra sinh
vien co ten la Hung o lop KT15-01 ta thuc hien
TK(39,1)=” Tai
criteria cua cot TEN nhap “Hung” cot
TENLOP nhap “KT15-01 “”
Muon them vao
truong CHUTHICH la “No lan 1” voi nhung
sinh vien co dIem lan 1 <5 ta thuc
hien :”
T(28,1):=”Tai cot
Fileld nhap: CHUTHICH:iif([dieml1]<5,”no lan 1”, ””)”
Muon dua ra danh
sach sinh vien co dIem lan 1 duoi 5 va so don vi hoc trinh it hon 6 ta thuc hien”
TK(41,1)=”
Tai Field nhap:DVHT ; Tai criteria cua
cot DIEML1 go <5 ,cua cot DVHT go <6”
Trong cac bang cot TENMON co
mot so ten mon hoc nguoi lap trinh chua nhap du lieu (de trong) , tu
bang tren hay dua ra du lieu voi tat ca cac ten mon chua co gia tri “
TK(42,1)=”tai
criteria cua cot TENMON nhap: isnull([TENMON])=true”
Dua ra danh
sach sinh vien DIEML2 chua co gia tri(de trong) va DIEML1 nho hon 5
TK(43,1)=”Tai
criteria cua cot DIEML1 go <5 ; cot DIEML2 go isnull([DIEML2])=true
Trong bang cot LUONGCB co mot so
chua duoc nhap du lieu (de trong). Hay
dIen vao cac gia tri trong ket qua la
2000000 ta thuc hien:”
TK(44,1)=” Tai
update to cot LUONGCB ta go
:iif(isnull([LUONGCB]),2000000,[LUONGCB])”
Trong bang tat ca nhung nguoi co ten la “Hao” bi nham
lan thanh “Ha” mot ban da cap nhat lai nhu sau (hay chon phuong an dung):”
TK(45,1)=”Tai
update to cua cot TEN go:
iif([TEN]=”Ha”,”Hao”,[TEN] )”
Trong bang khu vuc
duoc quy dinh la 1 , 2 hay 3 tuy nhien
toan bo khu vuc =1 bi go nham la 0. Mot
ban da cap nhat lai nhu sau(hay chon phuong an dung):”
TK(46,1)=”Tai
update to cua cot KV go :iif([KHUVUC]=0,1,[KHUVUC])”
Trong bang tat ca
nhung nguoi co Ten la “Chung” gioi tinh la nu
bi go nham la “Trung”. Mot ban da
cap nhat lai nhu sau(hay chon phuong an dung):”
TK(47,1)=”Tai
update to cua TEN go: iif([TEN]=”Trung”,”Chung”,[TEN])”; Tai criteria cua GT go
“nu””
Ten truong(fields) trong access duoc quy dinh nhu the
nao?”
TK(48,1)=”Khong bat dau la dau cach, khong chua ki tu
:(.),(!),([),(]),toi da 64 ki tu”
Kieu truong (data type) dung de lam gi?”
TK(49,1)=”Quy dinh du lieu can dua vao cho phu hop
voi nguoi su dung”
Khi thiet ke co so du lieu de truong
diemtoan , kieu number voi dieu
kien >=0 va <=10, Su dung thuoc
tinh nao sau day”
TK(50,1)=”Trong muc validation rule nhap:>=0 and <=10 “
Khi thiet ke co so du lieu de truong HOTEN kieu text bat buoc phaI nhap du
lieu, su dung thuoc tinh nao sau day:”
TK(51,1)=”Trong muc required chon yes”
Khi thiet ke csdl de truong HOTEN kieu text
toi da 20 ki tu, su dung thuoc tinh nao sau day”
TK(52,1)=”Trong muc fieldsize go 20”
Khi thiet ke csdl de truong DONGIA co kieu curency va
dinh dang don vi la vnd, su dung thuoc tinh nao sau day:”
TK(53,1)=”Trong muc format go: 0”vnd””
Khi thiet ke csdl de truong MSV co kieu
text luon in hoa va mau do, su dung
thuoc tinh nao sau day”
TK(54,1)=” Trong muc Format nhap: >[red]
Quy tac xay dung co so du lieu”
TK(55,1)=”Tat ca deu dung”
Khi muon loc csdl, Phuong phap loc nao se dat loc
tai vi tri con tro dang dung”
TK(56,1)=”Record/filter/filter by selection”
Khi
muon loc csdl, Phuong phap loc nao se cho ket qua loc phu dinh tai vi tri con tro dang dung”
TK(57,1)=”Reord/filter/filter excluding selection”
Khi
muon loc csdl, Phuong phap loc nao
se dat loc theo giao dien cho truoc”
TK(58,1)=”Record/filter/filter by form”
Khi
muon loc csdl, Phuong phap loc nao
se dat loc theo dIuu kien nhat dinh”
TK(59,1)=”Record/filter/advanced filter/sort”
Ten truong trong tieu chuan truy van duoc
dat trong hai dau”
TK(60,1)=”[ ]”
Hang ngay thang trong tieu chuan truy van duoc dat
trong hai dau”
TK(61,1)=”# #”
Hang van ban trong tieu chuan truy van duoc dat trong
hai dau”
TK(62,1)=”” “”
Neu Trong muc Field
nhap:ns:year([ngaysinh]); Muc criteria nhap:beetwen 1980 and 1984 Thi ket qua truy van la”
TK(63,1)=” Dua ra danh sach bao gom cac truong chi
dinh va them truong Ns bao gom cac sinh
vien sinh tu nam 1980 den 1984”
Neu Trong muc Field
nhap:ns:year([ngaysinh]); Muc criteria nhap:beetwen 1980 and 1984 Thi ket qua truy van la”
TK(64,1)=” Dua ra danh sach bao gom cac truong chi
dinh va them truong Ns bao gom cac sinh
vien sinh tu nam 1980 den 1984”
Nuu trong muc criteria cua truong TENLOP
nhap: IN(“TH1501”,”QL1506”,”KT1510”) thi
ket qua truy van se la:”
TK(65,1)=” Dua ra danh sach bao gom cac
truong chi dinh voi cac lop TH1501, QL1506, KT1510”
Neu trong muc criteria cua truong TEN nhap LIKE “H??n” Thi ket qua truy van se la:”
TK(66,1)=” Dua ra danh sach cac truong chi dinh voi nhung nguoi
co ten bat dau la ki tu H sau do la hai ki tu
bat ki va cuoi cung la ki tu n”
Neu trong muc criteria cua truong TEN nhap LIKE “H?NG” Thi ket qua truy van se la:”
TK(66,1)=” Dua ra danh sach cac truong chi dinh voi nhung nguoi
co ten bat dau la ki tu H sau do la ki
tu bat ki va cuoi cung la ki tu NG”
Neu muon dua ra thong bao “ ban
nhap ten “ thi dua ra danh sach cac
truong chi dinh voi ten duoc nhap tu ban
phim ta thuc hien”
TK(68,1)=”Trong muc criteria cua truong TEN nhap :[ ban nhap ten]”
Neu muon dua ra thong bao “ ban nhap ma
sinh vien “ thi dua ra danh sach cac
truong chi dinh voi ma sinh vien duoc
nhap tu ban phim ta thuc hien”
TK(69,1)=”Trong muc criteria cua truong MSV nhap :[ ban nhap ma sinh vien]”
Neu muc criteria cua truong TEN nhap LIKE
(“H*”) va muc criteria cua truong TENLOP nhap “KT1501” thi ket qua truy van se
la:”
TK(70,1)=”Dua ra danh sach voi
nhung nguoi co ten bat dau la H va lop KT1501”
Neu muc criteria cua truong HODEM
nhap:Left([HODEM],4)=”Tran”; Muc criteria cua
truong TEN nhap “HOA” thi ket qua
truy van se la:”
TK(71,1)=”Dua ra danh sach cac truong chi
dinh voi nhung nguoi co ten la HOA va Ho la Tran”
Neu muc criteria cua truong DIEML1 nhap
:>=5; muc or cua truong DIEML1 nhap:>=5 thi ket qua truy van la:”
TK(72,1)=”Dua ra danh sach sinh vien co
dIem lan1 hoac dIem lan 2 >=5”
Muon dua ra danh sach sinh vien
co dIem lan 1 <=5 voi mon hoc tu 3
trinh tro len ta thuc hien:”
TK(73,1)=”Tai Field nhap dvht tai
criteria cua truong dvht nhap >=3, Tai criteria cua truong DIEML1 nhap
<=5”
Tai update to cua MNV nhap:
iif(left([mnv],1)=”*”,right([mnv],len([mnv])-1)+”CV”,[mvn]) thi ket qua truy
van se la:”
TK(74,1)=”Tat ca nhan vien co ma ket thuc
la * duoc thay the bang CV”
Tat ca nhung nguoi co ten la Lanh duoc doi
thanh Lan, ta thuc hien:”
TK(75,1)=”Tai update to cua TEN
nhap: iif ([TEN]=”Lanh”,”Lan”,[TEN])”
Muon tang LuongCB len 10% ta thuc hien:”
TK(76,1)=”Tai update to cua
Luongcb nhap: [luongcb]*0.1+[luongcb]
Tang
LUONGCB len 10% cho nhung nhan vien co he so 1.2 ta thuc hien”
TK(77,1)=”Tai update to cua Luongcb nhap:iif([heso]=1.2,[luongcb]*1.1,[luongcb])”
Thay the tat ca nhung nguoi co he so
luong 1.5 thanh 1.75 ta thuc hien:”
TK(78,1)=” Tai update to cua HESO nhap:
iif([heso]=1.5,1.75,[heso])”
”De lua chon
cac thuoc tinh cho Form lien quan den dinh dang ta chon Tap nao trong tap sau
day:”
TK(79,1)=”Format”
De lua chon
cac thuoc tinh cho Form lien quan den du lieu ta chon Tap nao trong tap sau
day:”
TK(80,1)=”Data”
”De lua
chon cac thuoc tinh cho Form lien quan den su kien ta chon Tap nao trong tap
sau day:”
TK(81,1)=” Event”
Muon viet doan ma dap ung cho su kien Click tren form
chon Tab nao sau day :”
TK(82,1)=” Event”
Muon lua chon
chuc nang nhu thay doi hinh dang,
mau sac cua form chon Tap nao trong tap
sau day:”
TK(83,1)=”Format”
Muon gan menu bar vao form ta chon tap nao trong tap
sau day:”
TK(84,1)=”Other”
Muon tao cho (doi tuong 1) mot khung vien ta chon
thuoc tinh nao sau day:
TK(85,1)=”Border style”
Muon tao cho (doi tuong 1) mot mau khac
ta chon thuoc tinh nao sau day:
TK(86,1)=”Border style”
De Hien thi chuoi ki tu len Form ta dung dIeu
khien nao sau day:
TK(87,1)=”Label”
Muon thay doi noi dung cua doi tuong 1 thanh
“Thong Tin Sinh Vien” thi chon thuoc
tinh nao sau day:
TK(88,1)=”Capition”
Chuc nang cua nut so 2:”
HK(89,1)=”Cho phep
nhan thong tin tu nguoi dung nhap vao, hoac hien thi thong tin khi thuc
thi ung dung”
Chuc nang cua nut so 8:”
TK(90,1)=” Dung de hien thi danh sach cac de muc dang cot ma nguoi dung co the lua chon”
Chuc nang cua nut so 7”
TK(91,1)=”Cho phep nhap gia tri va hien thi duoi dang danh sach cac de muc do
xuong de nguoi dung lua chon”
Bieu mau cho phep
nhap hoac hien thi duoi dang cot co dang”
TK(92,1)=”bieu mau dang columar”
Bieu mau cho phep
nhap hoac hien thi duoi dang Bang ”
TK(93,1)=”bieu
mau dang tabular”
Bieu mau cho phep
nhap hoac hien thi duoi dang Bang tinh ”
TK(94,1)=”bieu mau dang datasheet”
Bieu mau cho phep
nhap hoac hien thi duoi dang sap chu ”
TK(95,1)=”bieu mau dang justified”
Report co cac thanh phan co ban sau:”
TK(96,1)=” Report
Header, Report Footer, Detail, Page Header, Page Footer va co the co cac thanh
phan Group”
Ham Page() Trong Report dung de lam gi?”
TK(97,1)=”Dien so thu tu trang trong mot ban bao cao”
Ham Page() dat trong thanh phan nao cua Report?”
TK(98,1)=”Page Header hoac page footer”
Muon tao nhom trong Report ta lam the nao?”
TK(99,1)=”View\
Sorting and Grouping”
Du lieu dua
vao report duoc lay tu dau”
TK(100,1)=”Table hoac Query”
Cac che do quan sat mot Report”
TK(102,1)=”Tat ca deu dung”
Muon dinh dang mau nen cho Report ta chon thuoc tinh
nao sau day:”
TK(103,1)=”Back color”
Muon biet tong
so trang cua bao cao ta su dung ham nao ?”
TK(104,1)=”pages()”
Muon dinh dang mau nen cho Report ta chon thuoc tinh
nao sau day:”
TK(105,1)=”Back color”
Muon biet tong
so trang cua bao cao ta su dung ham nao ?”
TK(106,1)=”pages()”
”De tieu de tren duoc lap di lap lai cho moi trang
bao cao, o thuoc tinh Page Header ta chon:”
TK(107,1)=”All pages”
Khi thiet ke Form co su dung cong cu
toolbox nut so 1 dung de:”
TK(108,1)=”Hien thi chuoi ki tu
len Form”
Khi thiet ke Form co su dung cong cu
toolbox nut so 3 dung de:”
TK(109,1)=”Tao khung chua cac dieu khien
khac ”
Khi thiet ke Form co su dung cong cu
toolbox nut so 2 dung de:”
TK(110,1)=”Hien thong tin cua du
lieu”
Khi thiet ke Form co su dung cong cu
toolbox nut so 9 dung de:”
TK(111,1)=”Hien thong tin cua du
lieu”
Macro co ten la gi se tu dong
khoi dong khi thuc hien chuong trinh:”
TK(112,1)=”Autoexec”
Macro la gi?”
TK(113,1)=”Day cac cau lenh dung de tu dong
hoa cac thao tac”
Hanh dong nao cua macro dung de dong mot
cua so dang mo:”
TK(114,1)=”Close”
Tham so nao cua Macro cho biet ten cua hanh
dong:”
TK(115,1)=” Name”
Che do quan sat mot hanh dong openform nao
do trong macro gom:”
TK(115,1)=”Tat ca deu dung””
Tham so nao cua Macro cho biet che do quan
sat cua hanh dong :”
TK(117,1)=”View”
Khi muon mo mot form nao do bang macro voi
thuoc tinh chi doc chon tham so nao sau day:”
TK(118,1)=”View”
Sub Command_Click()”
“Dim DTB As DAO.Database”
“Dim REC As DAO.Recordset”
“Set DTB = CurrentDb()”
“Set REC = DTB.Openrecordset(‘DANHSACH’)”
“Rec. Delete”
“REC(‘SBD’)=Text1”
“REC.Update”
“End Sub”
TK(119,1)=”Xoa ban ghi hien thoi”
Sub Command_Click()”
“Dim DTB As DAO.Database”
“Dim REC As DAO.Recordset”
“Set DTB = CurrentDb()”
“Set REC = DTB.Openrecordset(‘DANHSACH’)”
“msgbox rec.name”
TK(120,1)=”DANHSACH”
Cho CSDL gom
DS(sbd,ht,ns,gt,dc) , DIEM(SBD,dt,dl,dh,td) co sbd lam khoa chinh. “&
vbCrLf & _
“Su dung cau lenh
SQL dua ra danh sach bao gom sbd,ht,ns,gt,dc,dt,dl,dh”
TK(121,1)=” SELECT ds.sbd, ds.ht, ds.ns, ds.gt, diem.dt, diem.dl, diem.dh FROM ds INNER JOIN diem ON ds.sbd = diem.sbd”
TK(121,1)=” SELECT ds.sbd, ds.ht, ds.ns, ds.gt, diem.dt, diem.dl, diem.dh FROM ds INNER JOIN diem ON ds.sbd = diem.sbd”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi)) “&
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( dIem toan,dl( diemly),dh( diemhoa),td tong diem)) co sbd lam khoa
chinh.” & vbCrLf & _
Su dung cau lenh
SQL dua ra danh sach bao gom
sbd,ht,ns,gt,dc,dt,dl,dh voi dieu kien dt>5”
TK(122,1)=” SELECT
ds.sbd, ds.ht, ds.ns, ds.gt, diem.dt, diem.dl, diem.dh FROM ds INNER JOIN diem
ON ds.sbd = diem.sbd WHERE (([diem.dt])>5))”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi))” &
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong dIum)) co sbd lam khoa
chinh.” & vbCrLf & _
“ Su dung cau lenh
SQL dua ra danh sach bao gom sbd,ht,
dt,dl,dh voi dieu kien ht=”nguyen van anh””
TK(123,1)=” SELECT
ds.sbd, ds.ht, diem.dt, diem.dl, diem.dh
FROM ds INNER JOIN diem ON ds.sbd = diem.sbd
WHERE (([ds.ht]="Nguyen van a"))”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi)). &
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong dIum)) co sbd lam khoa
chinh.” & vbCrLf & _
Su dung cau lenh SQL cap nhat td=dt+dl+dh”
TK(124,1)=” UPDATE diem SET diem.td = [dt]+[dl]+[dh];”
Cho CSDL gom DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi
tinh),dc(dia chi)) „& vbCrLf
& _
„ DIEM(SBD(so bao danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong
dIum)) co sbd lam khoa chinh. „&
vbCrLf & _
„Su dung cau lenh SQL dua ra danh sach sbd,ht,ns,td voi dIuu kien tong
diem>15
TK(125,1)=” SELECT ds.sbd, ds.ht, ds.ns, ds.gt, diem.td FROM ds INNER JOIN
diem ON ds.sbd = diem.sbd WHERE (((diem.td)>15));”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi)) “&
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong dIum)) co sbd lam khoa
chinh.” & vbCrLf & _
Su dung cau lenh SQL de tao ra bang
moi co ten BANGNEW voi thong tin tu 2
bang”
TK(126,1)=” SELECT
diem.sbd, ds.ht, ds.ns, ds.gt, diem.dt, diem.dl, diem.dh, diem.td INTO BANGNEW
FROM ds INNER JOIN diem ON ds.sbd = diem.sbd;”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi))” & vbCrLf & _
“DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong dIum)) co sbd lam khoa
chinh.” & vbCrLf & _
“ Su dung cau lenh
SQL dua ra ht, td cua thi sinh co ho ten
bat dau la H”
TK(127,1)=” SELECT
ds.ht, diem.td FROM ds INNER JOIN diem
ON ds.sbd = diem.sbd WHERE (((ds.ht) Like "*H"));”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi)) “&
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong dIum)) co sbd lam khoa
chinh.” & vbCrLf & _
“ Su dung cau lenh
SQL xoa thi sinh co ho ten bat dau la H”
TK(128,1)=” DELETE
ds.ht FROM ds INNER JOIN diem ON ds.sbd
= diem.sbd WHERE (((ds.ht) Like "*H"));”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi)) “&
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong diem)) co sbd lam khoa
chinh.” & vbCrLf & _
“ Su dung cau lenh
SQL thong ke co bao nhieu thi sinh co td>=15”
TK(129,1)= “SELECT
Count(diem.td) AS soluong FROM ds INNER
JOIN diem ON ds.sbd = diem.sbd HAVING (((Count(diem.td))>=15));”
Cho CSDL gom
DS(sbd(so bao danh),ht( ho ten),ns(ngay sinh),gt(gioi tinh),dc(dia chi)) &
vbCrLf & _
“ DIEM(SBD(so bao
danh),dt( diemtoan,dl( diemly),dh( diemhoa),td tong dIum)) co sbd lam khoa
chinh. & vbCrLf & _
“ Su dung cau lenh
SQL dua ra nhung nguoi sinh vao thang 2”
TK(130,1)=” SELECT
ds.sbd, ds.ht, ds.ns, ds.gt, diem.dt, diem.dl, diem.dh FROM ds INNER JOIN diem ON ds.sbd = diem.sbd
WHERE (((Month([ns]))=2));”
Hay cho biet doan
ma lenh sau giai quyet bai toan gi ?|”&
vbCrLf & _
“ Sub Command_Click()”& vbCrLf & _
“Dim DTB As DAO.Database”& vbCrLf & _
“Dim REC As DAO.Recordset”& vbCrLf & _
“Set DTB = CurrentDb()”& vbCrLf & _
“Set REC = DTB.Openrecordset(‘DANHSACH’)”& vbCrLf & _
“Rec. AddNew”& vbCrLf & _
“REC(‘SBD’)=Text1”& vbCrLf & _
”REC.Update& vbCrLf & _
“End Sub”
TK(131,1)=”Them mot ban ghi moi”
Hay cho biet doan
ma lenh sau giai quyet bai toan gi ?|”&
vbCrLf & _
“ Sub Command_Click()”& vbCrLf & _
“Dim DTB As DAO.Database”& vbCrLf & _
“Dim REC As DAO.Recordset”& vbCrLf & _
“Set DTB = CurrentDb()”& vbCrLf & _
“Set REC = DTB.Openrecordset(‘DANHSACH’)”& vbCrLf & _
“Rec. delete”& vbCrLf & _
“REC(‘SBD’)=Text1”& vbCrLf & _
“End Sub”
Tk(132,1)=”Xoa mot ban ghi”
Hay cho biet doan
ma lenh sau giai quyet bai toan gi ?|”&
vbCrLf & _
“ Sub Command_Click()”& vbCrLf & _
“Dim DTB As DAO.Database”& vbCrLf & _
“Dim REC As DAO.Recordset”& vbCrLf & _
“Set DTB = CurrentDb()”& vbCrLf & _
“Set REC = DTB.Openrecordset(‘DANHSACH’)”& vbCrLf & _
“Rec. Edit ”& vbCrLf & _
“REC(‘SBD’)=Text1”& vbCrLf & _
“REC.update”& vbCrLf & _
“End Sub”
TK(133,1)=”Sua mot ban ghi “
Khi lap trinh co so du lieu trong access, cac doi tuong nào sau dung
de thao tac voi co so du lieu:”
TK(134,1)=”Database”
Khi lap trinh
co so du lieu trong access cac doi tuong nào sau day dung de tao, xoa, sua cau truc bang :”
TK(135,1)=”Tabledef”
Khi lap trinh
co so du lieu trong access,
cac doi tuong nào sau day dung
de tao, xoa, sua cau truc cua truy van”
TK(136,1)=”Querydef”
Khi lap trinh
co so du lieu trong access , cac
doi tuong nào sau day dung de xu
ly cac ban ghi cua co so du lieu”
TK(137,1)=”RecordSet”
Khi lap trinh csdl trong access, de chuyen con tro
ve ban ghi dau tien ta dung phuong thuc nào sau day”
TK(138,1)=” move first hoac move 0”
Khi lap trinh csdl trong access, muon chuyen con tro
ve ban ghi thu 3 ta dung phuong thuc:”
TK(139,1)=”Move 3”
Ket qua
cua chuong trinh sau là go?|”& vbCrLf & _
“ Sub Command_Click()”& vbCrLf & _
“Dim DTB As DAO.Database”& vbCrLf & _
“Dim REC As DAO.Recordset”& vbCrLf & _
“Set DTB = CurrentDb()”& vbCrLf & _
“Set REC = DTB.Openrecordset(‘DANHSACH’)”& vbCrLf & _
“msgbox Rec.recortcount”
TK(140,1)=”So ban ghi cua du lieu”
Khi lap trinh csdl
de tim ban ghi dau tien thoa man dieu kien nao do ta dung phuong thuc:”
TK(141,1)=”
FindFirst “
Khi lap trinh csdl
de tim ban ghi sau cung thoa man dieu kien nao do ta dung phuong thuc:”
TK(142,1)=”
Findlast“
Khi lap trinh csdl
de tim ban ghi tiep theo thoa man dieu kien nao do ta dung phuong thuc:”
TK(143,1)=”
Findnext“
Khi lap trinh csdl
de tim ban ghi truoc do thoa man dieu kien nao ta dung phuong thuc:”
TK(144,1)=”
Findnext“
Khi lap trinh
csdl de ra lenh in bao cao tu trang 1 den trang 5 ta dung lenh nao sau
day”
TK(145,1)=”
DoCmd.PrintOut acPages, 1, 5”
Khi lap trinh
csdl de ra lenh in toan bo bao cao dung
lenh ”
TK(146,1)=” DoCmd.PrintOut AcPrintAll ”
Khi lap trinh
csdl de mo bao cao “DanhMucVatTu” o che
do thiet ke ta dung lenh:”
TK(147,1)=” DoCmd.OpenReport
“DanhMucVatTu”, AcViewDesign ”
Khi lap trinh
csdl de mo bao cao “DanhMucVatTu” o che
do xem truoc khi in ta dung lenh:”
TK(148,1)=” DoCmd.OpenReport
“DanhMucVatTu”, acView Preview “
Khi lap trinh csdl de mo form
“Khachhang” kieu cua so la hop
thoai:”
TK(149,1)=” DoCmd.OpenForm “KhachHang”, , , , , acDialog”
Khi lap trinh csdl de mo form “Khachhang”
kieu cua so la bieu tuong :”
TK(150,1)=” DoCmd.OpenForm “KhachHang”, , , , , acIcon”
De dong mot doi tuong( Form, report..) dang mo ta
dung lenh:”
TK(151,1)=”Docmd.close”
Phong to cua so dang mo ta dung lenh:”
TK(152,1)=” DoCmd. Maximize”
Thu nho
cua so dang mo ta dung lenh:”
TK(153,1)=” DoCmd. Minimize”
De thoat khoi Access ta dung lenh:”
TK(154,1)=”Docmd.Quit”
Hay cho biet y nghia cua chuong trinh sau”& vbCrLf & _
“Private Sub TIM_Click()”&
vbCrLf & _
“ Dim db As DAO.Database”& vbCrLf & _
“ Dim bg As DAO.Recordset”& vbCrLf & _
“ Dim m As String, dk As String”& vbCrLf & _
“ Set db = CurrentDb()”& vbCrLf & _
“ Set bg =
db.OpenRecordset("dsnv", DB_OPEN_DYNASET)”& vbCrLf & _
“m = InputBox("Nhap ma nhan vien")”& vbCrLf & _
“dk = "[manv] ='" & m & "'"”& vbCrLf & _
“bg.FindFirst dk”& vbCrLf & _
“If bg.NoMatch = False Then”& vbCrLf & _
“msgbox “co thay&
vbCrLf & _
Else& vbCrLf & _
“msgbox “khongthay”&
vbCrLf & _
“Endif”& vbCrLf
& _
“End sub”
TK(155,1)=’Tim kiem ban ghi dau tien thoa man dieu kien neu tim thay thi
thong bao la co nguoc lai thi thong bao
la khong”
Hay cho biet doan chuong trinh sau
ket qua bang bao nhieu khi nhap thang=5”& vbCrLf & _
“…”& vbCrLf & _
“thang=inputbox(“nhap thang”)& vbCrLf & _
“If thang >=9
Then”& vbCrLf & _
“Msgbox “Cuoi nam
“”& vbCrLf & _
“Else”& vbCrLf
& _
“If thang >=5
Then”& vbCrLf & _
“Msgbox “Giua nam
“”& vbCrLf & _
“Else”& vbCrLf & _
“Msgbox “Dau nam
“”& vbCrLf & _
“…”
TK(156,1)=”Giua nam”
Hay cho biet doan chuong trinh sau
ket qua bang bao nhieu khi nhap thang=2”& vbCrLf & _
“…”& vbCrLf & _
“thang=inputbox(“nhap thang”)& vbCrLf & _
“If thang >=9
Then”& vbCrLf & _
“Msgbox “Cuoi nam
“”& vbCrLf & _
“Else”& vbCrLf
& _
“If thang >=5
Then”& vbCrLf & _
“Msgbox “Giua nam
“”& vbCrLf & _
“Else”& vbCrLf
& _
“Msgbox “Dau nam
“”& vbCrLf & _
“…”
TK(157,1)=”Dau nam”
Chuong trinh sau giai quyet bai toan gi”& vbCrLf & _
“Sub bt()”& vbCrLf
& _
“Dim i As
Byte”& vbCrLf & _
“Dim tong As
Integer”& vbCrLf & _
“tong = 0”&
vbCrLf & _
“For i = 3 To 50 Step 3”& vbCrLf
& _
“tong = tong
+I”& vbCrLf & _
“Next”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“end sub”
TK(158,1)=“Tinh
tong cac so tu 1->50 chia het cho 3”
Chuong trinh sau giaI quyet bai toan gi”& vbCrLf & _
“Sub bt()”& vbCrLf
& _
“Dim i As
Byte”& vbCrLf & _
“Dim tong As
Integer”& vbCrLf & _
“tong = 0”&
vbCrLf & _
“For i = 3 To 50 ”& vbCrLf & _
“tong = tong
+I”& vbCrLf & _
“Next”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“end sub”
TK(159,1)=“Tinh
tong cac so tu 1->50 ”
Chuong trinh sau giaI quyet bai toan gi”& vbCrLf & _
“Sub bt()”& vbCrLf
& _
“Dim i As
Byte”& vbCrLf & _
“Dim tong As
Integer”& vbCrLf & _
“tong = 0”&
vbCrLf & _
“For i = 3 To 50 ”& vbCrLf & _
“tong = tong
+I”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“next”& vbCrLf
& _
“end sub”
TK(160,1)=“Liet
ke cac so chia het cho 3 tu 1->50”
Chuong trinh sau giai quyet bai toan gi”& vbCrLf & _
“sub bt1()”& vbCrLf
& _
“Dim i As
Byte”& vbCrLf & _
“Dim tong As
Integer”& vbCrLf & _
“tong = 0”&
vbCrLf & _
“i = 3”&
vbCrLf & _
“While i <= 50”& vbCrLf & _
“tong = tong
+I”& vbCrLf & _
“i = i + 3”&
vbCrLf & _
“Wend”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“end sub”
TK(161,1)=“Tinh
tong cac so tu 1->50 chia het cho 3”
Chuong trinh sau giai quyet bai toan gi”& vbCrLf & _
“sub bt1()”& vbCrLf & _
“Dim i As
Byte”& vbCrLf & _
“Dim tong As
Integer”& vbCrLf & _
“tong = 0”&
vbCrLf & _
“i = 3”&
vbCrLf & _
“While i <= 50”& vbCrLf & _
“tong = tong
+I”& vbCrLf & _
“i = i + 1”&
vbCrLf & _
“Wend”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“end sub”
TK(162,1)=“Tinh
tong cac so tu 1->50 ”
Chuong trinh sau giai quyet bai toan gi”& vbCrLf & _
“Sub bt1()”& vbCrLf
& _
“Dim i As
Byte”& vbCrLf & _
“Dim tong As
Integer”& vbCrLf & _
“tong = 0”&
vbCrLf & _
“i = 3”&
vbCrLf & _
“While i <= 50”& vbCrLf & _
“tong = tong
+I”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“Wend”& vbCrLf & _
“Msgbox tong”&
vbCrLf & _
“End sub”
TK(163,1)=“Liet
ke cac so chia het cho 3 tu 1->50”
Cau lenh sau day thuc hien nhiem vu gi?”& vbCrLf & _
“DoCmd.RunSQL "UPDATE canbo SET luongchinh =
hessoluong*290000"”
TK(164,1)=”Cap nhat truong luongchinh=hessoluong*290000 trong bang canbo”
Cau lenh sau thuc hien nhiem vu gi”& vbCrLf & _
“DoCmd.RunSQL "DELETE *
FROM canbo WHERE
(Year(Date())-Year([ngaysinh])>=60 AND gioitinh=Yes)"”
TK(165,1)=”Xoa bo Can bo nam tuoi (>=60)
ra khoi co so du lieu”
Cau lenh sau thuc hien nhiem vu gi”& vbCrLf & _
“DoCmd.RunSQL "DELETE *
FROM canbo WHERE
(Year(Date())-Year([ngaysinh])>=60 AND gioitinh=No)"”
TK(166,1)=”Xoa bo Can bo nu tuoi >=60 ra
khoi co so du lieu”
Chuong trinh con sau lam nhiem vu gi?”& vbCrLf & _
“Function NguyenTo(so As Integer) As Boolean”& vbCrLf
& _
“Dim uoc As
Integer”& vbCrLf & _
“NguyenTo =
True”& vbCrLf & _
“If so > 2
Then”& vbCrLf & _
“For uoc = 2 To
Int(Sqr(so))”& vbCrLf & _
“If so Mod uoc = 0
Then”& vbCrLf & _
“nguyenTo =
False”& vbCrLf & _
“Exit For”&
vbCrLf & _
“End If”&
vbCrLf & _
“Next”& vbCrLf
& _
“End If”&
vbCrLf & _
“End Function”
TK(167,1)=”Kiem tra mot so co phai la nguyen to hay
khong”
Chuong trinh sau thuc hien nhiem vu
gi”& vbCrLf & _
“Sub tim()”& vbCrLf & _
“Dim a,n As Integer”& vbCrLf & _
“Dim mang(100) As Integer”& vbCrLf & _
“n = InputBox("Nhap vao so phan tu")”& vbCrLf & _
“For a = 0 To n”&
vbCrLf & _
“
mang(a) = InputBox("Nhap vao phan thu thu " & a)”& vbCrLf & _
“Next “& vbCrLf
& _
“End sub”
TK(168,1)=”Nhap
cac gia tri bat ki vao mang gom n phan tu”
Chuong trinh sau thuc hien nhiem vu
gi”& vbCrLf & _
“Sub tim()”& vbCrLf & _
“Dim a,n,m As Integer”& vbCrLf & _
“Dim mang(100) As Integer”& vbCrLf & _
“n = InputBox("Nhap vao so phan tu")”& vbCrLf & _
“For a = 0 To n”&
vbCrLf & _
“ mang(a) = InputBox("Nhap
vao phan thu thu " & a)”&
vbCrLf & _
“Next “& vbCrLf
& _
“M=mang(0)”& vbCrLf & _
“For a = 0 To n”& vbCrLf & _
“If mang(a) > mang(0) Then”& vbCrLf & _
“ m = mang(a)”& vbCrLf & _
“End If”& vbCrLf
& _
“Next “& vbCrLf & _
“ MsgBox "phan tu la : "
& m”&
vbCrLf & _
“End Sub”
TK(169,1)=”Nhap phan tu vao mang va tim gia tri lon
nhat”
Chuong trinh sau thuc hien nhiem vu
gi”& vbCrLf & _
“Sub tim()”& vbCrLf & _
“Dim a,n,m As Integer”& vbCrLf & _
“Dim mang(100) As Integer”& vbCrLf & _
“n = InputBox("Nhap vao so phan tu")”& vbCrLf & _
“For a = 0 To n”&
vbCrLf & _
“ mang(a) = InputBox("Nhap vao phan
thu thu " & a)”&
vbCrLf & _
“Next “& vbCrLf
& _
“M=mang(0)”& vbCrLf & _
“For a = 0 To n”& vbCrLf & _
“If mang(a) < mang(0) Then”& vbCrLf & _
“ m = mang(a)”& vbCrLf & _
“End If”& vbCrLf
& _
“Next “& vbCrLf & _
“ MsgBox "phan tu la : "
& m”&
vbCrLf & _
“End Sub”
TK(170,1)=”Nhap phan tu vao mang va tim gia tri
nho nhat”
La mot he
quan tri co so du lieu.
Tai sao noi Excel hay Word khong
phai la he quan tri CSDL
Vi Excel hay Word khong phai du lieu co
cau truc va khong thoa man het yeu cau
khai thac thong tin.
Bang (Table) la gi?
La thanh phan co so cua Access dung de lu
tru du lieu. Mot bang bao gom cac cot(Trong, Fields), cac dong (Ban ghi,
record).
Khi tao cau truc cua Table doi tuong
DATA TYPE dung de:
Chon kieu
trong.
Khi tao cau truc cua Table cot MSV
co kieu TEXT, tai thuoc tinh Input mask neu dinh dang 00L00000C thi du lieu cua
truong MSV se chap nhan cac gia tri nao.
Chap nhan
tat ca cac gia tri.
Khi tao cau truc cua Table cot MSV co kieu TEXT, tai thuoc tinh Input
mask neu dinh dang 00L00000L thi du lieu cua truong MSV se chap nhan cac gia
tri nao.
07A00001N
Mot sinh vien sau khi khao sat
CSDL quan ly hang hoa va da ra goi y
nhu sau:
Nhan vien : xac dinh ma nhan vien(MNV), ho ten(HT), ngay
sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach
hang(MKH), ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien
thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren , xac dinh xem can xay dung bang Khach
hang gom truong nao?
Ma khach hang, ten cong ty,dia chi
, thanh pho, dien thoai
Mot sinh
vien sau khi khao sat CSDL quan ly hang hoa va da ra goi y nhu sau: Nhan
vien : xac dinh ma nhan vien(MNV),
ho ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach
hang(MKH), ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien
thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren , xac dinh truong nao la khoa chinh
cho bang Nhan vien
Ma nhan vien(MNV)
Mot sinh vien sau khi khao sat
CSDL quan ly hang hoa va da ra goi y nh sau:
Nhan vien : xac dinh ma nhan vien(MNV), ho ten(HT), ngay
sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach
hang(MKH), ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien
thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren , xac dinh truong nao la khoa chinh
cho bang san pham
Ma san
pham(MSP)
Mot sinh vien
sau khi khao sat CSDL quan ly hang hoa va da ra goi y nh sau:
Nhan vien : xac
dinh ma nhan vien(MNV), ho
ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach hang(MKH),
ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren, xac dinh truong nao la khoa chinh
cho bang khach hang
Ma khach hang(MKH)
Mot sinh
vien sau khi khao sat CSDL quan ly hang hoa va da ra goi y nhu sau:
Nhan vien : xac
dinh ma nhan vien(MNV), ho
ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach
hang(MKH), ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien
thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren , xac dinh truong nao la khoa chinh
cho bang Hoa don
Ma hoa
don(MHD)
Mot sinh
vien sau khi khao sat CSDL quan ly hang hoa va da ra goi y nhu sau:
Nhan vien : xac
dinh ma nhan vien(MNV), ho
ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach
hang(MKH), ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien
thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren , xac dinh Bang Khach hangco quan
he voi bang nao
Hoa don
Mot sinh
vien sau khi khao sat CSDL quan ly hang hoa va da ra goi y nhu sau:
Nhan vien : xac
dinh ma nhan vien(MNV), ho
ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
San pham:Ma san
pham (MSP), ten san pham(TSP), don vi tinh(DVT), don gia(DG)
Khach hang: ma khach
hang(MKH), ten cong ty(TCT),dia chi (DCKH) , thanh pho(TP), dien
thoai(DT)
Hoa don: ma hoa
don (MHD),loai hoa don(xuat, nhap...)(LHD), ma khach hang(MKH),ma nhan
vien (MNV), ngay lap hoa don (NLHD), ngay giao hang(NGH).
Chi tiet hoa don:Ma hoa
don(MHD), ma san pham(MSP), so luong(SL), don gia(DG).
Dua vao goi y tren, xac dinh bang Nhan vien co quan he
voi bang hoa don thong qua truong MNV la moi quan he gi?
1-n
Gia su bang Nhan vien : xac
dinh ma nhan vien(MNV), ho
ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH)
Hay xac dinh kieu du lieu thich hop cho truong Gioi
tinh (gt) trong bang Nhan vien.
Yes/no
Gia su bang Nhan vien : xac
dinh ma nhan vien(MNV), ho
ten(HT), ngay sinh(NS), gioi tinh(GT), dia chi(DC), anh(ANH), so dien
thoai(SDT)
Truong ho ten (HT) co kieu (TEXT) de ho ten toi da 30 ki tu ta chon thuoc tinh:
Field
size: 30
Gia su
bang Nhan vien: xac dinh
ma nhan vien(MNV), ho ten(HT), ngay sinh(NS), gioi tinh(GT), dia
chi(DC), anh(ANH), so dien thoai(SDT)
Trong
gioi tinh co kieu yes/no , display conttrol :textbox, thuoc tinh FORMAT go:
;nam[blue];nu[red] khi chon gioi tinh la
yes thi du lieu se la:
Nam va mau
xanh
Muon
mo CSDL bat ki va co the thiet lap duoc bao mat cho CSDL do lua chon:
File/ Open/ tai Tab Open chon exclusive
Tao ra mot bang moi chua du lieu ta su dung truy van
Make table query
De thuc hien xoa mot hay nhieu dong
du lieu cua mot bang ta su dung truy van.
Delete query
Muon
trich rut danh sach sinh vien co nam sinh la 1980 (cot NGAYSINH co dang
DD/MM/YYYY) ta thuc hien:Tai CRITERIA cua cot NGAYSINH
nhap: Year([ngaysinh]) 1980
Muon trich rut danh sach sinh vien co ngay
sinh la 29 (cot NGAYSINH co dang DD/MM/YYYY)
ta thuc hien:
Tai CRITERIA cua cot NGAYSINH nhap:
Day([ngaysinh])=29
Muon
trich rut danh sach sinh vien co thang sinh la 2 (cot NGAYSINH co dang
DD/MM/YYYY) ta thuc hien:
Tai CRITERIA cua cot NGAYSINH nhap:
Month([ngaysinh])=2
Muon trich rut danh sach sinh vien co ten la
HOA hoc o lop TC12.01 ta thuc hien:
Tai CRITERIA cua cot TEN nhap: ''HOA''
va tai CRITERIA cua cot TENLOP nhap: ''TC12.01''
Muon
trich rut danh sach sinh vien co ten la HOA sinh nam 1980 ta thuc hien:
Tai CRITERIA cua cot TEN nhap: ''HOA'' va tai CRITERIA cua cot
NGAYSINH nhap: Year([ngaysinh])=1980
Muon
trich rut danh sach sinh vien co ten la HOA sinh ngay 29 ta thuc hien:
Tai CRITERIA cua cot TEN nhap:
''HOA'' va tai CRITERIA cua cot NGAYSINH nhap: Day([ngaysinh])= 29
Muon
trich rut danh sach sinh vien co ten la HOA sinh thang 2 ta thuc hien:
Tai CRITERIA cua cot TEN nhap:
''HOA'' va tai CRITERIA cua cot NGAYSINH nhap: Month([ngaysinh]= 2
Muon
trich rut danh sach sinh vien co Ho la PHAN va ten HOA ta thuc hien:
Tai CRITERIA cua cot TEN nhap:
''HOA'' va tai CRITERIA cua cot HODEM nhap: Like ''PHAN *”
Muon
trich rut danh sach sinh vien co DIEML1 tu 5 den 10 ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap:
>=5 AND <=10
Muon
trich rut danh sach sinh vien co DIEML1 tu 5 den 10 ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap:
Between 5 And 10
Muon trich rut danh sach sinh vien co
DIEML1 la 5 hoac10 ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap: 5
OR 10
Muon trich rut danh sach sinh vien co
DIEML1 la 5 hoac 7 hoac 10 ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap: 5
OR 10 OR 7
Muon
trich rut danh sach sinh vien co DIEML1
nho hon 5, nhung co diem thi o DIEML2 (Thi lai) ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap:
<5 va tai CRITERIA cua cot DIEML2 nhap: Not IsNull
Muon
trich rut danh sach sinh vien co DIEML1
da dat , nhung co diem thi o DIEML2 (Thi nang diem) ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap:
>=5 va tai CRITERIA cua cot DIEML2 nhap: Not IsNull
Muon
trich rut danh sach sinh vien co DIEML1
tu 5 diem , nhung DIEML2 nho hon
5 ta thuc hien:
Tai CRITERIA cua cot DIEML1 nhap: >=5
va tai CRITERIA cua cot DIEML2 nhap: <5
Muon tinh
TONG bang TOAN + LY + HOA ta thuc hien:
Tai Update To cua cot TONG nhap:
[TOAN]+[LY]+[HOA]
Muon tinh
TONG bang TOAN + LY + HOA + Diem KHUVUC
(KHUVUC=1 cong then 1.5 diem, KHUVUC=2NT cong then 1 diem, KHUVUC=2 cong then
0.5 diem ) ta thuc hien:
Tai Update To cua cot TONG nhap:
[TOAN]+[LY]+[HOA] + IIF(KHUVUC=''1'',1.5,
IIF(KHUVUC=''2NT'',1,IIF(KHUVUC=''2'',0.5,0)))
Muon da
ra thong tin bao gom: MAHD,MAKH,TENNV,NGAYLAPHD,NGAYGNHANG,TENSP,SOLUONG,DONGIA
nhung chi ma khach hang la
FAHASA,CINOTEC ta thuc hien:
Tai criteria cua trong
MAKH go : ‘‘FAHASA’’ or ‘‘CINOTEC’’
Muon da
ra thong tin bao gom: MAma hoa don),MAKH(ma khach
hang),TENNV,NGAYLAPHD,NGAYGNHANG,TENSP,SOLUONG,DONGIA nhng chi Hoa don 10172 va so luong tu 20 tro len:
Tai criteria cua trong: MAHD go :10172 ; Tai criteria
cua trong SOLUONG go:>20
Muon da
ra thong tin bao gom: MAma hoa don), MAKH(ma khach hang),TENNV(ten nhan vien),
NGAYLAPHD, NGAYGNHANG, TENSP, SOLUONG, DONGIA,
nhng chi Hoa don co ma 10172 va
sap xep tang dan theo ngay nhan hang
Tai criteria cua trong
MAHD go :10172 ;Tai sort cua NGAYGNHANG go ascending
Cho biet
MASP co so luong ban nhieu nhat:
Tai field chon MASP va SOLUONG; Tai
Total cua trong MASP chon group by, tai Total cua trong SOLUONG chon Max
Cho biet moi Nhan vien lap bao nhieu hoa don (ma nhan
vien la tham so nhap tu ban phim)
Tai field
chon MAHD va MANV; Tai Total cua trong MAHD chon count, tai Total cua trong MANV chon group
by; Tai criteria cua MANV go [nhap ma nhan vien]
Da ra thong bao ‘’nhap ngay thang
nam ‘’ hien ra MAHD va SOLUONG tuong
ung theo tham so vua nhap
Tai field chon MAHD
,SOLUONG,NGAYLAPHD; Tai criteria cua NGAYLAPHD go [nhap ngay thang nam ]
Thay tat
ca don vi tinh (DONVITINH) la ‘‘chai’’ thanh ‘’lit’’ ta thuc hien:
Tai
update to cua DONVITINH go :iif([DONVITINH]=‘‘chai’’,’‘lit’’,[DONVITINH])
Cap nhat
cho don gia cua bang CHITIETHOADON bang
don gia trong bang san pham
Tai update to DONGIA cua table CHITIETHOADON
go:=SANPHAM![dongia]
Tang toan
bo don gia cua bang CHITIETHOADON len 10% cho san pham co don vi tinh
(DONVITINH) la ‘’thung’’
Tai update to DONGIA cua table CHITIETHOADON
go:=iif([DONVITINH]=’’Thung’’,Chitiethoadon![dongia]*110/100,Chitiethoadon![dongia])
Hay cap
nhat cho truong DIENGIAI la da nhan Hang cho Hoa don co NGAYGNHANG khac
rong nguoc lai cha nhan hang
Tat ca
deu dung
Tai Field Chon DIENGIAI, tai table chon HOA DON, tai update to go:
iif([ngaygnhang]=Null,’’Cha nhan hang’’,’’da nhan Hang’’)
Tang toan
bo don gia cua bang CHITIETHOADON len 10% cho san pham co don vi tinh
(DONVITINH) la ‘’lit’’
Tai update to DONGIA cua table CHITIETHOADON
go:=iif([DONVITINH]=’’lit’’,Chitiethoadon![dongia]*110/100,Chitiethoadon![dongia])
Hay cap
nhat cho trong DIENGIAI la ‘’khach hang
tiem nang’’ cho nhung hoa don co so luong >100
Tai Field Chon DIENGIAI, tai table chon HOA DON, tai update to go:
iif([soluong]>100,’‘khach hang tiem
nang’’,’’ ‘‘)
Dau man
hinh (Form Header)
Cac dieu
khien nam trong man hinh nay se xuat hien o dau man hinh.
Chi tiet (Detail)
The hien cac chi tiet du lieu tren man hinh
Cuoi man
hinh (Form Footer)
Cac dieu khien nam trong thanh phan
nay se xuat hien o cuoi cua man hinh.
Tieu de
(Caption)
La mot
chuoi van ban xuat hien tren thanh tieu de (Title bar) cua cua so man hinh.
De tao duoc doi tuong (1) thi phai su dung cong cu nao tren thanh cong
cu
Label.
De tao duoc
doi tuong (2) thi phai su dung
cong cu nao tren thanh cong cu
Combo Box.
De tao duoc doi tuong (3) thi phai su dung cong cu nao tren thanh cong
cu
Option
button
De tao duoc
doi tuong (4) thi phai su dung
cong cu nao tren thanh cong cu
Picture.
De tao duoc doi tuong (5) thi phai su dung cong cu nao tren thanh cong
cu
List.
De tao duoc
doi tuong (6) thi phai su dung
cong cu nao tren thanh cong cu
Subform/sub
report.
De tao duoc
doi tuong (7) thi phai su dung
cong cu nao tren thanh cong cu
Text Box.
De tao duoc
doi tuong (8) thi phai su dung
cong cu nao tren thanh cong cu
Command
De thiet lap thuoc tinh kich thuoc, mau sac,… cho dieu khien ta thuc hien: kich phai chuot vao doi tuong chon
properties sau do chon Tab:
Format
De thiet lap thuoc tinh ten dieu khien, thong tin mo ta trang thai cua dieu khien ta thuc hien: kich phai chuot
vao doi tuong chon properties sau do chon Tab:
Other.
Khi thiet
lap thuoc tinh Default View cua Form la : Single Form thi dang
the hien la:
Mot ban ghi tren mot Form
Khi thiet lap thuoc tinh Default View cua Form
la : Continuous Form thi dang the hien
la:
Nhieu ban ghi tren cung mot Form
Khi thiet
lap thuoc tinh Default View cua Form la : Datasheet thi dang
the hien la:
a.
Bang tinh
Khi su dung dieu khien List Box hay Combo
box muon danh sach duoc lay tu bang hay truy van nao do ta thiet lap
thuoc tinh Row sourte type la:
Table/ Query
Khi su dung dieu khien List Box hay Combo
box muon danh sach do nguoi dung tu
dat ta thiet lap thuoc tinh Row
sourte type la:
Value list
Khi su
dung dieu khien List Box hay Combo box
muon danh sach lay tu ten cac truong trong bang hoac truy van ta thiet lap thuoc tinh Row sourte type la:
Field list
Khi su
dung dieu khien List Box hay Combo box
muon danh sach duoc dinh nghia boi mot ham trong Access ta thiet lap thuoc tinh Row sourte type la:
Ten ham xay dung
Khi thiet ke form hoac report
cong cu so 1 duoc dung:
Muon hien thi van ban,
chi dan co dinh khong lien quan den CSDL
Khi thiet ke form hoac report
cong cu so 2 duoc dung:
Muon hien thi gia tri
cua trong trong CSDL, hoac bieu thuc tinh toan nao do
Khi thiet ke form hoac report cong cu so 7 duoc dung:
Muon hien thi gia tri
cua trong trong CSDL, hoac bieu thuc tinh toan nao do
Tieu de
bao cao(Report Header)
Cac dieu khien nam trong thanh phan
nay se xuat hien o dau bao cao (Chi mot lan o trang dau tien cua bao cao).
Tieu de trang(Page Header)
Cac dieu khien nam trong thanh phan nay
se xuat hien o dau moi trang cua bao cao.
Chi tiet (Detail)
The hien cac du lieu cua bao cao.
Cuoi trang(Page Footer)
Cac dieu khien nam trong thanh phan nay
se xuat hien o cuoi moi trang bao cao.
Cuoi bao
cao(Report Footer)
Cac dieu khien nam trong thanh phan
nay se xuat hien o trang cuoi cung (chi mot lan trong bao cao).
Dau nhom(Group Header)
Cac dieu khien nam trong thanh phan
nay se xuat hien o dau moi nhom bao cao.
De xuat ra may in cua bao cao:
Tat ca deu sai
a. View/print preview
b. View/layout view
c. View/ design view
Khi muon sap xep hoac nhom du lieu thi thanh phan Field/Expression lam nhiem vu gi
Ten trong, hoac bieu thuc tham gia vao sap xep hay nhom
Khi muon sap xep hoac nhom du
lieu thi thanh phan Sort order lam nhiem vu gi.
Lua chon che do sap xep
tang dan hay giam dan cua trong hoac bieu thuc
Khi muon sap xep hoac nhom du
lieu thi thanh phan group properties lam nhiem vu gi.
Cai dat thuoc tinh cua
trong hay bieu thuc can nhom
Muon
nhom va sap xep tang dan theo truong
Makh, dong thoi cac dieu khien nam trong nhom nay xuat hien cuoi moi nhom ta
lua chon:
Field/Expression chon
Makh; Sort order chon ascending; group
footer chon yes
Muon nhom va sap xep tang dan
theo truong Makh, dong thoi cac dieu khien nam trong nhom nay xuat hien dau
moi nhom ta lua chon:
Field/Expression chon
Makh; Sort order chon ascending; group
header chon yes
Muon nhom va sap xep giam
dan theo truong Makh, dong thoi cac
dieu khien nam trong nhom nay xuat hien cuoi moi nhom ta lua chon:
Field/Expression chon
Makh; Sort order chon descending; group
footer chon yes
Muon nhom va sap xep giam dan theo truong Makh, dong thoi cac dieu
khien nam trong nhom nay xuat hien dau moi nhom ta lua chon:
Field/Expression chon
Makh; Sort order chon descending; group
header chon yes
De hien so trang cua bao cao tai
control source cua textbox go:
[Page]
De hien tong so trang cua bao cao tai
control source cua textbox go:
[Pages]
Macro la gi ?
La
mot doan chong trinh gom cac cau lenh, dung de tu dong hoa thao tac voi CSDL va to chuc chuong trinh
Macro
group la gi
La Macro co chua nhieu macro con.
Cac macro nay doc viet va lu thanh tung nhom
Macro co dieu kien la gi
La Macro co chua cac dieu kien khi thi
hanh mot nhiem vu
Khi tao Macro thanh phan Action
lam nhiem vu
Lua
chon danh sach cac hanh dong
Khi tao Macro thanh phan Comment lam nhiem vu
Chu
thich cho hanh dong
Khi chon
hanh dong Open Form cua Macro neu Tham so Window mode lua chon Hidden thi dang
cua so Form se la:
an
Cach khai
bao bien Recordset?
DIM <Ten
bien> AS DAO.Recordset
Cach khai bao bien Database?
DIM <Ten
bien> AS DAO.Database
Cach gan
bien Database voi CSDL?
SET <Ten bien> =CurrentDB()
Cach gan bien
Recordset voi ban ghi?
SET <Ten bien> = Bien
Database.OpenRecordSet(''Nguon du lieu'',''Kieu du lieu'')
De gan
bien <DuLieu> kieu Database voi
CSDL ''HSSV''?
SET DuLieu =CurrentDB()
De gan bien
<BanGhi> kieu Recordset voi ban ghi (da co bien <DuLieu>
kieu Database va CSDL la ''HSSV'') ?
SET
DuLieu = BanGhi.OpenRecordSet(''HSSV'',''DB_OPEN_DYNASET'')
Cach khai bao bien QueryDeft?
DIM <Ten
bien> AS DAO.QueryDeft
Chuc nang cua bien QueryDeft?
Dung de tao cau lenh SQL cho truy van
Khi lap trinh CSDL
De tim ban ghi dau tien thoa man dieu kien nao do (doi voi bien
<Banghi> co kieu Recordset )ta thuc hien:
Banghi.FindFirst
dieu kien
Gia su Rs la bien co kieu Recordset cau lenh sau co chuc nang gi?
“Msgbox Rs.EOF”
Cho biet con
tro ban ghi co nam o cuoi tep hay khong, neu dung tra ve TRUE sai tra ve FALSE
Thu tuc sau lam nhiem vu gi?
Sub THu ()
Dim DuLieu As DAO.Database
Dim BanGhi As DAO.Recordset
Set Dulieu =CurrentDB()
Set BanGhi=Dulieu.OpenRecordSet (''DMKHOA'')
tb = MsgBox(ban co muon xoa hay khong?, vbYesNo +
vbCritical)
If tb =
vbYes Then BanGhi.MoveLast
BanGhi.delete
End if
Endsub
Khi
lua chon Yes tren hop thoai thi xoa ban ghi cuoi cung ra khoi danh sach DM KHOA
Hay viet tiep vao dau ... de in ra tong so BanGhi
cua bang DMKHOA
“Sub Thu ()
Dim DuLieu As
DAO.Database
Dim BanGhi As
DAO.Recordset
Set Dulieu
=CurrentDB()
Set
BanGhi=Dulieu.OpenRecordSet (''DMKHOA'')
Msgbox ...
& vbCrLf &
Endsub
REC.RecordCount
Ket qua la bao nhieu khi chay ''thu tuc'' doi
day:
Sub
Test()
Dim A As
Double
Dim B As
Double
Dim S As
Double
A=7
B=3
S=0
If A<B
Then
S= A-B
End If
MsgBox S
End Sub
0.
Ket qua la bao nhieu khi chay ''thu tuc'' doi day:
Sub
Test()
Dim A As
Double
Dim B As
Double
Dim S As
Double
A=7
B=3
S=0
If A<B
Then
S= A-B
Else
S= A+B
End If
MsgBox S
End Sub
10.
Phat bieu
cua lenh Select Case:
Select
Case Bien_Chon
Case 1
Khoi lenh 1
Case 2
Khoi lenh 2
Case N
Khoi lenh N
Case Else
Khoi lenh N+1
End
Select
Neu bien chon bang mot gia tri tu
1...N thi thuc hien khoi lenh tong ung. Neu khong bang thi thuc hien khoi lenh
N+1.
Khi chay ''thu tuc'' doi day cho ket qua la
gi? neu nhap so 3:
Sub
Thoi_Khoa_Bieu()
Dim Thu
As Byte
Thu =
InputBox(''Ban muon hoi thu may? '', ''Thoi khoa bieu'')
Select
Case Thu
Case 2
MsgBox ''Hom nay hoc Triet hoc tai
phong A403 Vinh tuy ''
Case 3
MsgBox ''Hom nay hoc Kinh te tai phong C203 Lac trung''
Case 4
MsgBox ''Hom nay hoc Tin hoc tai phong B509 Vinh tuy ''
Case 5
MsgBox ''Hom nay hoc Ke toan tai phong C207 Lac trung ''
Case 6
MsgBox ''Hom nay hoc Toan CC tai phong B203 Vinh tuy''
Case 7
MsgBox ''Hom nay hoc Tieng anh tai
phong B203 Vinh Tuy''
Case Else
MsgBox ''Xin loi, ngay nay khong co
trong thoi khoa bieu''
End Select
End Sub
Hom nay hoc Kinh te tai phong C203 Lac trung.
Phat bieu
cua lenh FOR ... NEXT
FOR Bien = <Gia tri dau> TO <gia tri
cuoi> [STEP <N>]
<Khoi
lenh>
NEXT
Neu gia tri cua Bien van con nho
hon hoac bang gia tri cuoi thi thuc hien <Khoi lenh>, neu lon hon thi
thoat khoi vong lap.
Ket qua la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 0
To to 5 Step 2
S = S + I
Next
MsgBox S
End Sub
6.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 1
To 5 Step 2
S = S + I
Next
MsgBox S
End Sub
9.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 1
For I = 1
To 5
S = S + I
Next
MsgBox S
End Sub
16.
Ket qua la bao nhieu khi chay ''thu tuc'' duoi
day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 1
For I = 0
To to 5 Step 2
S = S + I
Next
MsgBox S
End Sub
7.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As
Integer
For I = 1 To 5
S = 0
S = S + I
Next
MsgBox S
End Sub
5.
Ket qua la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As
Integer
For I = 0 To
to 5 Step 2
S = 0
S = S + I
Next
MsgBox S
End Sub
4.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As
Integer
For I = 1 To 5 Step 2
S = 0
S = S + I
Next
MsgBox S
End Sub
a. 5.
Ket qua la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As
Integer
For I = 1 To 5
S = 1
S = S + I
Next
MsgBox S
End Sub
6.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As
Integer
For I = 0 To
to 5 Step 2
S = 1
S = S + I
Next
MsgBox S
End Sub
5.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As
Integer
For I = 1 To 5 Step 2
S = 1
S = S + I
Next
MsgBox S
End Sub
6.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 1
To 5
Next
S = S + I
MsgBox S
End Sub
6.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 0
To to 5 Step 2
Next
S = S + I
MsgBox S
End Sub
6.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 1
To 5 Step 2
Next
S = S + I
MsgBox S
End Sub
7.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 1
For I = 1
To 5
Next
S = S + I
MsgBox S
End Sub
7.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 0
To to 5 Step 2
Next
S = S + I
MsgBox S
End Sub
6.
Ket qua
la bao nhieu khi chay ''thu tuc'' duoi day:
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 1
To 5 Step 2
Next
S = S + I
MsgBox S
End Sub
7
'Thu tuc'' duoi day thuc hien bao nhieu vong
lap
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 1
To 5
S = S + I
Next
MsgBox S
End Sub
5
vong.
'Thu tuc'' duoi day thuc hien bao nhieu vong
lap
Sub
Test()
Dim I As
Integer
Dim S As Integer
S = 0
For I = 1
To 5 Step 2
S = S + I
Next
MsgBox S
End Sub
3
vong.
Ket qua
cua chuong trinh sau in ra gi khi nhap a=’’Ha noi’’ b=‘‘2013’’
Sub vd()
Dim a,b
a=inputbox(‘‘nhap
a:’’)
b=inputbox(‘‘nhap
b:’’)
msgbox
(a+b)
End sub
Ha
noi2013
Ket qua cua chuong trinh sau in ra gi khi
nhap a=‘‘Ha noi’’ b=‘‘2013’’
Sub vd()
Dim a,b
a=inputbox(‘‘nhap
a:’’)
b=inputbox(‘‘nhap
b:’’)
msgbox
(a&b)
End sub
Ha noi2013
''Thu tuc'' duoi day sai o dong lenh nao?
1. Sub
CapNhat()
2. Dim DuLieu
As DAO.Database
3. Dim BanGhi
As DAO.Recordset
4. Dulieu
=CurrentDB()
5. Set BanGhi=Dulieu.OpenRecordSet
(''DMKHOA'', DB_OPEN_DYNASET)
6.
Banghi.AddNew
7.
BanGhi(''MAKHOA''. TxtMakhoa )
8. BanGhi(''TENKHOA''. TxtTenkhoa)
9. BanGhi.Update
10. End
Sub
Dong 4.
Ghi chu: Sinh vien su dung hinh anh doi day cho phan on tap.
Trong access bang
(table) la gi?
La doi tuong de luu du lieu bao gom cot(truong),
dong(bang ghi)
Su khac nhau co ban cua bang trong(table) va
bang trong(query select)
Bang trong table dung de luu du
lieu con query duoc trich rut tu bang
theo dieu kien xac dinh
Ten truong(fields) trong access duoc quy dinh
nhu the nao?
Khong bat dau la
dau cach, khong chua ki tu :(.),(!),([),(]),toi da 64 ki tu
Kieu truong (data type) dung de lam gi?
Quy dinh du lieu can dua vao cho phu hop voi nguoi su
dung
(fields size) chon General Date ,
(default value) go 12/30/1990
De thiet ke (table) nhap du lieu
truong diemtoan , kieu number voi
dieu kien >=0 va <=10.Su dung
thuoc tinh nao sau day:
De thiet lap thuoc tinh cho truong hoten
khong co thuoc tinh null
chon thuoc tinh nao?
Trong muc required chon yes
De thiet ke truong :hoten,
kieu :text co do dai toi da la 20 ki
tu ta su dung thuoc tinh nao trong cac thuoc tinh sau
Trong muc fieldsize go 20
·
Dang 1 S o truoc vung lap (dung truoc Do or For) cung thuc
tonh S o trong vung lap (Sau Do while, Do until, For va truoc Loop, Next):
§ Cung thuc S=S+I tho ta tom
cu bao gio tri I thoa mon dk tho ta lay tong tat ca coc gio tri cua I roi cong
vs S ban dau se ra ket qua
·
VD: S=4
For I=1 to 5
S=S+I
Next
Ta thay I cu coc gio tri 1 2 3 4 5 ta tonh tong tat ca I=15 roi cong voi
S ban dau bang 4 ta cu ket qua cuoi cung bang 19
§ Cung thuc S=S*I tho ta lay
tat ca coc gio tri cua I nhon voi nhau roi nhon voi gio tri S ban dau se ra ket
qua
·
VD
S=2
For I=4 to 6
S=S*I
S=2
For I=4 to 6
S=S*I
Next
Ta thay I cu coc gio tri 4 5 6 ta tonh toch cua coc I ra 120 roi nhon voi S ban dau bang 2 ra ket qua bang 240
Ta thay I cu coc gio tri 4 5 6 ta tonh toch cua coc I ra 120 roi nhon voi S ban dau bang 2 ra ket qua bang 240
§ Cung thuc S=S+N(N la 1 so
that vd 1 2 3 …)tho ta tom xem vung lap cu bao vung lap tat ca roi lay S=Sban
dau +N*I(I la so vung lap)
·
VD
S=1
For I=2 to 5 step 2
S=S+2
Next
Ta thay o doy cu 2 vung lap I=2 va I=4 non S=1+2*2=5
S=1
For I=2 to 5 step 2
S=S+2
Next
Ta thay o doy cu 2 vung lap I=2 va I=4 non S=1+2*2=5
§ Cung thuc S=S*N(N la 1 so
that vd 1 2 3 …)tho ta tom xem vung lap cu bao vung lap tat ca roi lay S=Sban
dau*N^I(I la so vung lap)
·
VD
S=2
For I=1 to 5 step 2
S=S*3
Next
S=2
For I=1 to 5 step 2
S=S*3
Next
Ta thay o doy
cu 3 vung lap I=1 I=3 va I=5 non S=2*3^3=54
§ Cun coc cung thuc khoc tho
tonh lan luot tung S va I cho den khi het vung lap
·
VD
S=2
For I=1 to 4
S=S/2+I
Next
O doy ta thay S0=2
I1=1
S1=S0/2+I1=2/2+1=2
I2=2
S2=S1/2+I2=2/2+2=3
I3=3
S3=S2/2+I3=3/2+3=4.5
I4=4
S4=S3/2+I3=4.5/2+4=6.25
I5=5>4 ket thyc vung lap lay ket qua S4=6.25
S=2
For I=1 to 4
S=S/2+I
Next
O doy ta thay S0=2
I1=1
S1=S0/2+I1=2/2+1=2
I2=2
S2=S1/2+I2=2/2+2=3
I3=3
S3=S2/2+I3=3/2+3=4.5
I4=4
S4=S3/2+I3=4.5/2+4=6.25
I5=5>4 ket thyc vung lap lay ket qua S4=6.25
Ø Dang 2 cung thuc tonh S o
sau vung lap( sau Loop or Next):
Dang nay ta phai
tom xem I cuuo cung truoc khi thoot vung lap bang bao nhiou de thay vao cung
thuc o sau
VD
S=2
VD
S=2
For I=1 to 5
Next
S=S*I
S=S*I
Ta thay
I=6>5 non se thoot khoi vung lap ta lay I cuoi cung bang 6 thay vao cu
S=2*6=12
v Dang 3 S va cung thuc tonh
S deu trong vung lap
Ø Cung thuc S cu I
Khi nay ta se
chi quan tom toi I cuoi cung cua vung lap(Cun thoa mon dieu kien)
VD
For I=1 to 5
S=1
S=S*I
VD
For I=1 to 5
S=1
S=S*I
Next
Doy ta thay
I=5 la I cuoi cung non tat hay vao
S=S*I=1*5=5
Ø Cung thuc S ko cu I
Khi nay ta ko can quan tom toi I go ca chi can tonh S
VD2
For I=1to 10^10
S=2
S=S+4
Next
O doy I se cu vu so vung lap nhung ta cu the tonh ra luun S=2+4=6
For I=1to 10^10
S=2
S=S+4
Next
O doy I se cu vu so vung lap nhung ta cu the tonh ra luun S=2+4=6
Coc nyt
lenh phan Form nho
1. Select Object: Chon doi tuong
2. Label: dung de tao mot hop chua van ban huong dan hoac tonh toon
3. Option group: tao mot khung cu koch thuoc dieu chinh dc
4. Option button: tao mot nyt trun de chon lua ve sau
5. Combo Box: Tao hop combo cu hop van ban hieu chinh duoc
6. Command Button: Tao nyt lenh ma khi koch se thi hanh 1 nhiem vu
7. Unbound Object Freme: Bo sung vao bieu mau 1 doi tuong OLE
8. Page break: cho moy in biet bat dau 1 trang moi
9. Subfrom/subreport: bo xung 1 bieu mau con vao bieu mau chonh
10. Rectangle: Tao mot honh chu nhat
11. Control Wizads: Bat va tat Control Wizads
12. Text box: tao mot hop van ban
13. Toggle button: tao 1 nyt thay doi tu On sang Off
14. Check box: tao mot hop kiem
15. List Box: Tao 1 hop liet ko qua du ta cu the lua chon coc gio tri
16. Image: hien thi do hoa tron boo bieu
17. Bound Object Freme: hien thi noi dung 1 truong OLE
18. Control: Chon mot dieu khien Tab
19. Line: Ve mot duong thang
20. More Control: Koch vao nyt nay se mo ra mot danh soch cuon duyet
1. Select Object: Chon doi tuong
2. Label: dung de tao mot hop chua van ban huong dan hoac tonh toon
3. Option group: tao mot khung cu koch thuoc dieu chinh dc
4. Option button: tao mot nyt trun de chon lua ve sau
5. Combo Box: Tao hop combo cu hop van ban hieu chinh duoc
6. Command Button: Tao nyt lenh ma khi koch se thi hanh 1 nhiem vu
7. Unbound Object Freme: Bo sung vao bieu mau 1 doi tuong OLE
8. Page break: cho moy in biet bat dau 1 trang moi
9. Subfrom/subreport: bo xung 1 bieu mau con vao bieu mau chonh
10. Rectangle: Tao mot honh chu nhat
11. Control Wizads: Bat va tat Control Wizads
12. Text box: tao mot hop van ban
13. Toggle button: tao 1 nyt thay doi tu On sang Off
14. Check box: tao mot hop kiem
15. List Box: Tao 1 hop liet ko qua du ta cu the lua chon coc gio tri
16. Image: hien thi do hoa tron boo bieu
17. Bound Object Freme: hien thi noi dung 1 truong OLE
18. Control: Chon mot dieu khien Tab
19. Line: Ve mot duong thang
20. More Control: Koch vao nyt nay se mo ra mot danh soch cuon duyet
1-
Label: dung de tao mot hop chua van ban huong dan hoac tonh toon
3 - Option button: tao mot nyt trun de chon lua ve sau
2 - Combo Box: Tao hop combo cu hop van ban hieu chinh duoc
8 - Command Button: Tao nyt lenh ma khi koch se thi hanh 1 nhiem vu
6 - Subfrom/subreport: bo xung 1 bieu mau con vao bieu mau chonh
7 - Text box: tao mot hop van ban
5 - List Box: Tao 1 hop liet ko qua du ta cu the lua chon coc gio tri
4 - Image: hien thi do hoa tron boo bieu
3 - Option button: tao mot nyt trun de chon lua ve sau
2 - Combo Box: Tao hop combo cu hop van ban hieu chinh duoc
8 - Command Button: Tao nyt lenh ma khi koch se thi hanh 1 nhiem vu
6 - Subfrom/subreport: bo xung 1 bieu mau con vao bieu mau chonh
7 - Text box: tao mot hop van ban
5 - List Box: Tao 1 hop liet ko qua du ta cu the lua chon coc gio tri
4 - Image: hien thi do hoa tron boo bieu
Không có nhận xét nào:
Đăng nhận xét