相关试卷

●对各个活动按结束时间先后进行升序排序，若结束时间相同，按开始时间先后升序排序。

●先安排结束时间最早的活动，依次考虑未安排的活动，如果和已安排的活动没有时间冲突，则予以安排；否则，不予安排。

小明为此编写了VB程序，功能如下：在列表框List1读取活动编号、活动时间（开始时间-结束时间）。按编号依次显示。单击“统筹安排”按钮Command1，对申请的活动按规定进行排序，并在列表框List2中输出当天能安排的活动编号、活动时间和数量。程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=11

Dimd（1 To n）As Iteger

Private Sub Form_ Load( )

    '生成n个随机整数存入数组d，并在Label1中显示，代码略

End Sub

Private Sub Command1_Click( )

    Dim sum As Integer， L As Integer， R As Integer， c As Integer

        ①   

    c=0

    For L=1 To n-1

        R=n

        Do While L< R

            If   ②    Then

                List1.Addtcem Str（d（L））& " " & Str（d（R））

                c=c+1

                Exit Do      'Exit Do表示退出循环

            Else

            End If

        Loop

    Next L

    List.Addtem "找到和为" "& Str（sum）& "的数对共" & Str（c）&"组"

End Sub

请回答下列问题：

图a

i= 1：length = n

Do While i < length

    j=i+ 1

    Do While j <= length

        If a（i） = a（j） Then

            For m=j+ 1 To length

            Next m

            length = length- 1

        Else

        End If

    Loop

    i=i+1

Loop

输出a（1）至a（lengh）的值，代码略

上述程序段两个方框处的语句分别为（    ）

m= Int（Rnd*3+1）*2

For i=1 To 6-m

    For j=6 To i+ 1 Step-1

        If a（j）<a（j- 1）Then t= a（j）： a（j）= a（j- 1）；a（j- 1）=t

    Next j

Next i

数组元素a(1)到a(6)的值依次为"98，67，3， 81，38，21"， 执行该程序段后，a(1)~a(6)各元素值不可能是（    ）

s = Text1.Text

ch = Mid（s，1，1）：Max= 0

For i=2 To Len（s）

    If Mid（s，i，1）>= Mid（s，i-1，1） Then

        ch=ch+Mid（s，i，1）

        If Len（ch）> Max Then Max = Len（ch）： ans = ch

    Else

        ch = Mid（s，i，1）

    End If

Next i

在文本框Text1中输入“Access2010*”。执行该程序段后，变量ans的值为（    ）

temp = a(1)

For i=2 To 10

Next i

数组元素a(1)到a(10)的值依次为“36，48，25，32，28，20，30，52，15，8”。程序段中加框处语句执行5次后，变量temp的值为（    ）

​​