form1.frm

来自「vb电子书籍」· FRM 代码 · 共 47 行

   VERSION 5.00
   Begin VB.Form Form1
      Caption         =   "动态数组"
      ClientHeight    =   4170
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   6720
      LinkTopic       =   "Form1"
      MaxButton       =   0   'False
      ScaleHeight     =   4170
      ScaleWidth      =   6720
      StartUpPosition =   2  '屏幕中心
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose

'##################################################################
'## 过程名称：Form_Click
'## 参数： 无
'##################################################################
Private Sub Form_Click()
    Dim mark() As Integer, i%, n%, avr!
    n = InputBox("输入学生人数")
    ReDim mark(1 To n)
    aver = 0
    For i = 1 To n
        mark(i) = Int(Rnd * 101)
        aver = aver + mark(i)
    Next i
    
    ReDim Preserve mark(1 To n + 2)
    mark(n + 1) = aver / n
    mark(n + 2) = 0
    For i = 1 To n
        If mark(i) > mark(n + 1) Then mark(n + 2) = mark(n + 2) + 1
    Next i
    For i = 1 To n
        Print "mark("; i; ")="; mark(i)
    Next i
    Print "平均分="; mark(n + 1), "高于平均分人数="; mark(n + 2)
End Sub