[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为 Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击&ld
12 查阅
[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为 Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分),如图所示。请填空。Private Sub Command1_Click()Dim k As IntegerDim sum As Single,max As Single,min As Singlesum=Text1(0)max=Text1(0)min= 【1】 For k= 【2】 To 6If max<Text1(k)Thenmax=Text1(k)End IfIf min>Textloc)Thenmin=Text1(k)End Ifsum=sum+Textl(k)Next kText2= 【3】 /5End Sub
参考答案: