学进去

在VB中，若a=6，b=3，下面程序段执行后，变量a、b的值分别是（  ）
If a>=b Then
a=b
b=a
End If

A．3和3

B．3和6

C．6和3

D．6和6

一段 1280*720 像素、24位真彩色、PAL 制式的未压缩 AVI 格式无声视频，其存储容量约为 330MB，则该视频的时长约为（）

A．5 秒

B．40 秒

C．60 秒

D．120 秒

某对分查找算法的VB程序段如下：
’随机产生包含20个整型元素的升序序列，依次存入数组a.代码略
i ＝ l：j ＝ 20：s ＝ ""
key ＝ Val（Text1. Text）
Do While i ＜＝ j
m ＝（i ＋ j）\2
s ＝ s ＋ Str（a（m））
If a（m）＝ key Then Exit Do    ’Exit Do表示退出循环
If a（m）＞ key Then j ＝ m — 1 Else i ＝ m ＋ 1
Loop
Text2. Text ＝ s
在文本框Text1中输入待查找数，执行该程序段后，下列选项中，文本框Text2中显示的内容不可能的是（  ）

A．78 50 46 33

B．51 37 41 48

C．74 50 46 51

D．73 83 87 89

某著名景点在七月份收到若干旅游公司的通告，通告中包括该公司旅游的起始时间和终止时间，如[6，10]表示该旅行团 6 号早上到，10 号早上回。疫情期间为避免人员扎堆，公司在时间段[start， ending]进行限流操作，要求在该时间段内景点每天都接待游客，且接待的旅行团越少越好。若景点收到的旅行团的数据是[3，8]、[3，6]、[8，15]、[18，25]、[14，20]、[5，10]，[10，18]、[13，18]限流时间是[4，19]。工作人员对旅行团的数据做了如下处理：
①将旅行团的旅行时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序。排好序的时间段是[3，6]、[3，8]、[5，10]、[8，15]、[10，18]、[13，18]，[14，20]、[18，25].
②从前往后遍历时间段，选择“到达时间”不大于“限流开始时间”的时间段，若有多个时间段满足条件，且时间段未超出限流时间，应选择“返回时间”最大的时间段，选择的时间段是[3，8]。
③缩小限流时间[8，19]，重复步骤 2，选择满足条件的时间段是[8，15]，缩小限流时间[15，19]，重复步骤 2，选择满足条件的时间段是[14，20]，结束时间已超过限流终止时间，结束。
④若在遍历时间过程中出现“到达时间”大于“限流开始时间”，景点不能每天接待旅客，则没有满足条件的旅行社。
小王编写 VB 程序，程序界面如下所示，单击“排序”按钮，将旅行团的时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序，在 Text1 和 Text2 中输入限流的起始时间和终止时间，单击“满足条件的旅行团”按钮，在列表框输出满足条件的旅行团的时间，若没有满足条件的旅行社，则在列表框输出“没有满足条件的旅行团！” 
回答下列问题：
（1）若景点接收到的旅行社的起始时间和终止时间分别为[5，17]、[7，18]、[4，12]、[3，8]、[2，10]，限流时间是[3，15]，筛选出的旅行团的时间是_________________
（2）请在横线处填入合适的代码
Dim i As Integer, j As Integer, n As Integer, t As Integer Dim a(100) As Integer, b(100) As Integer
Private Sub Command1_Click()
' 将旅行团个数存入 n,加载 n 个旅行团的起始时间、终止时间并分别放在数组 a 和数组 b 中,代码略
For i = n to 2 step -1
j=1
Do while ①_________
If a(j) > a(j + 1) Or a(j) = a(j + 1) And b(j) > b(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = b(j): b(j) = b(j + 1): b(j + 1) = t
End If
j=j+1
Loop
Next i
' 输出排好序的时间段,代码略
End Sub
Private Sub Command2_Click()
Dim arrivetime As Integer, leavetime As Integer
start = Val(Text1.Text): ending = Val(Text2.Text)
For i = 1 To n
arrivetime = start
If a(i) <= arrivetime Then
If b(i) > leavetime Then leavetime = b(i):t=i
If②________Then
List2.AddItem  Str(a(t))  &  "---"  &  Str(b(t)) Exit For
End If
Else
If start < arrivetime or i = 1 Then
List2.Clear
List2.AddItem "没有满足条件的旅行团!"
Exit For
End If
List2.AddItem Str(a(t)) & "---" & Str(b(t))
③________
i = i – 1
End If
Next i
End Sub

有如下 VB 程序段：
Dim d(1 to 5) As Integer,i As Integer
For i = 1 To 8
a(i) = Int(Rnd *10)+ 1
Next i
For i = 1 To 5 Step 2
k = i
For j = i + 2 To 7 Step 2
If a(j) < a(k) Or a(j)= a(k) And a(j + 1)< a(k + 1) Then k = j
Next j
If i < > k Then
t = a(i): a(i)= a(k):a(k)= t
t = a(i + 1): a(i + 1)= a(k + 1): a(k + 1)= t
End If
Next i
运行该程序段后，数组 a 各元素的值可能为

A．1，2，1，1，4，3，6，5	B．1，1，1，2，3，4，5，6
C．0，1，5，2，7，4，5，6	D．3，4，5，2，6，4，7，11

有如下 VB 程序段：
'生成 6 个随机正整数,依次存入数组 a(1)到(6),代码略
Const n = 6
k = Int(Rnd * 3)
For i = 1 To 2
For j = 1 To n - i - k
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
执行上述程序段后，下列选项中，a(1)到 a(6)各元素的值不可能是（  ）

A．2，1，4，5，5，8	B．5，6，7，7，9，1
C．1，7，6，7，6，5	D．8，5，1，2，8，8

有如下VB程序段：
For i = 1 To 6
x = Int(Rnd * 10) + 1
If i Mod 2 <> x Mod 2 Then
a(i) = x
Else
a(7 - i) = x
End If
Next i
数组 a 各元素的初始值为 0，执行程序后a 数组各元素的值不可能是（  ）

A．8，7，0，0，6，5	B．0，9，8，3，6，3
C．6，7，2，3，2，0	D．2，9，4，7，10，3

有如下VB程序段：
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
Next i
数组a各元素的初始值都为0，文本框Textl的内容为“Happy2017”。执行程序后，变量n的值为（　　）

A．1

B．2

C．4

D．9

编写VB程序，功能是根据某用户在学习平台上的学习记录，判断该用户是否完整学习完某课程的所有视频内容。一个课程由若干个视频组成，用户需要观看完该课程所有视频才能完成该课程的学习。用户可以间断的学习视频内容，每次学习都会记录学习数据，重复观看部分不计入有效时长，学习数据包含3项内容：观看的视频编号、开始时间、结束时间。示例如下表：
课程信息表                                 学习记录表

视频编号	视频时长（秒）		观看视频编号	开始时间（秒）	结束时间（秒）
1	3231		1	0	1000
2	796		1	300	600
3	2183		2	0	796
4	2929		1	700	2000
			4	500	1000
			4	1100	2929

表中，该课程由4个视频组成，视频时长依次为：3231、796、2183、2929秒。该用户有6条学习记录，其中第1条学习记录表示该用户观看了第1个视频第0秒到第1000秒的内容。6条记录中共有3条观看第1个视频内容的学习记录，观看第一个视频有效时长为2000秒。由于第1、3、4个视频的内容未观看完，因此该用户未完成该课程的学习。
（1）由示例数据可知，该用户要完成本课程的学习，仍需要学习的时间至少为________秒。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 20) As Integer    'a(i)存储第i个视频的总时长,单位为秒
Dim bh(1 To 1000) As Integer    'bh(i)存储第i条学习记录的视频编号
Dim stime(1 To 1000) As Integer    'stime(i)存储第i条学习记录的开始时间
Dim etime(1 To 1000) As Integer    'etime(i)存储第i条学习记录的结束时间
Dim n As Integer    '该课程的视频总数量,视频总数不超过20个
Dim m As Integer    '学习该课程的记录数
Private Sub Form_Load()
'读取课程及学习数据,存入变量n、m及数组a、bh、stime、etime 中
'学习记录己按视频编号为主要关键字、学习开始时间为次要关键字升序排序
'代码略
End Sub
Private Sub Command1_Click()
Dim sum(1 To 20) As Integer
Dim p As Integer, I As Integer, k As Integer
For i= l To n
sum(i)= 0
Next i
p=1
For i=2 To m
If ①__________Then
k= bh(p)
sum(k) = etime(p) - stime(p)
p=i
Else
If stime(i) <= etime(p) Then
If etime(i) > etime(p) Then ②__________
End If
End If
Next i
sum(bh(p)) = etime(p) - stime(p)
For i=l To n
If sum(i) < a(i) Then Exit For
Next i
If ③__________Then
Label1.Caption = "未完成该课程学习"
Else
Label1.Caption = "已完成该课程学习"
End If
End Sub

有如下 VB 程序段:
i = 1: n = 5
Do While i <= n
x = Int(Rnd * 9) + 1
If x Mod 2 = 1 Then
a(i) = x
Else
a(n) = x
n = n - 1
End If
i = i + 1
Loop
数组元素的初值均为 0，执行该程序段后，在下列选项中a(1)至 a(5)各元素值可能的是（   ）

A．7 1 3 9 10	B．3 4 1 8 8
C．0 7 0 6 8	D．3 7 5 5 0