End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为【6】 。
(7)在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click()
Dim str As String，s As String，c As String
str=UCase(Text1)
S=""
C="Z"
While c＞="A"
If lnStr(str,C)=0 Then
s= 【7】
End If
c=Chr$(Asc(C) 【8】 )
Wend
If s＜＞""Then
Text1=S
End If
End Sub
(8)在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text。程序运行时在 Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在
Text3文本框中(见下图)。请填空。
Private Sub Command1_Click()
Dim r As Integer，n As Integer
n=Textl
r=Text2
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＞Textloc)Then
min=Text1(k)
End If
sum=sum+Textl(k)
Next k
Text2= 【13】 /5
End Sub
(10)如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。