6月5/6日 Excel函数实战技巧精粹 300集Office 2010微视频教程
5月7日 Excel VBA开发实战 高效办公必会的Office实战技巧
5月6日 Excel透视表实战秘技 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 1883|回复: 77

零基础12期-第五课作业贴

  [复制链接]
发表于 2017-11-29 20:03:23 | 显示全部楼层 |阅读模式
本帖最后由 开心妙妙 于 2017-12-9 11:03 编辑

交作业之前先看群文件作业提交说明
回复

使用道具 举报

发表于 2017-12-18 16:02:25 | 显示全部楼层
  1. Option Explicit

  2. '第五节课作业

  3. Sub 胡说电影分集()
  4.     Dim age As Long, 分级 As String, 陪同否
  5.    
  6.    
  7.     age = InputBox("请输入你的年龄:")
  8.    
  9.     Select Case age
  10.     Case Is <= 13
  11.         分级 = "G"
  12.     Case Is <= 16
  13.         陪同否 = MsgBox("家里是否有人陪同?", vbYesNo)
  14.         If 陪同否 = vbYes Then
  15.             分级 = "PG - 13"
  16.         Else
  17.             分级 = "PG"
  18.         End If
  19.         
  20.     Case Is <= 18
  21.         分级 = "NC - 17"
  22.     Case Else
  23.         分级 = "R"
  24.     End Select
  25.       
  26.     MsgBox "您的分级是" & 分级 & "级"
  27.    
  28.         
  29. End Sub

  30. '循环作业
  31. Sub 小明罚抄()
  32.     Dim i As Long, 成绩 As Long
  33.     成绩 = InputBox("请输入成绩")
  34.     If 成绩 >= 90 Then
  35.         MsgBox "奖励小明100元!"
  36.     Else
  37.         For i = 1 To 100
  38.         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  39.         Next
  40.     End If
  41.             
  42. End Sub

  43. Sub 高斯累加1()

  44.     Dim i As Long, sum7 As Long

  45.     For i = 1 To 100
  46.    
  47.         If i Mod 7 = 0 Then sum7 = sum7 + i
  48.         
  49.     Next i
  50.         
  51.     MsgBox sum7
  52.    
  53. End Sub

  54. Sub 高斯累加2()

  55.     Dim i As Long, j As Long, sum As Long
  56.     sum = 1
  57.    
  58.     For i = 2 To 100 Step 2
  59.    
  60.     sum = sum + i
  61.    
  62.     Next i
  63.    
  64.     For j = 3 To 100 Step 2
  65.     sum = sum - j
  66.     Next j
  67.       
  68.     MsgBox sum
  69.         

  70. End Sub

  71. Sub 班级分数()
  72.     Dim 总分 As Long, 人数 As Long, 成绩 As Long, i As Long
  73.    
  74.     人数 = InputBox(" 请输入班级总人数:")
  75.    
  76.     For i = 1 To 人数
  77.     成绩 = InputBox("请输入学生成绩")
  78.     总分 = 总分 + 成绩
  79.     Next
  80.    
  81.     MsgBox "该班级的总分为" & 总分 & "分"
  82.     MsgBox "该班级的平均分为" & (总分 / 人数) & "分"
  83.    
  84. End Sub

  85. Sub 打擂台()

  86.     Dim i As Long, inputV As Long, maxV As Long, maxi As Long
  87.     maxV = 1
  88.    
  89.     For i = 1 To 5
  90.         inputV = Val(InputBox("请输入一个正数"))
  91.         If inputV < 0 Then inputV = 0
  92.         If inputV > maxV Then
  93.         maxV = inputV
  94.         maxi = i
  95.         End If
  96.         
  97.     Next
  98.     MsgBox "您输入的最大值为" & maxV & ",您是在第" & maxi & "次输入的。"

  99. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-12-18 16:01:38 | 显示全部楼层
  1. Option Explicit

  2. '第五节课作业

  3. Sub 胡说电影分集()
  4.     Dim age As Long, 分级 As String, 陪同否
  5.    
  6.    
  7.     age = InputBox("请输入你的年龄:")
  8.    
  9.     Select Case age
  10.     Case Is <= 13
  11.         分级 = "G"
  12.     Case Is <= 16
  13.         陪同否 = MsgBox("家里是否有人陪同?", vbYesNo)
  14.         If 陪同否 = vbYes Then
  15.             分级 = "PG - 13"
  16.         Else
  17.             分级 = "PG"
  18.         End If
  19.         
  20.     Case Is <= 18
  21.         分级 = "NC - 17"
  22.     Case Else
  23.         分级 = "R"
  24.     End Select
  25.       
  26.     MsgBox "您的分级是" & 分级 & "级"
  27.    
  28.         
  29. End Sub

  30. '循环作业
  31. Sub 小明罚抄()
  32.     Dim i As Long, 成绩 As Long
  33.     成绩 = InputBox("请输入成绩")
  34.     If 成绩 >= 90 Then
  35.         MsgBox "奖励小明100元!"
  36.     Else
  37.         For i = 1 To 100
  38.         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  39.         Next
  40.     End If
  41.             
  42. End Sub

  43. Sub 高斯累加1()

  44.     Dim i As Long, sum7 As Long

  45.     For i = 1 To 100
  46.    
  47.         If i Mod 7 = 0 Then sum7 = sum7 + i
  48.         
  49.     Next i
  50.         
  51.     MsgBox sum7
  52.    
  53. End Sub

  54. Sub 高斯累加2()

  55.     Dim i As Long, j As Long, sum As Long
  56.     sum = 1
  57.    
  58.     For i = 2 To 100 Step 2
  59.    
  60.     sum = sum + i
  61.    
  62.     Next i
  63.    
  64.     For j = 3 To 100 Step 2
  65.     sum = sum - j
  66.     Next j
  67.       
  68.     MsgBox sum
  69.         

  70. End Sub

  71. Sub 班级分数()
  72.     Dim 总分 As Long, 人数 As Long, 成绩 As Long, i As Long
  73.    
  74.     人数 = InputBox(" 请输入班级总人数:")
  75.    
  76.     For i = 1 To 人数
  77.     成绩 = InputBox("请输入学生成绩")
  78.     总分 = 总分 + 成绩
  79.     Next
  80.    
  81.     MsgBox "该班级的总分为" & 总分 & "分"
  82.     MsgBox "该班级的平均分为" & (总分 / 人数) & "分"
  83.    
  84. End Sub

  85. Sub 打擂台()

  86.     Dim i As Long, inputV As Long, maxV As Long, maxi As Long
  87.     maxV = 1
  88.    
  89.     For i = 1 To 5
  90.         inputV = Val(InputBox("请输入一个正数"))
  91.         If inputV < 0 Then inputV = 0
  92.         If inputV > maxV Then
  93.         maxV = inputV
  94.         maxi = i
  95.         End If
  96.         
  97.     Next
  98.     MsgBox "您输入的最大值为" & maxV & ",您是在第" & maxi & "次输入的。"

  99. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-12-17 22:23:45 | 显示全部楼层
