http://www.allycomics.com/

http://wenku.baidu.com/link?url=k64YwHlVcUTsCUKVSgem-zH9ogIJU9X8Q7Mxo51elKtlJxg5-9tEbZURDJzWj8IqMwfxqxUj0g110fu2VPKYia0duog_Drc8Tq5WGaXjhLe

http://wenku.baidu.com/link?url=baVpDBB5B9wL7ubZRYOpxYHXDrB2AFeNdxi1JvrZD24vEiWyAeVLmQ1Rz2y4znbK4-FeZZeUaxPx0_oLEz5xVaE9_rSjeIPlvNQPjmo3v9e

http://wenku.baidu.com/link?url=9WXlXdkuoyw_dp5gtynfkoYhq63jtWTXnhWwILdkMV6LKlK7nkK7pEJxug6P9rEpvHAv8Qxfm-SOZ8IEmvmWiVMpf10T37k9NCZPMg84_DK

出品人 北京若森数字

“这是我最后一次来陪你了”
“我说小妞，你究竟要顽抗到何时呀？”
“嚄，我你都不知道。”
”妖人？“”我三招之内必取下你的人头。“
“我的兄弟会替我报仇的......我杨桀在地狱恭候大驾。"
”有兵燹之灾！“
""我们回东亹镇！“

出品人：张轶弢、蔡洪雄
总策划：张轶弢、刘阔、吴震
监制：周宁、庞大龙、杨磊
剧本策划：张轶弢、刘阔、关心
编剧：刘阔、关心
艺术总监：刘阔
技术总监：刘光辉
制作总监：吴大卫
市场总监：孙莉
音乐总监：魏小涵
音效总监：张怀武
音乐监制：刘阔、关心
艺术顾问：房晓溪
总导演：刘阔、关心
配音导演：褚珺
动画导演：韩艳
镜头导演：唐媛
美术导演：郁茜茜
前期主管：郁茜茜
模型主管：陈新林
材质主管：李晓君
设置主管：崔亮
Layout主管：王栋
动画主管：王萍
特效主管：林姗
灯光主管：彭义成
协调：周娜
动捕指导：刘欢欢

'自己修改
Option Explicit
Const studentNUM = 30
Private Sub Form_Click()
Dim arr(), i, max, min, temp, sum, a(), m, maxno, minno
ReDim arr(1 To studentNUM)
For i = 1 To UBound(arr)
Randomize
arr(i) = Int(Rnd * 100) + 1
If i = 1 Then
max = arr(i): min = max
maxno = i: minno = i
Else
If min > arr(i) Then
min = arr(i)
minno = i
End If
If max < arr(i) Then
max = arr(i)
maxno = i
End If
End If
sum = sum + arr(i)
If arr(i) >= 60 Then
m = m + 1
End If
Next
For i = 1 To UBound(arr)
Debug.Print arr(i);
If i Mod 10 = 0 Then Debug.Print
Next
Debug.Print vbNewLine & "最高分:" & max & Space(4) & "学号：" & maxno & vbNewLine & "最低分:" & min & Space(4) & "学号：" & minno & vbNewLine
Debug.Print "平均分:" & Format(sum / UBound(arr), "0.00") & "及格人数:" & m & vbNewLine & "及格率:" & Format(m / UBound(arr), "0.00%")
End Sub