【正文】
A RD E :\ USER / S (二) SQL 命令操作題 (1) SELECT 貨號(hào).貨物名稱,單價(jià)*數(shù)量 as 總額入庫(kù)時(shí)間,是否折扣 from 進(jìn)貨單 (2) SELECI count ( * ) as 物品種類 from 進(jìn)貨單, here 入庫(kù)時(shí)間>= 10 / 30 / 2006 井 and 入庫(kù)時(shí)間<=# 10 / 30 / 2007 (3) delete from 進(jìn)貨單 Whoro year (入庫(kù)時(shí)間)= 2006 (4) INSERT INTO 進(jìn)貨單(貨號(hào),貨物名稱單價(jià)入庫(kù)時(shí)間,是否打折) values( “00196”“中華牙膏”, 3/1/2008.false)(5) update 進(jìn)貨單 set 單價(jià)= where 貨物名稱=“毛巾” and year (入庫(kù)時(shí)間) = 2007 (6) select sum (數(shù)量) as 總數(shù)量 from 進(jìn)貨單 group by 貨物名稱 having 總數(shù)量> 1000 order by 總數(shù)量 desc ,貨號(hào) asc (三) HTML 語(yǔ)言 l. p align=”center” a href =” 余姚市第四職業(yè)技術(shù)學(xué)校 / a / p 2. hr slze = 5 color =” blue “ align=”center” width=50% 3. p align =” center” img src =” alt =”班級(jí)照片”width= 200 height = 100 / p 4.< p align =” center “ a href = mallto:sanly0802@>聯(lián)系我</a </p 五、程序填空題 1. 11 5 = 1 to I s = s + j 3. int ( rnd * 6 ) + l d(a) = d(a) + 1 六、編程題 l. Dima ( 10 ) As IntegerPrivate Sub Forn _click()Print”排序前”For i = 1 To 10 a(i)= Int (Rnd * 91 ) + 10 Pint a(i)。If i Mod 10 = 0 Then Print Next iPrint For i = 1 To 9For j 二 1 To 10 i If a(j) a(j+l) Then t = a(j) a(j)= a ( j + 1 ) a(j + l) = t End If Next j Next i Print 排序后 For i = 1 To 10 Print a(i) ;If i Mod 10 = 0 Then Print Next i End Sub 2. Private Sub Form_Click() For i = 100 To 300 flag = 0 For j = 2 To Sqr ( i ) If i Mod j = 0 Then flag =1: j= iNext j If flag = 0 Then Frint i 。 i:n=n+1If flag = 0 And n Mod 5 = 0 Then PrintNext iPlint End Suh 3. Private Sub Form_Click () For i = 4 To 4 Print Tab (3* Abs(i) + l ) 。For j = 1 Tog 9 2* Abs(i) If j <= 5 Abs(i) Then Print 4 + Abs (i) + j 。ElsePrint 14Abs(i)jEnd IfNext jPrint Next iEnd Sub4.Private Sub Command1_Click()a$=For i=1 TO Len(a$)b=Asc(Mid(a$,i,1)Select Case bCASE 65 To 90x=x+1Case 97 To 122y=y+1case 48 To57 If b Mod 2 0 Then p=p+1 Else q=q+1End SelectNext i=”大寫字母 :”£x=”小寫字母 :”£y=”奇數(shù) :”£P(guān)=”偶數(shù) :”£qPrivate Sub Command2_Click()EndEnd Sub WORD格式整理 第 19 頁(yè) 共10頁(yè)