輸入一個(gè)數(shù)字，程序判斷如下情況：如果能被3整除但同時(shí)不能被5整除，顯示“該數(shù)只能被3整除”；如果只能被5整除但是不能被3整除，顯示“該數(shù)只能被5整除”，若被3整除同時(shí)被5整除，顯示“該數(shù)可以同時(shí)被3、5整除”。
本程序設(shè)計(jì)界面及運(yùn)行界面如下：

請(qǐng)編寫單擊“判斷”（Button1）按鈕的事件處理程序。

某廠對(duì)使用的原材料鋼筋進(jìn)行用前檢測(cè)。要求輸入鋼筋的直徑進(jìn)行檢查。標(biāo)準(zhǔn)品為10.0毫米直徑。實(shí)際產(chǎn)品的直徑與標(biāo)準(zhǔn)品之間的誤差為±0.5毫米以下（含0.5毫米）的都認(rèn)為是合格的，提示“檢測(cè)為合格品”。否則提示“檢測(cè)為廢品”。
本程序設(shè)計(jì)界面及運(yùn)行界面如下：

請(qǐng)編寫單擊“檢測(cè)”（Button1）按鈕的事件處理程序。

某俱樂部實(shí)行會(huì)員注冊(cè)收費(fèi)，每位會(huì)員按整月每月收費(fèi)500元整。但是對(duì)注冊(cè)時(shí)期較長(zhǎng)的會(huì)員有價(jià)格優(yōu)惠。規(guī)則如下：注冊(cè)6個(gè)月以下（含6個(gè)月）每月收費(fèi)金額不變，6至12個(gè)月實(shí)行9折收費(fèi)，12個(gè)月以上（不含12個(gè)月）8折收費(fèi)。編程在“注冊(cè)月數(shù)”框中輸入會(huì)員欲注冊(cè)的月數(shù)，單擊“計(jì)算”按鈕后在“應(yīng)收金額”框中顯示應(yīng)收會(huì)費(fèi)總錢數(shù)。單擊“結(jié)束”按鈕結(jié)束程序。
本程序設(shè)計(jì)界面及運(yùn)行界面如下：

請(qǐng)編寫單擊“計(jì)算”（Button1）按鈕的事件處理程序。

本程序由主窗體form1和子窗體form2組成，設(shè)計(jì)界面如下圖所示：

主窗體上建立的對(duì)象有Panel1、Animate1、Button1（加載AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。 
子窗體上建立的對(duì)象有Label1、BitBtm1（Yes）、BitBtm2（No）。 
單擊“加載AVI文件”按鈕，會(huì)彈出打開文件對(duì)話框。用戶指定一個(gè).avi的文件后，動(dòng)畫文件加載到Animate1顯示區(qū)中。單擊“播放”按鈕可播放動(dòng)畫，單擊“停止”按鈕可停止播放。 
單擊“退出”按鈕，會(huì)彈出確認(rèn)對(duì)話框（Form2）。如果用戶按“Yes”鍵，程序結(jié)束；如果按“No”鍵，返回主窗體。 
下面是Unit1的代碼部分，請(qǐng)?jiān)谙聞澗€處完成程序填空。

本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的選課界面。設(shè)計(jì)界面和運(yùn)行界面如下圖所示：
該程序涉及到數(shù)據(jù)庫(kù)中的兩張表：
course（課程表）和sc（選課表），表結(jié)構(gòu)如下：sc（sno學(xué)號(hào)，cno課程號(hào)，grade成績(jī)）course（cno課號(hào)，cname課名，quota名額）
其中：sno和cno都是字符型。
在用戶界面，操作員選中一門書、輸入學(xué)號(hào)后，按“選課”鍵，完成選課功能，即在sc表中插入一條選課記錄，并將course表中該課程的名額減1。
該界面要實(shí)現(xiàn)以下合法性檢查：
1.當(dāng)該學(xué)生已經(jīng)選過此課，不能再選。
2.當(dāng)所選課程名額已為0，不能再選。
在Form1上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下：
Database1－Table1（與course表相連）－DataSource1－DBGrid1（顯示課程信息）
Database1－Table2（與sc表相連，用于插入選課記錄）
Database1－Query1
其中為Table1建立了3個(gè)永久字段：Table1cno（課程號(hào)）、Table1cname（課程名）、Table1quota（名額）。
Query1的SQL語句如下：
select cno
from sc
where sno =:sno and cno=:cno
下面是Unit1的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空：