（24）在窗体上画1个名为Text1的文本框和1个名为Labe11的标签，再画4个名为Op1的单选按钮控件数组，其Index属性按季度顺序为0~3，如图1所示。在文件Sales.txt中按月份顺序存有某年12个月的销售额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句

         Option Base 1

         Dim sales(12)As Load

         Private Sub For_Load()

        Open"c:\sales.txt"For Input As#1

        For k=1 To 12

      Input#1,sales(k)

        Next

        Close#1

         End Sub

         Private Sub_________(Index As Integer)

         Dim sum As Long,k As Integer,month As Integer

        sum=0

        Month=Index*________

        For k=1 To 3

      month=month+1

      sum=sum+sales(month)

              Next k

        Label1.Caption=__________.Caption&"销售总额："

        Text1=sum

         End Sub

（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）排序时计算机程序设计中一种重要操作，常见的排序方法有插入排序、和选择排序。