1Vb 填空题、操作题部分试题 切勿丢失VB 操作题部分操作题部分VB1打开“考生文件夹18”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！填空完成程序，使程序实现如下功能：从键盘输入10个100以内的 整数，单击命令按钮后在窗体上输出其中的最大 数，最小数和平均值。 Private Sub Command1_Click()Dim x As Integerx = InputBox(“请输入您的数：“)Print “您输入的数有“ “、“;Max = x: Min = x: Sum = xFor i = 2 To 10x = InputBox(“请输入您的数“): Print x;Sum = Sum + xIf MaxxMaxx Then Max = xIf Min 0 And x 3 And x x 10 Then y = 26+(x-10)26+(x-10)* 3If x = 60 ThenLabel1.Caption = “及格“End If If a 0 Then py=“正数“ If a=0 Then py=“零“If ato)As 例1 dim a(1 to 10) As Integer a数组有10个元素 或者： Dim 数组名(to)dim a%（1 to 10） 通过循环给数组赋值 For i= 1 to 10a(i)=inputbox(“输入第 （”& I &”） 的值) 循环10次，每次填入一个数字分别存入a（1），Next Ia(2),a(3)a（10）