例3.frm

在VB5环境下开发的VB程序集,窗体控件源代码.

VERSION 5.00
Begin VB.Form FRM6_5_1 
   BackColor       =   &H00C0FFC0&
   Caption         =   "6_5_1:数组实例1--求平均成绩"
   ClientHeight    =   4755
   ClientLeft      =   1155
   ClientTop       =   1260
   ClientWidth     =   7125
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   18
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4755
   ScaleWidth      =   7125
   Begin VB.TextBox Text3 
      Height          =   495
      Left            =   3960
      TabIndex        =   7
      Top             =   3120
      Width           =   1695
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   3960
      TabIndex        =   5
      Top             =   2400
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF00FF&
      Caption         =   "点此按钮输入每个学生的成绩并计算"
      Height          =   495
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1680
      Width           =   5895
   End
   Begin VB.TextBox Text1 
      Height          =   435
      Left            =   4680
      TabIndex        =   2
      Top             =   960
      Width           =   975
   End
   Begin VB.Label Label5 
      BackColor       =   &H0000FF00&
      Caption         =   "提示:由于n值可变,故应使用动态数组!"
      ForeColor       =   &H00C00000&
      Height          =   495
      Left            =   600
      TabIndex        =   8
      Top             =   3960
      Width           =   6135
   End
   Begin VB.Label Label4 
      BackColor       =   &H000000FF&
      Caption         =   "VB最高分:"
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   1320
      TabIndex        =   6
      Top             =   3120
      Width           =   1815
   End
   Begin VB.Label Label3 
      BackColor       =   &H000000FF&
      Caption         =   "VB平均分:"
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   1320
      TabIndex        =   4
      Top             =   2400
      Width           =   1815
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFF00&
      Caption         =   "请输入学生人数n:"
      Height          =   495
      Left            =   1320
      TabIndex        =   1
      Top             =   960
      Width           =   3015
   End
   Begin VB.Label Label1 
      BackColor       =   &H0080FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   " 求n个学生VB的平均成绩和最高分"
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   5775
   End
End
Attribute VB_Name = "FRM6_5_1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Dim VB()
Private Sub Command1_Click()
Dim N As Integer
Dim SUM As Single
Dim MAX As Single
Text2 = "": Text3 = ""
N = Val(Text1)
ReDim VB(N)

For I = 1 To N
PROMPT = "Enter  No." & Str(I) & "  VB  score"
VB(I) = InputBox(PROMPT)
Next I

For I = 1 To N
SUM = SUM + VB(I)
Next I
Text2 = SUM / N

MAX = VB(1)
For I = 2 To N
If VB(I) > MAX Then MAX = VB(I)
Next I
Text3 = MAX
End Sub