（22）某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直接删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序。

         Private Sub Command2_Click()

        HScro11l.Min=0

        HScro11l.Max=List1.ListCount

        HScro11l.Value=0

        Timer1.Interval= ________

        Timer1.Enabled=True

         End Sub

         Private Sub Timer1_Timer()

        If List1.ListCount>0 Then

        List1.RemoveItem 0

        HScro11l.Value=HScro11l.Max-Listl.ListCount

        Else

        Timer1.Enabled=_________

              MsgBox"全部删除！"

        End If

         End Sub

（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）按照逻辑结构分类，结构可以分为线性结构和非线性结构，栈属于。