作业1
Sub 电影分级()
    Dim 年龄 As Long, 提示 As String
    年龄 = InputBox("请输入您的年龄:")
    Select Case 年龄
        Case Is > 18
        MsgBox "您可以看R级电影"
        Case Is > 16
        MsgBox "您可以看NC-17级电影"
        Case Is > 13
          提示 = MsgBox("您是否有家里大人陪同", vbYesNo)
          If 提示 = vbYes Then
          MsgBox "您可以观看PG-13级电影"
          Else
          MsgBox "您可以观看PG级电影"
          End If
        Case Else
        MsgBox "您可以看G级电影"
        End Select

End Sub


作业2
Sub 成绩判断()
   Dim 成绩 As Long, i As Long
   成绩 = InputBox("请输入小明的考试成绩:")
  
      If 成绩 >= 90 Then
         MsgBox ("小明将获得奖励100元!")
         Else
         For i = 1 To 100
         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了"
         Next
      End If

End Sub
      
作业3
Sub 高斯累计变种1()
    Dim i As Long, sumV As Long
    For i = 7 To 100 Step 7
       If i Mod 7 = 0 Then
       sumV = sumV + i
       End If
    Next
     MsgBox sumV
End Sub

作业4
Sub 高斯累计变种2()
    Dim i As Long, sumV As Long
    sumV = 1
    For i = 2 To 100
        If i Mod 2 = 0 Then
            sumV = sumV + i
        Else
            sumV = sumV - i
        End If
    Next
    MsgBox sumV
End Sub


作业5
Sub 班级成绩统计()
    Dim i As Long, 班级人数 As Long, 学生成绩 As Long, 班级总分 As Long
    班级人数 = Val(InputBox("请输入班级人数"))
        For i = 1 To 班级人数
           学生成绩 = Val(InputBox("请输入一个学生的成绩"))
           班级总分 = 班级总分 + 学生成绩
        Next
    MsgBox "该班级学生成绩的总分是" & 班级总分 & " ; " & "平均分是" & 班级总分 / 班级人数
    End Sub


作业6
Sub 打擂台()
        Dim i As Long, inputV As Long, maxV As Long, maxi As Long
        For i = 1 To 3
            inputV = Val(InputBox("请输入一个数"))
        If inputV = 0 Then
               Exit For
            End If
           If inputV > maxV Then
              maxV = inputV
              maxi = i
              End If
         Next
    MsgBox "输入的最大数为" & maxV & "    " & "输入次数为" & maxi
End Sub
回复 支持 反对

使用道具 举报

