第五章新adsf.doc

1Sub area()Dim x As SingleDim s As Singlex = InputBox(请输入一个数字作为圆的半径：)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(请猜测两随即正整数之和为：)If sum = x + y Then MsgBox (你猜对了！) Else MsgBox (你猜错了，正确答案是 & x + y)End Sub3Sub a()Dim x As SingleDim y As Singlex = InputBox(请输入质量：)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 (质量为 & x & 千克的货物总价为： & 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 & 个数：) 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个数中最小值为 & 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) = 李小严: 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(请输入参数：, 输入)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 (研究生表.入学分数)=550) AND (研究生表.研究方向)=社科类);4. SELECT max(year(入学日期)-min(year(入学日期) AS 入学日期相差FROM 研究生表;5. SELECT max(year(入学日期)-min(year(入学日期) AS 入学日期相差FROM 研究生表;6. SELECT 导师表.*FROM 系表 INNER JOIN 导师表 ON 系表.系编号 = 导师表.系编号WHERE (导师表.系编号)=(select 系表.系编号 from 系表 where 系名=社科系);7. SELECT 系表.系名, 研究生表.姓名FROM 系表 INNER JOIN (导师表 INNER JOIN 研究生表 ON 导师表.导师编号 = 研究生表.导师编号) ON 系表.系编号 = 导师表.系编号ORDER BY 系表.系名;8. SELECT 系表.系名, 导师表.姓名FROM 系表 INNER JOIN (导师表 INNER JOIN 研究生表 ON 导师表.导师编号 = 研究生表.导师编号) ON 系表.系编号 = 导师表.系编号WHERE (研究生表.姓名)=张12);9. SELECT Count(姓名) AS 女导师人数FROM 系表 INNER JOIN 导师表 ON 系表.系编号 = 导师表.系编号WHERE (系表.系名)=计算机系) AND (导师表.性别)=女);10. SELECT Avg(入学分数) AS 平均分FROM 系表 INNER JOIN (导师表 INNER JOIN 研究生表 ON 导师表.导师编号 = 研究生表.导师编号) ON 系表.系编号 = 导师表.系编号WHERE (系表.系名)=计算机系) AND (研究生表.性别)=男);11. SELECT 研究生表.姓名FROM 导师表 INNER JOIN 研究生表 ON 导师表.导师编号=研究生表.导师编号WHERE year(研究生表.入学日期)=(select min(year(入学日期) from 导师表 inner join 研究生表 on 导师表.导师编号=研究生表.导师编号 where 导师表.姓名=马腾跃) AND 导师表.姓名=马腾跃;12. SELECT 导师表.姓名, 研究生表.性别, 研究生表.入学分数, 研究生表.研究方向FROM 导师表 INNER JOIN 研究生表 ON 导师表.导师编号=研究生表.导师编号;12.1.