学进去

有如下Python程序段：
s = [1,3,4,3,1]
m,sum =s [0], 0
for i in range（1, len（s））:

if s [i] > m:

m = s[i]

sum += m

执行该程序后，sum的值为（       ）

A．15

B．12

C．11

D．7

下列属于管理信息系统的是（       ）

A．学术期刊网

B．农业专家系统

C．机器人

D．门禁

下选项中，可以用来实现虚拟现实的技术有（   ）。

A．VRML

B．全景环视技术

C．Java语言

D．流媒体技术

小华想要在Word中插入用Excel中的数据制作的图表。他的方法是：在Excel中，右键单击图表进行复制，然后打开Word进行粘贴，粘贴选项如图所示。为保证Excel数据与Word图表能够进行关联，即当表格数据改变时，Word中的图表也自动发生改变。他可以选择的按钮是（   ）

A．①或②

B．③或④

C．②或③

D．④或⑤

为防止机密通知被盗，某公司制定了网上发通知的加密要求：
（1）通知中包含的空格，标点符号等按原格式输出
（2）通知中涉及到字母的内容，所发文件的英语单词全部都是倒序的。如：This is a dog! 通知显示内容为： sihT si a god!
（3）通知中涉及到数字的内容， 把本组数字的最后一位移动到第一位,例如原文为 1234，通知显示内容为：4123
小王编写了一个VB程序，实现加密功能，在文本框 Text1中输入原文，单击“加密”按钮Command1 后，在文本框Text2中显示加密后的密文。程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）若要修改按钮 Command1 上显示的文字，应修改的属性名是_____________（单选，填字母：A.Text/B.Caption /C.List）
（2）实现上述功能的VB程序代码如下，请在划线处填入合适的代码
（3）程序中加框处代码有错，请改正
Private Sub command1_Click()
Dim s As String, ch As String, rv As String, rv1 As String
Dim i As Integer, j As Integer, k As Integer
s = Text1.Text
rv = ""
i = 1
Do While True

ch = Mid(s, i, 1)

Do While __________ And i <= Len(s)

rv = rv + ch

i = i + 1

ch = Mid(s, i, 1)

Loop

j = i

ch =_______①_________

Do While sz(ch) And j <= Len(s)

j = j + 1

If j > Len(s) Then Exit Do

ch = Mid(s, j, 1)

Loop

rv1 = ""

rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)

rv = rv + rv1

i =_______②_______

If i > Len(s) Then Exit Do

Do While zf(ch) And j <= Len(s)

j = j + 1

If j > Len(s) Then Exit Do

ch = Mid(s, j, 1)

Loop

rv1 = ""

For k = i - 1 To j - 1

rv1 = Mid(s, k, 1) + rv1

Next k

rv = rv + rv1

If j <= Len(s) Then rv = rv + Mid(s, j, 1)

i = j + 1

If i > Len(s) Then Exit Do

Loop
Text2.Text = rv
End Sub
Function zf(s As String) As Boolean

zf = False

If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then

zf = True

End If

End Function
Function sz(s As String) As Boolean

sz = False

If __________③____________Then

sz = True

End If

End Function

小王制作了一个名为“风景.fla”的Flash动画，如图所示，回答下列问题：

（1）如图所示，在当前状态下小王单击时间轴面板中按钮，将被隐藏的图层有________________（填：图层名称/所有图层）
（2）如图所示，该动画的播放时间为________________
（3）如图所示，在“图层2”中，小王想制作该图片淡入效果，则在图层2的第16帧他需要设置该图片的______________（填：Alpha /亮度）.
（4）要实现单击“介绍”按钮,链接到“jianjie.txt”文件,应该设置的动作命令为                                           
（5）在图层3中，小王想制作图片从左上角为起点向右下角放大（宽、高都放大为原来的两倍）的动画，选中的图片在30帧起点时状态如下图所示，图片属性面板参数如下图所示，如果小王实现了该动画效果，则在图层3第45帧中的图片属性栏中，宽、高分别为_________________，X、Y的值分别为________________。

小明编写VB 程序，实现从某一字符串删除指定的连续字符串，并将处理后的字符串重新输出， 在文本框Text1中输入原始字符串，在文本框Text2 中输入需要删除的连续字符串，单击Command1 后，在文本框Text3中输出处理后的结果。实现该功能的VB程序段如下：
Dim x As Integer, result As String，p As String, k As String
result = ""：p = Text1.Text：k = Text2.Text
For x = 1 To Len（p） -Len（k） + 1
If （1） Then

result = result + Mid（p, x, 1）

Else

（2）        
End If
Next x
Text3.Text = （3）
上述程序段中横线处可选语句为：