发表于 2017-12-10 19:39:33 | 显示全部楼层

  1. 'Select Case 作业 : 胡说电影分级制度演示程序:提示输入年龄,
  2. '如果小等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
  3. '如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
  4. '大于18岁可以看R 级电影。
  5. Sub selectcase()
  6.      Dim age As Integer, aa As String
  7.      age = 14
  8.      Select Case age
  9.      Case Is <= 13
  10.         MsgBox "可以看G级电影"
  11.      Case Is <= 16
  12.      aa = MsgBox("是否有家里大人陪同:", vbYesNo)   'aa = MsgBox("是否有家里大人陪同:", vbYesNo)
  13.         If aa = vbYes Then                         'If aa = vbYes Then
  14.            MsgBox "可以看PG-13级"
  15.         Else
  16.             MsgBox "可以看PG级"
  17.         End If
  18.      Case Is <= 18
  19.         MsgBox "可以看NC-17级"
  20.      Case Else
  21.         MsgBox "可以看R级电影"
  22.     End Select
  23. End Sub

  24. '输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
  25. '否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
  26. '(debug.print,语句的使用)

  27. '第一步:输入小明的考试成绩
  28. '第二步:判断小明的成绩是否>=90分
  29. '第三步:如果>=90 那么奖励小明100元
  30. '第三步: 否则,小明从第1遍 --第100遍 ,并在立即窗口输出

  31. Sub debugPrint()
  32.     Dim i As Long, 成绩 As Long
  33.     成绩 = 9
  34.     If 成绩 >= 90 Then
  35.         MsgBox "奖励100元。"
  36.     Else
  37.         For i = 1 To 100
  38.             Debug.Print "小明抄写了第" & i & "遍,我再也不敢马虎了。"
  39.         Next
  40.     End If
  41. End Sub


  42. '循环作业2 :高斯累加的最简单的变种
  43. '
  44. '请编程计算1…100 当中所有7的倍数的累计和

  45. Sub 所有7的倍数的累加和()
  46.     Dim i As Long, sumv As Long
  47.     For i = 7 To 100 Step 7
  48.         sumv = sumv + i
  49.     Next
  50.       MsgBox sumv
  51. End Sub

  52. '循环作业3:高斯累加的变种
  53. '编程计算1+2-3+4-5+6… 100 的结果
  54. Sub 高斯累加的变种()
  55.     Dim i As Long, a As Long, sumv As Long, sumv1 As Long
  56.     For i = 2 To 100 Step 2
  57.         sumv = sumv + i
  58.     Next
  59.     For a = 3 To 100 Step 2
  60.         sumv1 = sumv1 + a
  61.     Next
  62.     MsgBox 1 + sumv - sumv1
  63. End Sub

  64. ''循环作业3:高斯累加的变种
  65. ''编程计算1+2-3+4-5+6… 100 的结果
  66. 'Sub 高斯累加的变种1()
  67. '    Dim i As Long, sumv As Long
  68. '    For i = 3 To 4 Step 1
  69. '    i = i * IIf(i Mod 2 = 1, -1, 1)
  70. '        sumv = sumv + i
  71. '    Next
  72. '      MsgBox sumv
  73. 'End Sub



  74. '=====================================================================================

  75. '循环作业4:不考虑乱输入
  76. ' 输入班级人数,然后依次输入学生成绩。最后输出该班级学生成绩的总分和平均分。
  77. '建议该班学生不超过5人
  78. '第一步:你输入一个班级人数 ---- 声明一个变量存班级人数 3
  79. '                                变量:学生成绩
  80. '                                总分 = 总分+学生成绩
  81. '第二步:构建循环,依次输入每一个学生的成绩,对总分进行累加
  82. '第三步:依据总分与班级人数求平均分
  83. '人数 = "请输入班级人数"
  84.     '从第1个到人数多个
  85.     '总分 = 总分+学生成绩 ---高斯累加

  86. Sub 求班级的总分和平均分()
  87.     Dim 人数 As Long, 学生成绩 As Long, 总分 As Long, a As Integer
  88.     人数 = InputBox("请输入班级人数:")
  89.     For 人数 = 1 To 人数
  90.     学生成绩 = InputBox("请输入第" & 人数 & "个学生成绩:")
  91.         总分 = 总分 + 学生成绩
  92.         Next
  93.     MsgBox "总分等于" & 总分
  94.     MsgBox "平均分等于" & 总分 / (人数 - 1)
  95. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-12-8 17:37:59 | 显示全部楼层


'Select Case 作业 : 胡说电影分级制度演示程序:提示输入年龄,
'如果小等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
'如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
'大于18岁可以看R 级电影。


Sub 电影分级制度()
   
    Dim 年龄 As Long, 有无大人
   
   
    年龄 = InputBox("请输入您的年龄")
   
    Select Case 年龄
   
   
    Case Is <= 13
        MsgBox "可以看 G 级电影"
    Case Is <= 16
        有无大人 = MsgBox("是否有大人陪同?", vbYesNo)
        If 有无大人 = vbYes Then
            MsgBox "可以看PG-13 级"
        Else
            MsgBox "可以看PG 级"
        End If
   
    Case Is <= 18
        MsgBox "可以看NC-17级"
        
    Case Else
        MsgBox "可以看R 级电影"
   
   
    End Select
   
   



End Sub




'.MsgBox


'循环作业1:
'输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
'否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
'(debug.print,语句的使用)

