例7.4.frm

来自「一本学习Visual Basic编程的好书」· FRM 代码 · 共 52 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
   Dim jc(100) As Integer, x As Integer, _
       n As Integer, sum As Long, _
       max As Integer, min As Integer
   n = 0
   Do While True
      x = Val(InputBox("请输入第" & n + 1 & _
               "个学生的成绩(-1结束)"))
      If x = -1 Then Exit Do
      n = n + 1
      jc(n) = x
   Loop
   If n > 0 Then
      Call caljc(n, jc(), sum, max, min)
   Else
      End
   End If
   Show
   Print "平均分："; Format(sum / n, "###.0")
   Print "最高分："; max
   Print "最低分："; min
End Sub
Sub caljc(k As Integer, darray() As Integer, _
           s As Long, m As Integer, n As Integer)
   Dim i As Integer
   s = darray(1): m = darray(1): n = darray(1)
   If k = 1 Then Exit Sub
   For i = 2 To k
      s = s + darray(i)
      If m < darray(i) Then m = darray(i)
      If n > darray(i) Then n = darray(i)
   Next i
End Sub