第五章新adsf.doc

1Sub area()Dim x As SingleDim s As Singlex = InputBox(請輸入一個數(shù)字作為圓的半徑：)s = 3.14 * x * xMsgBox (半徑為 & x & 的圓的面積為： & s)End Sub2Sub qiuhe()Dim x As IntegerDim y As IntegerDim sum As IntegerRandomize Timerx = Rnd * 9: y = Rnd * 9MsgBox (x= & x & ,y= & y)sum = InputBox(請猜測兩隨即正整數(shù)之和為：)If sum = x + y Then MsgBox (你猜對了！) Else MsgBox (你猜錯了，正確答案是 & x + y)End Sub3Sub a()Dim x As SingleDim y As Singlex = InputBox(請輸入質(zhì)量：)Select Case xCase x = 0 And x = 10 y = x * 50Case Is = 20 y = 10 * 50 + (x - 10) * 50 * 0.9Case Else y = 10 * 50 + 10 * 50 * 0.9 + (x - 20) * 50 * 0.8End SelectMsgBox (質(zhì)量為 & x & 千克的貨物總價(jià)為： & y & 元。)End Sub4Sub a()Dim x As Integer, y As Integer, z As IntegerDim t As SingleDim i As IntegerFor i = 0 To 9 t = InputBox(請輸入第 & i + 1 & 個數(shù)：) Debug.Print t If t = Int(t) Then x = x + 1 If t a(i) Then min = a(i) xb = i End IfNextDebug.Print 20個數(shù)中最小值為 & min & ，它的位置是 & xb + 1End Sub6Sub f()Dim a(4, 4) As StringDim b(7, 3) As StringDim i As Integer, j As Integera(1, 1) = 101: a(1, 2) = 陳平林: a(1, 3) = 男: a(1, 4) = 48a(2, 1) = 102: a(2, 2) = 李向明: a(2, 3) = 男: a(2, 4) = 51a(3, 1) = 103: a(3, 2) = 馬大可: a(3, 3) = 女: a(3, 4) = 58a(4, 1) = 104: a(4, 2) = 李小嚴(yán): a(4, 3) = 女: a(4, 4) = 63b(1, 1) = 陳為民: b(1, 2) = 男: b(1, 3) = 101b(2, 1) = 馮山谷: b(2, 2) = 男: b(2, 3) = 101b(3, 1) = 楊柳: b(3, 2) = 男: b(3, 3) = 102b(4, 1) = 周旋敏: b(4, 2) = 女: b(4, 3) = 104b(5, 1) = 馬力: b(5, 2) = 女: b(5, 3) = b(6, 1) = 馬德里: b(6, 2) = 男: b(6, 3) = 101b(7, 1) = 潘浩: b(7, 2) = 女: b(7, 3) = 104For i = 1 To 4 For j = 1 To 7 If a(i, 2) Like 李* And a(i, 1) = b(j, 3) Then Debug.Print a(i, 2), b(j, 1) End If NextNextEnd Sub7Sub data_plus()Dim a As Integer, b As IntegerDim c As Integer, d As IntegerDim p As Integerp = InputBox(請輸入?yún)?shù)：, 輸入)a = 23: b = 12: c = 31: d = 19Call line1(p)Debug.Print a; Tab(6); b; Tab(12); a + bDebug.Print c; Tab(6); d; Tab(12); c + dCall line1(p)Debug.Print a + c; Tab(6); b + d; Tab(12); a + b + c + dCall line1(p)End SubSub line1(p As Integer)Dim i As IntegerIf p 25 Or p =600) OR (研究生表.入學(xué)分?jǐn)?shù))=550) AND (研究生表.研究方向)=社科類);4. SELECT max(year(入學(xué)日期)-min(year(入學(xué)日期) AS 入學(xué)日期相差FROM 研究生表;5. SELECT max(year(入學(xué)日期)-min(year(入學(xué)日期) AS 入學(xué)日期相差FROM 研究生表;6. SELECT 導(dǎo)師表.*FROM 系表 INNER JOIN 導(dǎo)師表 ON 系表.系編號 = 導(dǎo)師表.系編號WHERE (導(dǎo)師表.系編號)=(select 系表.系編號 from 系表 where 系名=社科系);7. SELECT 系表.系名, 研究生表.姓名FROM 系表 INNER JOIN (導(dǎo)師表 INNER JOIN 研究生表 ON 導(dǎo)師表.導(dǎo)師編號 = 研究生表.導(dǎo)師編號) ON 系表.系編號 = 導(dǎo)師表.系編號ORDER BY 系表.系名;8. SELECT 系表.系名, 導(dǎo)師表.姓名FROM 系表 INNER JOIN (導(dǎo)師表 INNER JOIN 研究生表 ON 導(dǎo)師表.導(dǎo)師編號 = 研究生表.導(dǎo)師編號) ON 系表.系編號 = 導(dǎo)師表.系編號WHERE (研究生表.姓名)=張12);9. SELECT Count(姓名) AS 女導(dǎo)師人數(shù)FROM 系表 INNER JOIN 導(dǎo)師表 ON 系表.系編號 = 導(dǎo)師表.系編號WHERE (系表.系名)=計(jì)算機(jī)系) AND (導(dǎo)師表.性別)=女);10. SELECT Avg(入學(xué)分?jǐn)?shù)) AS 平均分FROM 系表 INNER JOIN (導(dǎo)師表 INNER JOIN 研究生表 ON 導(dǎo)師表.導(dǎo)師編號 = 研究生表.導(dǎo)師編號) ON 系表.系編號 = 導(dǎo)師表.系編號WHERE (系表.系名)=計(jì)算機(jī)系) AND (研究生表.性別)=男);11. SELECT 研究生表.姓名FROM 導(dǎo)師表 INNER JOIN 研究生表 ON 導(dǎo)師表.導(dǎo)師編號=研究生表.導(dǎo)師編號WHERE year(研究生表.入學(xué)日期)=(select min(year(入學(xué)日期) from 導(dǎo)師表 inner join 研究生表 on 導(dǎo)師表.導(dǎo)師編號=研究生表.導(dǎo)師編號 where 導(dǎo)師表.姓名=馬騰躍) AND 導(dǎo)師表.姓名=馬騰躍;12. SELECT 導(dǎo)師表.姓名, 研究生表.性別, 研究生表.入學(xué)分?jǐn)?shù), 研究生表.研究方向FROM 導(dǎo)師表 INNER JOIN 研究生表 ON 導(dǎo)師表.導(dǎo)師編號=研究生表.導(dǎo)師編號;12.1.