求最大、最小以及平均值由 “确定”按钮 Command2的“重置”按钮 Command 1的ick事件代 Click事件代码完成 码 Private Sub Private Sub Command1_Click Command2 Click Form load TextI Text= Dim n As Integer, m As Integer, Text2Text S As Single min=100:max=10:s=0 Text3 Text Fori= 1 To 10 End sub Ifa(i> n Then max=a( 最后是“关闭”按钮 Command3的 If a()<m Then min-a(i Clck事件代码: s=s+a(1) Private Sub Command3 Click Next Unload me Text 1. Text =max End sub Text2 Text = min Text3Text =s/10 End sub求最大、最小以及平均值由 “ 确 定 ” 按 钮 Command2 的 Click事件代码完成： Private Sub Command2_Click() Dim n As Integer, m As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) > n Then max = a(i) If a(i) < m Then min = a(i) s = s + a(i) Next Text1.Text = max Text2.Text = min Text3.Text = s / 10 End Sub “重置”按钮Command1的Click事件代 码： Private Sub Command1_Click() Form_Load Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub 最后是“关闭”按钮Command3的 Click事件代码： Private Sub Command3_Click() Unload Me End Sub