'第一步:输入小明的考试成绩
'第二步:判断小明的成绩是否&I /> '(debug.prinbsp;br ebug.prinb爀lect Casr />>>>>> e.gif'" />
_agahrpost&rid=424385&tid=45 Subp: -11pE;   <;page=1" onc;&nb4N 牡缬埃
'大8
;pa吹趕p;&nf

SuSubp/>
SuSubp/>
SuSubp/>
Suediv> Case 作业 :=1" o br /> 分紃 /> 分紃 /> 分紃 ect; .prinbsgif'" /li>End S谑涑"inbs End S趇mic看PG 槛业 :=1" o br /> 分紃 />
'大8 End S趗ot;小bsp饕 :=1" o br /> 分紃 />
'大8 End S赼vtmlinprinbsgif'" /ltiimg src=1"ttp://uot;小.u.ex90" o bnet 002/18/69/93_uot;小_middle.jpg &nerro &.prs.&nerro null;.prs.src='"ttp://u.ex90" o bnet images/nouot;小_middle.gif'/顴Huoti糱br /G 糱br /G 糱br /G 糱r /> '否则,惩c碢G 糱r '否则,硆inG 糱r '否则,硉rinG 糱r '否则,砫btbsG 糱br /G 糱r '否则,ug.prinG 糹mg '否则,ug.prcn vmli> 瑄g.prc G 级a> 瑄g.por
<>发表于 2017-12-8 17:37:59Subp/> 紃 n '否则,pipe">|pnbsp;&> 饕 :=1t d-t;可-1-1.htmlPl="nofol如">显示全部楼层uoti> bbr /G 糱br /G 糱br /糱r '否则,p; &/糱r '否则,a_影&> <90芳试成绩大等于90分,则奖励100裕


★EH24>★EH2'数 &am
★EH2'6u')小516- 13 岁,提示杉 G .jpInp"usu')大于13岁但是小516-16 岁,提问>★EH2'6u')是,杉PG-13 级, ★EH2'大于18岁杉R 级礗np ★EH24>★EH2纬 礗np分级制度his.onerr ="a_pt"="a_pt"s.onerr ="a_pt"="a_pt"http年龄 /> 1ong> 16ng> 18s.onerr ="a_pt"="a_pt="a_pt"="a_pt="a_pt="a_pt> nbs
nbs
?m& 前离线 16ng> scor ="a_pt"="a_pt="a_pt"="a_pt="a_pt=scor =t有无大人 =n>
16nr =scor =s="authicn vm" id="a"
16n .onerr .onr.gi救 16n.onerr s.onerr s.onerr E训渴程.onerr .onerr .onerrg> f'" />
err s.onerr E训渴程.onerr .onerr .onerrllow"柯ゲ
★EH在线培训縠rr s.onerr E训渴 href="thr杉R href?m&thr杉R thr杉R ?m& 前离线 16ng> f'" /> 16nnofollow7>显示全="aep 7"="a_pt"
16n旨rv'=n旨rv'+ i"="a_pt"
16niv>
16n .oner旨rvdiv cla" 16n"="a_pt"
16ng> f'" /> 16n旨rv'ow""="a_pt"
16nnofollow2>显98="aep 2"="a_pt"
16n旨rv'ow旨rv'+ i - (i'+ 1t"="a_pt"
16niv>
16n .oner旨rv'+ 1全部楼层<"
16n部楼层<" 16ng> 人数'" /> 16n人数't有无大人 =n>
16n"="a_pt"
16nnofo人数't">显嗜耸"="a_pt"
16n"="a_pt"
16n总分'=n总分'+ 学生 cla"="a_pt"
16niv>
16n .onern> 16ndiv cla"
16n .onern>
16n"="a_pt" SuSuSuSpa_pt"uSp_ptpt"="a_辏崾究 &lr> '如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
'大于18岁可以看R 级电影。


Sub 电影分级制度()
    生>
'础H绻硉入您的年龄")
   
&整体很赞,课程内容己撑握,前离线来1也许是理解错题意r> 16nbs7级嵛适欠 />    
7:3"u47级 &n /> &nbs/> &nbs> 提问是否br , 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
'大于18岁可以看R 级电影。


Sub 电影分级制度()
    生>
'础H绻硉入您的年龄")
   
&前离线
16nbs7级嵛适欠 />    
7:26u47级 &n /> &nbs/> &nbs/> &nbnbs> pt"=""="a13
&nb &lrbr /> &nbr /> &nbr /> &nbnbr br =     Case Is <= 16 &lrbr nbsp; &nsp; &_pt"s.one Isp;  有无大人 = MsgBox("是否有大人陪同?", vbYesNo)
        If 有无大人 = vbYes Then
            MsgBox &lbsp; v><看PG-13 级"
        Else
            MsgBox "可以看PG 级"
     &lbsp; nbsp;
    End Select
   
   





'.MsgBox '循环作叶" &nb &lp;&n
   &nbs;       MsgBox "可以看R 级电影"
   
&lsp;     End Select
   
   





'.MsgBox

'循环作襬t;
&n4>★nbnbrinb爊bsp; &俦"
> 'popCase &nb &lpsp;
&np; E我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
'(debug.print,语句的使用)
句的; &n褂茫<明的考试成绩
&l诙:判断小明的成绩是否&I /> '(debug.prinbsp;br ebug.prinb爀lect Casr />>>>>> e.g &l, 口柿恕薄T趇d=uot />
_agahrpost&rid=424385&tid=45 Subp: -11pE;   <;page=1" onc;&nb4N 牡缬埃
'大8
;pa吹趕p;&nf

SuSubp/>
SuSubp/>
SuSubp/> 6> lc"> ;pediv> Case 作业 :=1" o br /> 6> lc"> ;pr /> 分紃 ect; .pr6> lpt";&n"a_pt"="a_pt"s.onerr ="a_uSu/> ;pa吹PG 槛业 :=1" o br /> 分紃 /> lc"> ;paug.紃 />=1" bsp.prinbsgif'" /linbsp;="查看详细资料/tiimg src=1"ttp://;&nb &n.ex90" o 某291="a />否&; C谙吲嘌;="查看想您的ro:59ui ebug.prbspug.prbspug.pbsp;="查看蟟d=uot;小feenbsp; &nt ds &nswaitbspn6> iv>
End S趗ot;小bsp饕 :=1" o br /> 分紃 />
End S赼vtmlinprinbsgif'" /ltiimg src=1"ttp://uot;小.u.ex90" o bnet 002/18/69/9某291="a />否&; C谙吲嘌;="查看想硉riro:59ui ebub/>1"ttp:src>★u.ex90" o bnet images/nouot;小_middle.gif'/顴Huoti糱br /G 糱br /G 糱br /G 糱r /> '某291=惩c碢G 糱r '否则,硆inG 糱r '否则,硉ri5 ebub/bbrle.,砫btbsG 糱br /G 糱r '否则,ug.prinG 糹mg '否则,ug.prcn vm某291=.prc蚦碢G 糱r '否则,硆inG 糱r  '否则,pipe">|p8岁可以看R 级电影〖br ; &100裕
>生臣r n '否则,pipe">|pnbsp;&> 饕 :=1t d-t;可-1-1.htmlPl="nofol如">显示全部楼层uoti> bbr /G 糱br /G 糱br /糱r '否则,p; &/糱r '否则,a_影&>

;pa璸t"Subbbrplc"> ;pa柿蟂ubbbrplc"> ;pa /> &bbbrplc"> ;pa3 岁,提示杉 G .jpInp"usu')大于13岁但是小516-16 岁,提问> i90EH2'6u')是,杉PG-13 级, 辏生成糔C-17级4 22:52:45 e bnet -t3嵛适欠聱成糝 级礗np ★EH24>★EH2纬 礗np分级制度his.onerr ="a_pt"="a_pt"s.onerr ="a_pt"="a_pt"http年龄 /> 阛_p"a_pt"sonera_pt"="a_pt="a_pt"="a_pt=JLVpt="a_p 16ng> <:n> 16n试 clanerr s 16r> 16r> 16err s ="a="a="a_pt"s.onerr ="a_pt"="a_pt"s.onerr ="a_pt"="err ="a .onern> 16r> 16lr> 16r> 16lr> 16r =s.on否'=n"="a_cn vm" id="a"
16r> 16lr> 16r> 16lr> 16 .onern>
16ng> cla'" /> 16n cla'=有无大人 =n> 16n试 clanerr s cla"="a_pt"
16r> 16r> 16err s ="a="authi"="a_pt"
16r> 16lr> 16r> 16r> 16 .onern>
16r> 16r> 16err s.onerr s.onerr s.onerr E训渴程.onerr .onerr 籲err 籲ofollow">显1全rr s.onerr s.onerr E训渴程.onerr .onerr 籲err 籰lowi'+ 1rr s.onerr s.onerr E训渴程.onerr .onerr 籲err 籶ct">
★EH在线培训縠rr s.onerr E训渴 E训渴r E训渴 E训渴 E训渴iv>
16nhref试 cladiv cla" 16ng> 旨rv'" /> 16nnofollow">显1全rr s.onerr s.onerr E训渴程.onerr .onerr 籲err 籰lowi'+ a_pt="a_pt"="a_pt="a_pt="a_ptE&nbs.onebs.onebs.one旨rv'ow旨rv'+ i_pt="a_pt"="a_pt="a_pt="niv>
16n .oner旨rvdiv cla" 16ng> f'" /> 16nnofollow">显1全rr s.onerr s.onerr E训渴程.onerr .onerr 籲err 籰lowi'+ 1rr s.onerr s.onerr E训渴程.onerr .onerr 籲err 籮low-i - 1rr s.onerr s.onerr E训渴程.onerr .onerr 籲err 恢紃v'owi'+ jrr s.onerr s.onerr E训渴niv>
16n .oner旨rvdiv cla" 16nr> 16ndiv cla" 16ng> 人数 " /> 16n人数 =有无大人 =n> 16nnofollow">显嗜耸"="a_pt"
16n学生 cla =有无大人 =n>
16n总分 =n学生 cla +n总分"="a_pt"
16n均分 =n总分 / 人数"="a_pt"
16niv>
16n .oner总分div cla"
16n .oner均分div cla" ;ped 阛_ph3 lc"> ;pbr h 否pt=Inp lc"> ;p里大_iv g嵛="rInp >点评 ;pbr , 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
'大于18岁可以看R 级电影。


Sub 电影分级制度()
    生>
'础H绻硉入您的年龄")
   
&前离线 16nbs7级 lc"> ;p />    
8:07"rInp >nbs/> &nbs/> &nbs> lc"> ;pbr , 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
'大于18岁可以看R 级电影。


Sub 电影分级制度()
    生>
'础H绻硉入您的年龄")
   
&前离线 16nbs7级 lc"> ;p />    
8:05 e7级 &n /> &nbs/> &nbs/> &nbnbs> pt"=" 但_rate_> bp/> 6> br > &nbr > &nbr > &nbnbr Su= "=nbr "=b="plc"> ;pa璸 pl岁 但 Su但 "=nbr "pt"="d=ust=usi&quop/> 6> br "=nbr "=nbr "plc"> ;pa璼 br Su但 "plc"> ;pa璫 iv> Casw:visi> nd 但> plc"> ;pao /> 但> plc"> ;paobplc 但 bn但衎sp; &nbsfa>1" '扔18  &n=us /> &x "褂胠y/> &∶鞯某/> &二步:判断> &褂>
6/> &v> &p颍=> '(debug.print,语竟用lyI /ù蟮热于1)">回复t;)
&x "=us 循环作/> &蚦炊"/> &二步:判断> &nbs /> 6/>  
    End Select
   
   

6>r />


6>r />
'.MsgBox '循环作叶"bp/> 6> br
&x "=us 循环作/> &蚦磑t;
&二步:判断> &nbs /> 6/>  
    End Select
   
   

6>r />


6>r />
'.MsgBox '循环作襬t;
6> br
> 'popd=ustbp/> 6> sp;
&np; EM 口(bsp; idnbsp;   E 縰">使用道" o)
bsp;   End Selec涞氖褂胦t;p/> 6>/> c涞氖; &n褂胦t;&rrid=4=ust&r> p/> 6>&二步:判断小明的成/> cP★/> -1)&褂turnug.onend 举报 o)
'popd=ustbp/> 6>, 縰"sp; &nbsid=uotpopm 分v>
bcheckpopm ('=ustbp/> 6>')r &nb > &nb Su但 "=nbr "sp; &nbsatmluSr ////////////// "plc"> ;pa吹r =
SuS > &> p> '=ustbp/> 5 '础H绻鹀msoftCasor" =b=/> p> '=idp/> 5 '础H绻鹥l/> 旨r/G y果pidp/> 5 '磂l= ;pa吹row
p> 'f&qu

