... 1)Loop Until i <= 0Text1.Text = sElseLabel1.Caption = "Khong co bat ky tu 'em' nao trong cau !!"End IfEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài ... Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 15Thay thế tất cả các từ “em” trong câu thành “anh”. Nếu không có từ “em” thì báo l không cóPrivate Sub Command1_Click()Text1.Enabled = TrueEnd ... " ky tu la chu so"Text1.Text = kqText2.Text = Str(tong)End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 14 Đếm số l ợng chữ thường và chữ hoa trong câu nhập Bài 11 Kiểm...
... scan code,… Bài 2: Viết chương trình xuất một chuỗi l n giữa vùng cữa sổ client. Sau đó có thể dùng các phím di chuyển để dịch chuyển chuỗi trên vùng cửa sổ. Bài 3: Viết chương trình vẽ một ... BÀITẬP CHƯƠNG 4 Bài 1: Viết chương trình chặn các thông điệp bàn phím và thông điệp chuột- Khi người dùng click chuột thì thông báo nút chuột vừa được ... chuột vừa click, khi người dùng nhấn phím cộng (“+”) hoặc trừ (“-”) thì phóng to, thu nhỏ hình tròn mỗi l n 10 pixel. Bài 5: Viết ứng dụng hiển thị ngày giờ hệ thống như hình vẽ sau: Bài 6: Viết...
... báo l i.- Khi người dùng nhấn nút Close, form Student Detail sẽ đóng l i. Bài 2:- Viết ứng dụng minh họa cách sử dụng dialog có giao diện như trong hình vẽ- Sau khi người sử dụng chọn các loại ... người sử dụng chọn các loại nút sẽ hiển thị, icon sẽ hiển thị và nhấn nút Display chương trình sẽ hiển thị l n dialog tương ứng với các thông số đã được chọn. Ví dụ:- ...
... kiện Output 1 Output 2N=0 0 0N<0 0 1N>1 1 0N=1 1 1(Hướng dẫn : l p bảng chân trị, để ý N<0 khi bit đầu tiên l 1 và don’t care cho những bit còn l i)3. Rút gọn và vẽ sơ đồ mạch ... kế một mạch logic (l p bảng chân trị, dùng bản đồ Karnaugh để đơn giản, vẽ mạch) với các đầu vào l hai số x1x0 , y1y0 và các đầu ra như sau:- Đầu ra f1 có trị 1 khi (ngược l i có trị ... kế một mạch logic (l p bảng chân trị, dùng bản đồ Karnaugh để đơn giản, vẽ mạch) với các đầu vào l hai số x1x0 , y1y0 và các đầu ra như sau:- Đầu ra f1 có trị 1 khi (ngược l i có trị...
... UNION(R1,R2:INTEGER);VAR X:INTEGER;BEGIN X:=LAB[R1]+LAB[R2]; IF LAB[R1]>LAB[R2] THEN BEGIN LAB[R1]:=R2; LAB[R2]:=X; END ELSE BEGIN LAB[R1]:=X; LAB[R2]:=R1; ... AH(ROOT,LAST:INTEGER);VAR KEY:CANH;CON:INTEGER;BEGIN KEY:=E[ROOT]; WHILE ROOT*2<=LAST DO BEGIN CON:=ROOT*2; IF (CON<LAST)AND(E[CON+1].C<E[CON].C) THEN INC(CON); IF KEY.C<=E[CON].C ... E[ROOT]:=KEY;END;{====================================================================}PROCEDURE KRUSKAL;VAR I,R1,R2,COUNT,A:INTEGER;TMP:CANH;BEGINBEGIN IF NOT CONNECTED THEN WRITELN(F2,'DO THI KHONG LIEN THONG') ELSE BEGIN WRITELN(F2,'CAY KHUNG NHO NHAT LA:');...
... trinh - Du lieu lay tu File.'); Writeln; writeln(' R(andom). Chay chuong trinh - Du lieu Random.'); Writeln; writeln(' Q(uit). Thoat khoi chuong trinh.'); Writeln; ch:=ReadKey; ... writeln(' '); writeln(' Hay bam phim chuc nang:'); Writeln; writeln(' K(eyboard). Chay chuong trinh - Du lieu nhap tu ban phim.'); Writeln; writeln(' F(ile). ... gettime(h,m,s,hund); end; writeln(f); writeln(f,'Length: ',DodaiCayKhung); close(f);end;{ }beginrepeat clrscr; writeln('THUAT TOAN PRIM TIM CAY KHUNG NHO NHAT'); writeln(' DUNG...
... SINHVIEN.MAKHOA=KHOA.MAKHOA and LANTHI=1 group by HOSV,TENSV,TENKHOAconstraint PK_MONHOC_MAMH primary key (MAMH) )create table KETQUA( MASV char(5) NOT NULL, MAMH char(5) NOT NULL, LANTHI decimal NOT NULL, DIEM ... references KHOA(MAKHOA) )create table MONHOC( TENMH nvarchar(50) NOT NULL, MAMH char(5) NOT NULL, SOTIET int, having count(*)>=ALL(select count(*) as [So Luong] from SINHVIEN,KHOA where ... mon CSDL o lan thi thu nhat24: Cho biet sinh vien nao rot mon CSDL o lan thi thu nhat ma chua thi lai lan 225: Dem so luong sinh vien cua khoa 'Quan Tri Kinh Doanh'26: Dem so luong...