学进去

某算法的 VB 程序段如下：
i=1:flag=True
Do While i<6 And flag=True
flag=False
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
flag=True

End If

 Next j
f(i)=1   ＇f 数组初值均为 0
i=i+1
Loop
For i=1 To 6
s=s+f(i)
Next i
数组元素 a(1)到 a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s 的值是（  ）

A．3

B．4

C．5

D．6

有如下 VB 程序段：
Dim s As String, t As String, res As String
Dim i As Integer, k As Integer
s = "jpqzaabdcfb"
i = 1: k = 1: res = "" t = Mid(s, 1, 1)
Do While i < Len(s)
If Mid(s, i + 1, 1) >= Mid(s, i, 1) Then
k = k + 1
Else
res = res + CStr(k) + t
k = 1
t = Mid(s, i + 1, 1)
End If
i = i + 1
Loop
Label1．Caption = res
执行该段程序段后，Label1 中输出的值为（  ）

A．4j1a3a2c1b

B．4j4a2c1b

C．4j4a2c

D．4j1a3a2c

有如下 VB 程序段：
Const n = 7
Dim a(1 To 7) As Integer
Dim flag(1 To 7) As Integer    'flag 数组初始值均为 0
Dim k As Integer, t As Integer
a(1) = 18: a(2) = 34: a(3) = 56: a(4) = 23: a(5) = 29: a(6) = 39: a(7) = 72
k = (1 + 7) / 2
For i = 1 To n
For j = 1 To n
If a(j) > a(k) And flag(j) = 0 Then t = a(j): a(j) = a(k): a(k) = t
Next j
flag(k) = 1
k = (k + 5) Mod 7 + 1 Next i
执行该段程序后，数组元素 a(1)到 a(7)的值为（  ）

A．29,23,18,72,56,39,34	B．39,56,72,18,23,29,34
C．34,39,56,72,18,23,29	D．34,29,23,18,72,56,39

某查找算法 VB 程序段如下：
ans = 0: L  = 0: R = 7
key = 2 ^ (Int(Rnd * 5))
Do While L <= R
m = (L + R + 1) \ 2
If a(m) > key Then
L = m + 1
ans = ans + 1
Else
R = m - 1
ans = ans - 1
End If
Loop
数组 a(0)到 a(7)的值依次为 16，16，8，8，4，2，2，1，该程序运行后，ans 的值不可能的是（）

A．0

B．-4

C．1

D．-1

某数据查找程序:在文木框Text和Text2中分别输入矩阵的行数m和列数n，单击“产生”按钮，随机产生m×n个范围是[1，10]的整数，并在列表框Listl中以矩阵显示.在文本框text3中输入整数数据key，单击“查找”按钮，将查找key在矩阵中的位置，并在列表框List2中输出查找结果。
例如矩阵行数为7，矩阵列数为4，查找数据为3，程序运行界面如图所示。

（1）实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim a(1 To 100) As Integer

Dim m As Integer, n As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, x As Integer

Dim s As String

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

Randomize

For i= 1 To m

For j= 1 To n

x = Int(Rnd* 10＋ 1)

_______

Next j
Next i

s = ""

For i= 1 To m *n

s =s + Str(a(i))

If i Mod n=0 Then

List1.AddItem s

_______
End If
Next i
End Sub
Private Sub Command2_Click()

Dim i As Integer, x As Integer, y As Integer

Dim key As Integer, flag As Boolean

key = Val(Text3.Text): flag = False

For i= 1 To m * n
If key = a(i) Then
x =(i-1)\m+ 1
y=______
list2.AddItem Str(key)+"的坐标为:第"+Str(x)+"行，第"+Str(y)+"列"
flag = True
End If
Next i
If Not flag Then
list2.AddItem "未查找到相应数据! "
End If
End Sub
（2）若随机产生矩阵，查找数据为3，则在列表框List2中显示内容是_____。

小明制作主题为“抗击疫情”的多媒体作品，首先使用 Photoshop处理图片，然后使用 Flash软件制作动画。请回答下列问题:

（1）处理图像的部分界面如图所示。下列说法正确的有______（多选，填字母）。
A.能直接删除“背景”图层
B.调整“抗击疫情”图层不透明度为50%
C.将“抗击疫情”移动到“背景”图层下方
D.可复制“人物”图层的图层样式并粘贴到“抗击疫情”图层
E.使用“自由变换”工具仅调整“文字”图层“关心”的字体大小
在Flash软件中编辑“主交互界面”场景，部分界面如图b图所示。请回答下列问题:

（2）“标语”图层的第1帧至25帧的补间动画实现了由文字“中国加油!”渐变为“抗击疫情从我做起”的效果，则该补间类型为______（选填字母:A.动画补间/B.形状补间）。
（3）测试场景时，要使“标语”中的补间动画持续3秒，应进行的操作是_______。
（4）“音乐”图层第1帧添加了音乐“bj.mp3”测试场景时，小明_______（选填字母:A.能/B.不能）听见声音。
（5）测试影片时，单击“不信谣”按钮，跳转到“不信谣”场景第10帧继续播放，并打开位于同一目录下的“bxy.doc”文件，则“不信谣”按钮上添加的动作命令是______。

