（18）在窗体上有一个文本框Text1、Text属性值为空，然后编写下列事件过程：

         Privte Sub Text1_KeyPress(KeyAscii As Integer)

         Dim str As String,n As Integer

             Str=UCase(Chr(KeyAscii)

       n=Len(str)

       Text1.Text=String(n,str)

         End Sub

         程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为。

（10）假设有下列程序段：

         For i=1 To 3

           For j=5 To 1 Step -1

          Print i*j

           Next j

         Next i

则语句Print i*j的执行次数是，i的值为______，j的值为______。

（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。

         Private Sub Command1_Click()

          Max=0

          Mix=10

          For i=1 To 20

         n=Val(InputBox("请输入分数"))

         If n>Max Then Max=n

         If n>Mix Then Mix=n

         s=s+n

 s=s-Mix-Max

          P=s/18

          Print"最高分";Max;"最低分";Mix

          Print"最后得分：";p

         End Sub

（9）滚动条的最小值属性是，最大值属性是______。

（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除        

Do While List2.ListCount

           _____________________

           List2.RemoveItem 0

        Loop

下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。

        Private Sub Command1_Click()

       x=Val(Text1.Text)

       IfThen

          Print x

       Else

          ________

          Text1.Text=""

       End If

        End Sub

（4）在面向对象方法中，类之间共享属性和方法的机制称为。

（5）软件是程序、数据和的集合。

（6）表达式Len(Str(1.3))Mod2的值为。

（3）树中度为零的结点称为。

（2）按照逻辑结构分类，结构可以分为线性结构和非线性结构，栈属于。