Text3=fin(n)fin(【9】fun(r) End Sub Function fun(n As Integer )as long Dim tas long 10】 For k=l To n t=t*k Next End function (9)下列是一个比赛评分程序。在窗体上建立一个名为 TextI的文本框数组,然后画一个 名为Text2的文本框和名为 Command1的命令按钮。运行时在文本框数组中输入7 个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个 最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。 5577515 最后得分 计算得 Private Sub Commandl Click( Dim k as integer Dim sum As Single, max As Single, min As Single max=TextI(O) min=【1l】 Fork=【12】To6 If max<Textl(k)Then max=TextI(k) End lf If min>Text(k)Then sum=sum+TextI(k) Next k End Sub (10)如图所示,在列表框istl中已经有若干人的简单信息,运行时在 TextI文本框(即 “査找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中 进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列选项, 则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。 sForm 查找对象: 二级Ⅴ isual basic语言程序设计试卷第10页(共11页)二级 Visual Basic 语言程序设计试卷 第 10 页（共 11 页） Text3=fun(n)/fun( 【9】 )/fun(r) End Sub Function fun(n As Integer)as long Dim t As Long 【10】 For k=1 To n t=t*k Next fun=t End Function （9）下列是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个 名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中（去掉一个 最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。 Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum=Text1(0) max=Text1(0) min= 【11】 For k= 【12】 To 6 If max<Text1(k)Then max=Text1(k) End If If min>Text(k)Then Min=Text1(k) End If sum=sum+Text1(k) Next k Text2=( 【13】 )/5 End Sub （10）如图所示，在列表框 list1 中已经有若干人的简单信息，运行时在 Text1 文本框（即 “查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中 进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列选项， 则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空