在Windows7中的账户类型中，      账户可以使用大多数软件，可以更改不影响其他用户或计算机安全的系统设置。（  ）

A．管理员

B．来宾

C．标准用户

D．以上都是

学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息（编号和完成次数），并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的info表中ID和finshed两字段中取出分别保存在数组a和数组b中，第i个学生的编号保存在a(i)中，对应的作业完成次数保存在b(i)中。
数据库文件“stud. accdb”信息如图所示。

程序界面如图所示，左边列表框List1中显示所有学生信息（包括编号和完成次数），单击“排序”按钮
（Command），所有编号按照作业完成次数从高到低显示在列表框List2中。

代码如下：
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim n As Integer
Dim a(500)As String
Dim b(500)As Integer
Private Sub Fom Load()
Dim i As Integer
conn. Connection String="Provider=Mi-crosoft. AC

A．OLEDB. 12.0;DATA Source="& App. Path &"\stud. accdb"

conn Open
Set rs. Active Connection=conn
rs. Open "Select*From info"
n=0
Do While not rs.EOF    '到记录集最后一条记录后退出循环
n=n+1
a(n)=rs. fields("id")
b(n)=rs. fields("finshed")
rs. MoveNext ＇移动到下一条记录
Loop
For i=1 To n
Listl. AddItem a(i)+" "+Str(b(i))
Next i
rs. Close
conn. Close
Set rs= Nothing
Set conn= Nothing
End sub
Private Sub Commandl_Click()
Dim i As Integer, j As Integer, tl As Integer, t2 As String, k As Integer
For i=1 To n-1    'n表示学生总数
k=I    'k保存第i大的数,一开始假定是a(i)
For j=i+1 To n
If b(k)<b(j) Then k=j    '比较完成数
 ①  
If  ②   Then
t1=b(i):b(i)=b(k):b(k)=t1    '交换完成次数
t2=a(i):a(i)=a(k):a(k)=t2     '交换编号
End If
Next i
For i=1 To n     '在列表框List2中输出排序结果
Listt2. Addltem a(i)+" "+Str(b(i))
Next i
End sub
（1）当“Form_Load()”事件处理过程运行结束时，变量n的值为__________。
（2）加虚线框中的代码采用的排序算法为__________。
（3）为实现上述功能，程序中划线处的代码为①__________；②__________。

小明编写了一个图书录入系统的VB程序，功能如下：单击“读数据库”按钮Commandl，从数据库中读取相应数据并显示在列表框List1中，在文本框Text1中实现数据录入这类图书的数量，单击“录入数据”按钮Command2实现数据录入，并按数量降序的方式显示在列表框List2中。程序运行界面如图所示。实现上述功能的VB程序如下，请回答下列问题：

（1）分析程序，可知数据库的文件名为____________。
（2）请在划线处填入合适的代码。
Dim sType(1 To 200)As string ＇存放图书类别
Dim sNumber(1 To 200)As Integer ＇存放图书数量
Dim n As Integer
Private Sub Commandl_Click()
Dim conn As New ADODB Connection
Dim rs As New ADODB Recordset
conn. Connection String="Provider=Microsoft.AC

A．OLED

B．12.0;DATA Source="& App. Path &"\ALibrary. accdb"

conn. Open
Set rs. Active Connection=conn
rs. Open"Select*From Book"
'本过程从数据库中读取图书数据,存储在相应的变量中,并在List1中显示
'代码略
End Sub
Private Sub Command2_Chck()
Dim i As Integer, j As Integer, t As Integer, y As Integer
Dim x As String, s As String
Dim flag As Boolean
List2. Clear
x=Text1. Text
y=Val(Text2. Text)
flag=True
For i=1 To n
If sType(i)=x Then
①________
flag=False
Exit for
End If
End If
If flag Then
②________
sType(n)=x
sNumber(n)=y
End If
For i=1 To n-1
For j=i+1 To n
If ③_______  Then
t=sNumber (j):s Number(j)=sNumber(i):sNtmaber (i)=t
s=sType(j):sType(j)=sType(i):sType(i)=s
End If
Next j
Next i
List2. AddItem("类别数量")
For i=1 To n
List2. AddItem sType(i)&" "&Str(sNumber(i))
Next i
End sub

某Photoshop作品的图层面板如图所示，下列说法正确的是（   ）。

A．“云朵”图层中的云图像在当前作品中正常显示

B．“作者”和“标题”两个图层设置的图层样式完全一样

C．当前作品共有3个图层，其中2个是文字图层

D．当前作品中的文字图层肯定没有添加滤镜效果