① Mid（s, x, Len（k）） = k	② Mid（s, x, Len（k）） <> k	③ x = x + Len（k） – 1
④ x = x + Len（k）	⑤ result + Mid（p, x）	⑥ result

则（1）（2）（3）处填入的语句依次为（ ）

A．①③⑤

B．②④⑥

C．②③⑤

D．①④⑥

（郊游活动）有 n 名同学参加学校组织的郊游活动，已知学校提供给这 n 名同学的郊游总经费为 cnt 元，与此同时每位同学都自带了部分钱。为了方便郊游，活动地点提供 m（n<=m<=100）辆自行车供人租用，租用每辆自行车也需要花费钱，每位同学可以使用自己携带的钱或者学校的郊游经费，为了方便账务管理，每位同学只能为自己租用自行车，且不会借钱给他人，他们想知道最多有多少位同学能够租用到自行车。
租车原则是首先考虑自带经费少的部分同学优先租相对花费少的自行车，尽量少花学校经费以达到最多同学租车的结果。比如学生带的钱为 9，3，6，7，5，租车的钱分别需要 15，8，12，6，9，11， 如果 5 个人都能租车，至少需要学校提供经费为（6-3）+（8-5）+（9-6）+（11-7）+（12-9）=16，如果学校经费只有 10 元，则自带钱最少的同学不租车，这时所需学校经费为（6-5）+（8-6）+（9-7）+（11-9）=7。计算过程中采用二分查找法来判断租用自行车的人数能否达到最大值。
（1）若 7 位学生自带经费分别为 5，17，15，12，10，9，14，自行车租车费用分别为 27，14， 27，25，17，18，23，21，学校提供经费为 25 元，则最多有________位同学能够租用到自行车。
（2）VB程序代码如下，请在划线处填入合适的代码。
Dim a(1 To 100) As Integer , b(1 To 100) As Integer
Dim n As Integer, m As Integer   
Private Sub Command1_Click()

Dim left As Integer, right As Integer, mid As Integer,ans As Integer

n = Val(Text1.Text): m = Val(Text2.Text)

'从数据库读取 n 位学生带的钱存储在数组 a,m 辆自行车租用的钱存储在数组 b,代码略.
       Call px(a(), n)
       Call px(b(), m)

left = 1: right = n: ans = 0

Do While left <= right

             mid = (left + right) \ 2
             If check(mid) = True Then
                    ______________
                      right = mid – 1
             Else
                      left = mid + 1
   End If
Loop
Label1.Caption = "能租车的最大人数为" + Str(ans)
End Sub
Sub px(d() As Integer, s As Integer)
Dim i as integer,j as integer,k as integer For i = 2 To s
k = d(i)
j = i - 1
Do While k < d(j)
   d(j + 1) = d(j)
   j = j - 1
   If j = 0 Then Exit Do Loop
        ________________
Next i
End Sub
Function check(mid As Integer) As Boolean
Dim cnt As Integer, jf As Integer, t As Integer
cnt = Val(Text3.Text)
For t = 1 To n - mid + 1
   If b(t) > a(mid + t - 1) Then jf = b(t) - a(mid + t - 1) Else jf = 0
   _________________
Next t
If cnt >= 0 Then check = True
End Function

若字符串c是在字符串s的任意位置插入任意多个字符后构成的新字符串，则称字符串c为字符串s的扩展字符串。判断扩展字符串的VB程序界面如图所示，在文本框Text1和Text2中分别输入字符串s和c，单击“判断”按钮Command1，如果字符串c为字符串s的扩展字符串，则在文本框Text3中输出“是”及新加字符的内容，否则输出“否”。

（1）结合题意，窗体中属于TextBox 类对象的共有_____个（填数字）。
（2）加框处的程序代码有错，请改正。
（3）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, c As String, ss As String, cc As String
Dim i As Integer, j As Integer, res As String, ans As String s = Text1.Text
c = Text2.Text
i = 1: j = 1: res = "": ans = ""
Do While i <= Len(s)
   ss = Mid(s, i, 1)
   cc = Mid(c, j, 1)
       If ss = cc Then
          ①_________
       Else
       res = res + cc
       ans = ans + Str(j)

End If

j=j+1

             If        Then   Exit Do        '②__________
               Loop
       If   ③______Then
          Text3.Text = "是,增加了:" + res + Mid(c, j, Len(c) - j + 1)
       Else
   Text3.Text = "否"
End If
EndSub
（4）运行该程序，输入如图中所示的数据，程序执行结束时，变量j的值为_____。

下列VB表达式的值为False的是（   ）

A．50Mod 100/ 50=0	B．"Abc"<"ABCD"
C．lnt(Rnd*50)/25<2	D．"22">Mid("654213"，4，3)