5 '碿"> ;paug.qu <=1" > p碿"> ;pa/> &> p碿"> ;p笥1/> bsp; &俦辏梢钥碞C-17级 级的电影,某230 ' ;p肽腶rthurlwyi ebu & > & & > & &> p碿"> ;pid=uotblk bui card_gender_> > 'br iv fop/> 5 '講>

p碿"> ;pm z 但> p> 'br iv fop/> 5 _ma> > & & > & &> p碿"> ;pi y 但> 但衧 ;p氤triarthurlwyi ebur < & ;plc 但衐t>积分d/dt> ;p氤tri21 ebur dSu但/da_p> 碿"> ;pim岁 但衎sp; &俦辏梢钥碞C-17级 级的电影,某230 兜牡缤c碢G 糱r '否则,硆inG 糱r  ="查看详细资料> 昕梢钥碦 级电影〖br ; &100裕
生" alr查看详细资料>
&但> p> '.qu '"s.onesot;swai"a_p
&但 > &但 > &但> &但> 碿"> ;p.qu ;pavt嵛 <颍rinG 糱r 昕梢钥碦 级电影.qu <>

3/91/23/0旨吨贫()middle>     生>
&但 > &但 > &但 Su但 "plc"> ;pa璸t"但> plc"> ;pa/> 但> plc"> ;pa /> &> plc"> ;padb"a_ & > &但> plc"> ;p笥1/> 但嘘可襩c"> ;p笥1/cn16岁/> '笥1/cuop/> 5 '众90"笥'6u')是,杉PGonline, mber>生 '笥1or=ustuop/> 5 >bsp;   ;ppip_pt|p
显示全部楼层r =4但 > &但 > &但 > &> plc"> ;ppf'&> plc"> ;pa_br> &> plc"> ;ppcb> 但> plc"> ;pt_fsz 但=/> p0裕= ;pt_f/> '=ustmess牵琤p/> 5 但> plc"> ;pblocka_ptrS> p> 'a_pt_nCCrS"a_perrOa /on Exp; &i
牵'" /Integer, 家长s.on'" /Stiv a"="a_pt"
16n"="a_pt"
16n牵'= Val(形薮笕 =n>
16nr> 16n"="a_pt" 16nr> 16n试 clanerr s牵"="a_pt" 16nr> 16nerr s ="al"aut13"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16 .onern> 16nr> 16nerr s ="al"aut1a_pt="a_pt"="a_pt="a_pt="a_ptE&nbs.onebs.onebs.one家长s.on'=n .one=n> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16Ifo家长s.on'=nvbYescn vm"="a_pt" 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16n .onern> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16.one"="a_pt" 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16n .onern> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16.refIf"="a_pt" 16nr> 16nerr s ="al"aut18"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16 .onern> 16nr> 16nerr s.one"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16 .onern> 16nr> 16/.ref试 cla"="a_pt" 16nr> 16/"="a_pt" 16/r> 16/g> scor'" /Integer, f'" /Integer, 旨rV'" /Integer"="a_pt" 16/r> 16/"="a_pt" 16/r> 16/scor'=/In薮笕 =n> 16/r> 16/"="a_pt" 16/r> 16/Ifoscor'&g"aut90cn vm"="a_pt" 16/r> 16r> 16/r> 16r> 16r> 16 .onern> 16/r> 16s.one"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16旨rV'=n0"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16nofollow">显1全"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16旨rllow旨rVsgB1"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16Debug.Piv trn> 16nr> 16r> 16nr> 16r> 16r> 16iv>
16n.refIf"="a_pt" 16nr> 16n"="a_pt" f'" /Integer, 旨rV'" /Integer"="a_pt" 16/r> 16/旨rV'=n0"="a_pt" 16nr> 16n"="a_pt" 16nr> 16nnofollow0cn允1全/Step 7"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16旨rV'=n旨rV'+ i"="a_pt" 16nr> 16 iv>
16ndiv cla"
16n .oner旨rVdiv cla"
16ndiv cla" f1'" /Integer, f2'" /Integer, f3'" /Integer, 旨r1'" /Integer, 旨r2'" /Integer, 旨r3'" /Integer, 旨r'" /Integerdiv cla" 16nr> 16n旨r1'=n0"="a_pt" 16nr> 16nnofol1'=n">显1全/Step 3"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16旨r1'=n旨r1'+ i1"="a_pt" 16nr> 16 iv>
16ndiv cla"
16n旨r2'=n0"="a_pt" 16nr> 16nnofol2'=n2>显1全/Step 3"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16旨r2'=n旨r2'+ i2"="a_pt" 16nr> 16 iv>
16ndiv cla"
16n旨r3'=n0"="a_pt" 16nr> 16nnofol3'=n3>显1全/Step 3"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16旨r3'=n旨r3'+ i3"="a_pt" 16nr> 16 iv>
16ndiv cla"
16n .oner旨r1'+ 旨r2 - 旨r3"="a_pt" 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16r> 16变量:学生砪la"="a_pt" 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16nr> 16r> 16r> 16总分'=n总分+学生砪la"="a_pt" 学生人数'" /L 16nr> 16 学生人数'=/In薮笕 =n>
16 r> 16 "="a_pt" 16 r> 16 总分'=n0"="a_pt" 16nr> 16nnofol'=n">显恃耸"="a_pt" 16nr> 16r> 16nr> 16r> 16r> 16学生砪la'=/In薮笕 =n> 16 r> 16r> 16 r> 16r> 16r> 16总分'=n总分'+恃cla"="a_pt" 16 r> 16 iv>
16ndiv cla"
16n .onern>
16n .onern> &小6bsp; &nbscopya_pt($('a_pt_nCC'))s 复制代码 e bnp > & Su "=衦 /> SuSuSuSp > &uSp> p> 'a_m 縯bp/> 5 '础H绻鹀m 但 > &uS但> p> '=ust_rate_> bp/> 5 =衦> &uS衦> &uS衦> &uSuS衦 Su "=uS "= "plc"> ;pa璸 plm 但 Su但 "=uS "p> 'd=ust=usi /onp/> 5 =衦 "=uS "=uS "plc"> ;pa璼 =衦 Su但 "plc"> ;pa璫 '講> s 但> plc"> ;pao /> 但> plc"> ;paobplc 但 bn但衋plc"> ;pfa< 'p; &俦forum梢钥碞C-1=ust兜牡鏰c /on=reply兜牡鏵> 某啥的电t> r判断兜牡鐁ep> 5 兜牡鐅>回复r =4但衋plc"> ;preply.on 'p; &俦forum梢钥碞C-1misc兜牡鏰c /on==ustreview兜牡缤c磗uppot;兜牡鐃> r判断兜牡鏿> r/> 5 兜牡鏷ash=ab56econ 'bspp; &nbsshowWindow('lobr ', 1/s.p; &)"bspmobr over;pt1/s. '=n($('review_suppot;bp/> 5 ').inp; HTML ? $('review_suppot;bp/> 5 ').inp; HTML : 0)'+' 人 支持'">支持 7级 > preview_suppot;bp/> 5 =衦7级 =衦=4但衋plc"> ;preplysub r判断兜牡鏿> r/> 5 兜牡鏷ash=ab56econ 'bspp; &nbsshowWindow('lobr ', 1/s.p; &)"bspmobr over;pt1/s. '=n($('review_againstbp/> 5 ').inp; HTML ? $('review_againstbp/> 5 ').inp; HTML : 0)'+' 人 反对'">反对 7级 > preview_againstbp/> 5 =衦7级 =衦=4但衑 bnuSuS衟nuS衋pp; &="ji> script:;/> 'mgcd=ustbp/> 5 bspmobr over;pshowMenu(t1/s.id)"blc"> ;pshow 縰">使用道具衦=4但衋pp; &="ji> script:;/spp; &nbsshowWindow('miscrepot;p/> 5 ', 'misc梢钥碞C-1repot;&rtype==ust&r> p/> 5 &t> r判断秄> 某', '颍', -1)鐁eturn faones 举报衦=4但/pnuS但衭l/> 'mgcd=ustbp/> 5 , 縰"blc"> ;ppd=up mgcmn '講> checkmgcmn('=ustbp/> 5 ')衦7cript 但衦> &uS衦> &uS衦 Su但衦 "=uS "blc"> ;pad 但 "plc"> ;pa璼"blo= SuS衦> &> p> '=ustbp/> 55"blc"> ;pcmsoftCasor" = /> p> '=idp/> 55"blc"> ;ppl/> 旨rmary;ppidp/> 55"blel= ;pa璼"brow p> 'fi> tarp/> 55"blc"> ;pa璼 fa> tar 但 > plc"> ;pai 但> plc"> ;paut1/ =衋pp; &="hbr 梢钥碞C-1 某蓃475"btar颍 'dblank"blc"> ;pxw1">lvyluck衦=4但/> 4但/> 4但> blc"> ;ppd=up blk bui card_gender_/> 'br iv fop/> 55"b講> blc"> ;pm z 但> b> 'br iv fop/> 55_ma =/> 4但/> 4但> blc"> ;pi y 但> 但衧tr ;pxi2 lvyluck衦=4衦7tr 4 ;plc 但衐t>积分d/dt> ;pxi2 6衦=4衦dSu但/da_p> blc"> ;pimic 但衋pp; &="hbr 梢钥碞C-1 某蓃475兜牡缤c磒rofil 'tar颍 'dblank"b ="查看详细资料 =衖mg src="http://fil s.&.ex elhbr 蒼etr7tatic/image/a_m琽n/br iv fo.gif" al '查看详细资料 a_p衦=4但/> 4但> b> 'a> tarfeed 7级 > ptp; adsot;swait 衦7级 =衦> 4但衦> 4但衦> 4但> 4但> blc"> ;pa> tar 衋pp; &="hbr 梢钥碞C-1 某蓃475"blc"> ;pavtm"b&ar颍 'dblank"=衖mg src="http://a> tar.u.ex elhbr 蒼etr003/91/44/75_a> tar_middle.jpg/sperror;pt1/s.sperror;null;t1/s.src='http://u.ex elhbr 蒼etrimages/noa> tar_middle.gif' a_p衦=4衦> 4但衦> 4但衦> 4但衦 Su但 "plc"> ;pa璫 但> plc"> ;pa/ =但> plc"> ;pat/ =但> plc"> ;padbt 但衦> 4但> plc"> ;paut1/ =但衖mg lc"> ;paut1/cn vm"b> paut1/conp/> 55"bsrc="7tatic/image/a_m琽n/online, mber.gif a_p但小6> paut1or=ustonp/> 55">发表于 2017-12-4 19:00:03衦 bn但 ;ppipe">|衦7级 =但衋pp; &="tp; ad-r判断-1-1.html"brel="nofolasw">显示全部楼层衦=4但衦> 4但衦> 4但衦> 4> plc"> ;ppf'4> plc"> ;pa_ptt> 4> plc"> ;ppcb =但> plc"> ;pt_fsz 但 /> p el= ;pt_f"b> p=ustmessagebp/> 55" 但> plc"> ;pblocka_ptrS> p> pa_pt_VqFrS"a_p 16nr> 16g> age'" /L 16nr> 16g> 陪同否"="a_pt" 16nr> 16"="a_pt" 16nr> 16ndiv cla"
16age'=/In薮笕 =n>
16lr> 16"="a_pt" 16lr> 16Case Is &l hl13"="a_pt" 16lr> 16"="a_pt" 16lr> 16r> 16r> 16 .onern> 16lr> 16"="a_pt" 16lr> 16Case Is &l h=n"6"="a_pt" 16lr> 16"="a_pt" 16lr> 16r> 16r> 16陪同否'=/ .one=n> 16lr> 16r> 16r> 16"="a_pt" 16lr> 16r> 16r> 16"="a_pt" 16r> 16Ifo陪同否'=/vbYescn vm"="a_pt" 16/r> 16r> 16r> 16"="a_pt" 16/r> 16r> 16r> 16 .onern> 16r> 16"="a_pt" 16r> 16Eone"="a_pt" 16/r> 16r> 16/r> 16"="a_pt" 16/r> 16/ .onern> 16/r> 16/"="a_pt" 16r> 16.refIf"="a_pt" 16r> 16"="a_pt" 16/r> 16Case Is &l h=n"8"="a_pt" 16/r> 16"="a_pt" 16/r> 16 .onern> 16/r> 16"="a_pt" 16/r> 16"="a_pt" 16r> 16 .onern> 16r> 16"="a_pt" 16nr> 16"="a_pt" 16nr> 16g> 砪la'" /L 16nr> 16r> 16r> 16"="a_pt" 16nr> 16"="a_pt" 16nr> 16砪la'=/In薮笕 =n> 16nr> 16"="a_pt" 16r> 16 .onern> 16r> 16"="a_pt" 16r> 16nofol'=n">显1全"="a_pt" 16r> 16"="a_pt" 16r> 16Debug.Piv trn> 16r> 16iv>
16nr> 16g> f'" /L显1全"="a_pt" 16nr> 16fIfol'Mod 7'=n0cn vm"="a_pt" 16nr> 16fSmmV'=fSmmV'+ i"="a_pt" 16fr> 16f.refIf"="a_pt"
16 .onerSmmVdiv cla" f'" /L 16fr> 16nofol'=n2>显1"="a_pt" 16fr> 16r> 16r> 16"="a_pt" 16fr> 16SmmV'=fSmmV'+ i - (i'+ 1t"="a_pt" 16fr> 16"="a_pt" 16fr> 16r> 16fr> 16r> 16fr> 16r> 16fr> 16r> 16r> 16"="a_pt"
16fr> 16r> 16fr> 16g> 人数'" /L 16fr> 16r> 16fr> 16"="a_pt" 16fr> 16r> 16fr> 16人数'=/In薮笕 =n>显嗜耸"="a_pt" 16fr> 16r> 16r> 16学生砪la'=/In薮笕 =n> 16fr> 16r> 16r> 16总分'=n总分'+恃cla"="a_pt"
16fr> 16r> 16fr> 16 .onern> 16lr> 16r> 16lr> 16"="a_pt" &小6bsp; &nbscopya_pt($('a_pt_VqF'))s 复制代码 e bnp > & Su "=衦 /> SuSuSuSp > &uSp> p> 'a_m 縯bp/> 55"blc"> ;pcm 但 > &uS但> p> '=ust_rate_> bp/> 55" > &uS > &uS > &uSuS Su "=uS "= "plc"> ;pa璫 plm 但 Su但 "=uS "p> 'd=ust=usi /onp/> 55" "=uS "=uS "plc"> ;pa璼 =衦 Su但 "plc"> ;pa璫 '講> s 但> plc"> ;pao /> 但> plc"> ;paobplc 但 bn但衋plc"> ;pfa< 'p; &俦forum梢钥碞C-1=ust兜牡鏰c /on=reply兜牡鏵> 某啥的电t> r判断兜牡鐁ep> 55兜牡鐅>回复r =4但衋plc"> ;preply.on 'p; &俦forum梢钥碞C-1misc兜牡鏰c /on==ustreview兜牡缤c磗uppot;兜牡鐃> r判断兜牡鏿> r/> 55兜牡鏷ash=ab56econ 'bspp; &nbsshowWindow('lobr ', 1/s.p; &)"bspmobr over;pt1/s. '=n($('review_suppot;bp/> 55').inp; HTML ? $('review_suppot;bp/> 55').inp; HTML : 0)'+' 人 支持'">支持 7级 > preview_suppot;bp/> 55 =衦7级 =衦=4但衋plc"> ;preplysub r判断兜牡鏿> r/> 55兜牡鏷ash=ab56econ 'bspp; &nbsshowWindow('lobr ', 1/s.p; &)"bspmobr over;pt1/s. '=n($('review_againstbp/> 55').inp; HTML ? $('review_againstbp/> 55').inp; HTML : 0)'+' 人 反对'">反对 7级 > preview_againstbp/> 55 =衦7级 =衦=4但衑 bnuSuS衟nuS衋pp; &="ji> script:;/> pmgcd=ustbp/> 55 bspmobr over;pshowMenu(t1/s.id)"blc"> ;pshow 縰">使用道具衦=4但衋pp; &="ji> script:;/spp; &nbsshowWindow('miscrepot;p/> 55', 'misc梢钥碞C-1repot;&rtype==ust&r> p/> 55&t> r判断秄> 某', '颍', -1)鐁eturn faones 举报衦=4但/pnuS但衭l/> 'mgcd=ustbp/> 55_m 縰"blc"> ;ppd=up mgcmn '講> checkmgcmn('=ustbp/> 55')衦7cript 但 > &uS > &uS Su但 "=uS "blc"> ;pad 但 "plc"> ;pa璼"blo= SuS衦> &> p> '=ustlistreply"blc"> ;pa => p> '=ust_new"blc"> ;pviewtp; ad_ /> '講> &衦> &uS衦> &uS但uS衒orm met1o '=ust" autoa_mple e="off"bname="NC-ac /ons"b> 'NC-ac /ons"&uS1衦7tro/a>衋pp; &="tp; ad-r判断-2-1.html">2衦=4衋pp; &="tp; ad-r判断-3-1.html">3衦=4衋pp; &="tp; ad-r判断-4-1.html">4衦=4衋pp; &="tp; ad-r判断-5-1.html">5衦=4衋pp; &="tp; ad-r判断-6-1.html">6衦=4衋pp; &="tp; ad-r判断-7-1.html">7衦=4衋pp; &="tp; ad-r判断-8-1.html">8衦=4衛abea_pin薮 type="tv>< 'name="cu t_mp牵" lc"> ;ppx '謎ze="2"b ="auth页码,按回车快速跳转" value=" 'onkeydown="if(ev 縯.keyC_pt==13) {window.locat/on='forum梢钥碞C-1viewtp; ad&t> r判断兜牡鏴>l/ 8 页衦7级 4衦labea_papp; &="tp; ad-r判断-2-1.html" lc"> ;pn>< >下一页衦=4衦> &7级 lc"> ;ppgb y 衋pp; &="forum-某-1.html">返回列表衦=4衦7级 &uS 'newspecialtmp 'spmobr over;p$('newspecial').id'=n'newspecialtmp';t1/s.id'=n'newspecial';showMenu({'ctrlid':t1/s.id})"bspp; &nbsshowWindow('newtp; ad', 'forum梢钥碞C-1=ust&ac /on=newtp; ad秄> 某')"bp; &="ji> script:;/ ="发新帖 衖mg src="http://files.&.ex elhbr .netr7tat/c/image/a_m琽n/pnd=ust.png" alt="发新帖 'cl衦=4uS &uS但