相关试卷
-
1、对数组a中的n个元素进行去重（去掉数组中重复元素），实现该功能的VB程序段如下：
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）的值，代码略
上述程序段两个方框处的语句分别为（ ）
A、①a（m-1）=a（m） ②j=j+ 1 B、①a（m）= a（m+ 1） ②j=j+ 1 C、①a（m-1）=a（m） ②i=i+ 1 D、①a（m）= a（m+1） ②i=i+ 1 -
2、有如下VB程序段：
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)各元素值不可能是（ ）
A、3，98，67，21，81，38 B、3，21，98，67，38，81 C、3，21，38，67，98，81 D、98，67，3，81，38，21 -
3、有如下VB程序段：
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的值为（ ）
A、“Access” B、“2010” C、“Acc” D、“ces” -
4、有如下VB程序段：
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的值为（ ）
A、25 B、28 C、20 D、8 -
5、某算法的部分流程图如图所示，执行这部分流程后，则输出s的值为（ ）
A、50 B、55 C、100 D、101 -
6、下列Visual Basic表达式的值为True的是（ ）A、Not5>3 B、7\3*2=4 C、Len（"tz"）= Len（"台州"） D、Mid（"tzedu"，2，3)= "ed"
-
7、利用Goldwave处理音频素材，部分界面如图所示。下列说法正确的是（ ）
A、单击“剪裁”按钮后，音频文件时长变为10秒 B、单击“删除”按钮后直接保存，音频文件的大小变为原来的3/4 C、在当前状态下直接保存，该文件存储容量约为6.73MB D、在当前状态下插入5秒静音，右声道10秒位置出现时长5秒的“静音” -
8、使用Photoshop软件编辑图像，部分操作界面如图所示。下列说法正确的是（ ）
A、当前图像采用RGB模式，每个像素点的存储空间为8位 B、交换“鲜花”和“母女”图层顺序，会影响作品的呈现效果 C、可使用“自由变换”命令修改“母亲节”图层中的文字大小 D、将作品存储为JPEG格式文件，“妈妈我爱你”图层中的“投影”效果依然可见 -
9、利用Access创建数据表，部分界面如图所示。下列说法不正确的是（ ）
A、该表共有6个字段，表名为“充卡记录” B、在当前视图中可以对记录进行添加、编辑和删除 C、“400" 可以是“充卡金额”字段的有效输入值 D、存储一个“性别”字段值，需要的存储空间为1bit -
10、十进制正整数n转换为2位十六进制数，该十六进制数末位为“F”。下列说法正确的是（ ）A、无法确定n是奇数还是偶数 B、十六进制数末位“F”转换成十进制数为n\l6 C、十进制数n+1转换得到的二进制数一定不超过8位 D、十进制数n+1转换为十六进制，该十六进制数末位为“0”
-
11、下列有关信息和信息技术的说法，不正确的是（ ）A、信息是指数据、信号、消息中所包含的意义 B、信息经过加工处理后可能具备更高的使用价值 C、物联网、大数据、云计算等都是当前信息技术应用的热点 D、信息技术是指利用计算机对信息进行加工和处理的技术
-
12、某校进行模拟考，现有25名学生的语数英三门课的成绩（按百分制）存储在数据库student.accdb中的数据表cj中，现取出各学生成绩存储在cj( )数组中，成绩存放如下：
运行程序，点击“数据导入”按钮后，在列表框list1中显示所有数据。点击“排序"按钮，按总分从高到低计算名次（成绩相同的名次相同），并按排名先后在列表框list2中显示，数据要求对齐。程序运行界面如图16-1所示：
(1)、观察程序及界面，可知“排序”按钮的对象名为。(2)、实现上述程序功能的VB程序段如下，请在划线出填入合适的代码。Dim cj（1 To 100） As Integer
Dim b（1 To 301） As Integer '分数为i的人数存入b（i）
Private Sub Cmdl_ Click( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "Provider =Microsoft.ACE.OLEDB.12.0；Data Source= " &App.Path& "\studentaccdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT*FROM cj"
n =1
Do While Not rs.EOF
cj（n）= rs.Fields（"语文"）：cj（n+1） = rs.Fields（"数学"）
cj（n+2） = rs.Fields（"英语"）：cj（n+3） = cj（n）+cj（n+1）+cj（n+3）
rs.MoveNext
Loop
rs.Close：conn.Close
'此处代码略，用来实现将数据在list1中输出
End Sub
Private Sub paixu_ Click( )
Dim mc As Integer
'预处理求b数组的值
For j=4 To 100 Step 4
Next j
'以下程序用于计算名次并按要求对齐输出
mc=1：b（301)=0
List2.AddItem"语文"+"数学"+"英语"+"总分"+"名次
List2.AddItem "------------------------------------------------"
For i=300 To 1 Step -1
If b（i） <> 0 Then
For c=4 To 100 Step 4
If cj（c） = i Then
List2.AddItem
End If
Next c
End If
Next i
End Sub
'以下函数输出时数据s时，不足7位末尾补空格
Function gs（s As Integer） As String
Dim cd As String
ed = CStr（s）
For i=1 To 7 -Len（cd）
cd= cd+" "
Next i
gs = cd
End Function
-
13、出列顺序有10个人，编号分别为1，2，3……10按顺时针方向围坐成一圈，每次随机产生一个数m，m的范围为[3，7]的随机奇数，从第10个人开始逆时针报数，当报到m的人出列，圈内剩下的人，重新产生随机数m，重新开始报数，如此下去，直到所有人出列为止。如：若每次参数的随机数m都为5，从第10个开始报数，依次出列的为6-1-5-9-2-3-10-7-4-8
小李编写了如下程序求解10个人的出列顺序。程序运行界面如图15-1所示，点击求解按钮后，在Text1中输出出列顺序，在Text2中显示随机数据的值。
(1)、在划线出填写正确的代码Private Sub Command1 _Click( )
Dim ld（1 To 10） As Boolean， i As Integer， j As Integer
Dim rs As Integer， C As Integer， m As Integer
Randomize
For i=1 To 10
ld（i） = True ‘数组元素为True表示第i人当前在队列中
Next i
c=0：rs=10
m =Int（Rnd*3）*2+3
Do While rs <> 0
If ld（i） = True Then
If c=m Then
ld（i） = False
Text1.Text = Text1.Text + Str（i）
c=0
End If
End If
i =i-1
If Then i=10
Loop
End Sub
(2)、加框处两语句互换下顺序，会不会对出列顺序产生影响（选填：会/不会）。 -
14、小灰制作了有关“公筷公勺”为主题的多媒体作品，请回答下列问题：(1)、使用Photoshop处理如图14-1所示，下列说法中正确的是（多选 ，填写字母。A .可将“人物”图层的图层样式拷贝到“病毒”图层。/B .背景图层可以设置滤镜，也可以使用像皮擦。/C .“文明用餐使用公筷”图层不可以使用自由变换更改文字大小，但可以用文字工具更改文字大小。/D .“减少冠状病毒传染”图层设置滤镜必须栅格化图层，但可以用油漆简工具更改文字颜色。/E .“新冠”图层可以移动到圆点图层上方，背景图层不能移动位置。）
(2)、如图14-2所示，在“勺子”图层最后一帧（80 帧）设置了gotoandpaly(1)；的动作命令，“声音”图层的声音时长为40s，要求测试影片时（不点击按钮情况下）声音能完整的播放，且不会重复产生新的声音，则应将声音同步设为（数据流/事件/开始）
(3)、“勺子”图层实现了元件实例“勺子和筷子”的淡入动画，部分界面如图14- 2所示，则该补间类型为（选填：动画补间/形状补间/逐帧动画）。(4)、“勺子”图层的动画效果是在第31帧至60帧，若要使“勺子”图层的动画从第1帧开始，到60帧结束，则可执行的操作。(5)、测试影片时，点击“按钮”图层中的按钮时，声音停止播放并跳转到“主场景”的第6帧暂停，则此按钮的动作脚本为。 -
15、小豆制作了如图13-1所示的家居用品分类销售统计表，数据情况如图13-1所示。请回答下列问题：
(1)、图13-1中的销售占比是各类销售金额占合计的比例。E4：E10的公式是从E3单元格自动填充功能得出的，可知E3单元格公式为。(2)、要对图13-1中的数据按“销售金额”降序排序，则选择的数据区域为。(3)、根据图13-1中的数据制作了如图13-2的图表，则图表的数据区域是。
(4)、若在操作过程中对D6单元进行了如图13-3所示的操作，则E6单元格的数据（单选，填字母。A .变大 \ B .变小 \ C .#REF！ \ D .#DIV/O！ ）
-
16、某VB程序段如下图所示，执行程序段后，文本框Text2中显示的值不可能是（ ）
a(1)=0: a(2)=3: a(3)= 5: a(4)=7
a(5)= 9: a(6)= 11: a(7)= 13: a(8)= 15
a(9)= 17: a(10)= 19
key= Int(Rnd*5)*2+5
s=" "
i=1: j= 10
Do While i<= j
m=(i+j)\2
s=s+ Str(a(m))
If a(m)>key Then
j=m-1
Else
i=m+1
End If
Loop
Text1.Text= s
A、9 3 5 7 B、9 3 5 C、9 15 11 13 D、9 15 11 -
17、星星设计了10*10的矩阵，如下图所示：
实现此功能的VB程序段如下，已知程序中两处标记①的位置表达式相同，程序中①、②两处表达式为（ ）
Dim a(1 To 100) As StingFor i= 1 To 10
For j=1 To 10
If i=j Or i Mod 10=0 Or i Mod 10= 1
Then
a( ① )="●"
Else
a( ① )="○"
EndIf
Next j
Next i
For i= 1 To 100
s=s+ a(i)
If ② Then
List1.Addltem s
End If
Next i
A、①（j-1）*10+i ②i mod 10=1 B、①（i-1）*10+ j ②i mod 10=1 C、①（j-1）*10+ i ②i mod 10=0 D、①（i- 1）*10+j ②i mod 10=0 -
18、有两个VB程序段，如下所示：
已知程序段中①②两处内容相同，数组元素a(1)到a（10）的值依次为：6，43，21，78，33，16，80，45，12，90，执行“程序段1”后，数组元素a(1)~a(10)的值依次为80，78，90，45 ，43，33，21，16，12，6，则下列说法正确的是（ ）
A、①和②处的填空为7 B、两程序段的比较次数不一样，交换次数一样 C、执行完程序段2后，数据6移动到了a(10) D、两段程序的得到的运行结果相同 -
19、某算法部分流程如图1所示，执行此部分流程后，下列说法正确的是（ ）
A、此流程使用枚举算法（枚举i的值），虚线框部分是分支结构 B、流程中sum←sum+i与i←i+1调换下位置，输出的sum，c，i的值都不变 C、最终i的值是401，i←i+1执行数是200次 D、将流程图修改为如图2所示，程序运行结果会发生变化。 -
20、下列有关VB属性说法正确的是（ ）A、计时器每隔3秒Timer事件发生一次，则Interval属性应设置为3 B、设置标签框字体的颜色应在Font属性中设置 C、图像框（image）中图片的加载可以通过Picture属性设置 D、确定一个控件在窗体上位置的属性是Width和Height