（26）编写下列事件过程和函数过程

Private Sub Command1_Click()

         Dim num（1 TO 6）As Single

       Num(1)=103:Num(2)=190:Num(3)=0:

             Num(4)=32:Num(5)=-56:Num(6)=100:

       Print

       Print p2(6,num())

         End Sub

         Private Function p2(By Val n Integer,number()As Single)As Integer

             P2=number(1)

       For j=2 To n

       If number(j)

       Next j

         End Function

         程序运行后，在窗体上输出

（13）首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是。

（14）窗体中有一个命令按钮，然后编写下列事件过程：

         Private Sub Command1_Click()

        x=0

        Do Until x=-1

           a=InputBox("请输入第一个数字a的值")

           a=Val(a)

           b=InputBox("请输入第二个数字b的值")

           b=Val(b)

           x=InputBox("请输入第二个数字x的值")

                 x=Val(x)

           a=a+b+x

        Loop

        Print a

         End Sub

         在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8，-1，输出的结果是。

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

         Do While List2.ListCount

List2.RemoveItem0

         Loop

（12）下列程序段的执行结果是。

         i=4

         a=5

         Do

           i=i+1

           a=a+2

         Loop Until i>=7

         Print"A=";a

（11）下列的For语句循环体要执行50次，请填空。

      For k=To -7 Step -3

（9）列表框的List属性返回。

（8）下列程序在窗体上输入，在立即窗口中输入________。

        S1="software"

        S2="hardware"

        S3="computer"

        Print Right(S1,3)

        Picture1.Print Mid(S2,2,4)

        Debug.Print Left(S3,2)

（6）为了选择多个控件，可以按住键，然后单击每个控件。

（7）执行下列语句后，输出结果是。

        s$="ABCDEFG"

        Print InStr(s$,"efg")

        Print LCase$(s$)

（4）排序时计算机程序设计中一种重要操作，常见的排序方法有插入排序、和选择排序。