(4)一棵二叉树第6层(根结点为第一层)的结点数最多为_【4】个。 (5)数据结构分为逻辑结构和存储结构,循环队列属于【5】结构 (6)设有下列函数过程: Function fun(m As Integer )As Integer Dim k As Integer, sum As Integer End Function 若在程序中用语句s=fun(10)调用此函数,则s的值为【6】 (7)在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的 Click事件过程。程序运行后, 在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输 入的其他所有英文字母,并以大写方式降序显示到 TextI中。例如,若在Text1中输入的是 abDfdb,则单击 Command I按钮后Text中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC 请填空。 Private Sub Commandl Click() Dim str As String, Ss As String, c As String str=UCase(Text1) While c>=A" If Instr(str, c0 The s=【7】 End If c=Chrs(Asc(c)【8】) Wend Ifs∞““Then Text=s End If End Sub (8)在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用 公式川计算,下图窗体中3个文本框的名称依次是 TextI、Text2、Text3。程序 (n-r)!r 运行时在 TextI、Text2中分别输入n和r的值,单击 Command1按钮即可求出选法的 个数,并显示在Text3文本框中,如图所示。请填空。 在P个人中选F人共有种选法 Private Sub Commandl Click( Dim r As Integer, n As Integer n-ex nText 二级Ⅴ isual basic语言程序设计试卷第9页(共11页)二级 Visual Basic 语言程序设计试卷 第 9 页（共 11 页） （4）一棵二叉树第 6 层（根结点为第一层）的结点数最多为 【4】 个。 （5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。 （6）设有下列函数过程： Function fun(m As Integer)As Integer Dim k As Integer,sum As Integer sum=0 For k=m To 1 Step-2 sum=sum+k Next k fun=sum End Function 若在程序中用语句 s=fun(10)调用此函数，则 s 的值为 【6】 。 （7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click 事件过程。程序运行后， 在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输 入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1 中输入的是 abDfdb，则单击Command1按钮后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 Instr(str,c)=0 The s= 【7】 End If c=Chr$(Asc(c) 【8】 ) Wend If s<>“ “ Then Text1=s End If End Sub （8）在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用 公式 ( )! ! ! n r r n − 计算，下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序 运行时在 Text1、Text2 中分别输入 n 和 r 的值，单击 Command1 按钮即可求出选法的 个数，并显示在 Text3 文本框中，如图所示。请填空。 Private Sub Command1_Click( ) Dim r As Integer,n As Integer n=Text1 r=Text2