相关试卷
-
1、小李设计“移数游戏”程序，实现如下功能：在列表框中有24个数字(8个“1”，8个“2”，8个“3”)随机排成“井”字形方阵，通过单击游戏界面中的八个按钮实现往箭头方向循环移动所在行(或列)的数据，例如“→③”按钮所在行的数据依次为“2，2，3，3，3，2，1”，若单击一次“→③”按钮后，该行的数据向右循环移动一次，依次变为“1，2，2，3，3，3，2”。玩家通过按钮移动数据，最终若使游戏界面中虛线框内的八个数字为相同数字则完成游戏。程序运行界面如图所示。
(1)、在如图所示的游戏界面中，单击某按钮一次后，即可完成游戏，则该按钮的Caption属性值是 。(2)、程序部分代码如下，请在划线处填入合适的代码。Dim a(1 To 49) As String
Private Sub Form _Load ()
Dim k(1 To 3) As Integer
Randomize
t=0
For i=1 To 49
x=
y=(i-1) Mod 7+1
If x=30rx=50ry=30ry=5Then
t = Int (Rnd*3) + 1
Do While
t=t Mod 3+ 1
Loop
k(t)=k(t)+1
a(i) = Str(t)
Else
a(i) =””
End If
Next i
‘在列表框中输出数据，得到“井”字形方阵。代码略
End Sub
‘下面为单击“↑①”按钮，实现数据的移动
Private Sub Command1_ Click()
j=3
temp =a (6*7+j)
For i=1 To 6
p =i-1
If p<1 Then p= 7
A ((p-1)*7+j)=a ((i-1)*7+j)
Next i
= temp
’在列表框中输出数据，更新“井”字形方阵。代码略
End Sub
‘其他按钮所实现功能的代码略
-
2、数组a中存储的是两个数列交替排序的n个正整数，下标为奇数的数组元素都是奇数且为升序排列，下标为偶数的数组元素都是偶数且为降序排列。排序示例如下。
a(1)
a(2)
a(3)
a(4)
a(5)
a(6)
a(7)
a(8)
a(9)
a(10)
1
10
3
8
5
6
7
4
9
2
依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，请回答下列问题：
Private Sub Search_Click()
Const n = 10
Dim a(1 To n) As Integer
Dim i As Integer， j As Integer， m As Integer， f As Boolean， key As Integer
‘读取一组正整数，按上述规则存入数组a中。代码略
key = Val (Text1.Text)
If key Mod 2=1 Then i=1 Else i=2
j =n：f= False
Do While i<=j And Not f
If key Mod 2=0 Then
m=(i+j)\2-(i+j)\2Mod2
Else
m= ①
End If
If key = a(m) Then
f = True
ElseIf
Thenj=m-2
Else
i= ②
End If
Loop
If f Then Label1.Caption = Str(m) Else Label1.Caption =“不存在”
End Sub
(1)、观察程序代码，该事件处理过程名为。(2)、程序加框处代码有错，请改正。(3)、请在划线处填入合适的代码。① ②
-
3、小温制作主题为“70周年华诞”的多媒体作品，首先使用Photoshop软件处理图片，然后使用Flash软件制作动画。(1)、小温使用Photoshop处理背景图片，如图a所示，下列说法正确的有(多选题，填字母)
A．选择“背景”图层，使用“矩形选框”工具选中左边的松树，进行“内容识别”填充，可使松树消失
B．选中“周年华诞”图层，可以直接通过“自由变换”改变“周年华诞”的文字大小
C．选中“周年华诞”图层，可以直接设置图层样式
D．选择“70”图层并解锁后，可用文字工具修改该图层中文字大小
E．选中“背景”图层，可以直接添加滤镜
(2)、其中，“main”场景的部分制作脚本和界面如下：
请根据“main”场景制作脚本和图b所示界面，回答下列问题：场景： main 类别序号： 2 进入方式：单击“load"场景的“Play” 按钮进入 呈现方式： ⒈“文字”图层中的文字实例由完全透明到完全显示、再到完全透明，用时2秒。 ⒉“年份”图层的动画由文字“1979~2019”逐渐变为文字“普天同庆”，用时5秒。
⒊“播放”按钮出现在舞台右下方，单击该按钮，跳转到“end”场景第一帧并停止播放，同时“我和我的祖国”音乐停止。
⒋其他动画略。呈现顺序说明： ⒈进入场景时，动画停止在第1帧，“我和我的祖国”音乐响起，“开始” 按钮出现。
⒉单击“开始”按钮后动画开始播放，同时“开始”按钮消失。
⒊“文字”图层的动画结束后，“年份”“气球”“战斗机”图层的动画开始。 ⒋最后出现“播放”按钮，场景动画停止在最后一帧。
“文字”图层第10帧中，该文字实例的Alpha值为 (单选，填字母：A . 0%/ B . 100%)。(3)、在“音乐”图层中，“我和我的祖国”音乐的同步方式为 (单选，填字母：A .事件/B .数据流/C .停止)。(4)、“年份”图层第20帧到第70帧的动画类型为(单选，填字母： A .形状补间/B .动画补间/C .逐帧动画)。(5)、测试场景时，发现“按钮”图层的动画与脚本设计不符，请改正。。(6)、“播放”按钮上添加的动作脚本为。 -
4、小董收集了某购书网站主要畅销书销售数据，并使用Excel软件进行数据处理，如图a所示。
(1)、区域I3：I17的数据是通过公式计算得到的，在I3单元格中输入公式 ， 再利用自动填充功能完成区域I4：I17的计算。(2)、根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域是。
(3)、小董若在图a所示工作表中对数据进行进一步的操作，下列说法正确的是 (多选，填字母)。A、若要对“历史人文”类别的书籍以“折扣”为关键字升序排序，应选择排序的区域是A6：I9 B、若在该工作表中，对D3单元格的数值小数位数设置为1，I3 单元格的数值不变 C、若在该工作表中的C列和D列之间插入一列，则书籍《大国战略》的“年销售金额”数据将在单元格J17中，该单元格公式变为： =C17*$E17*SUM(F17：I17) D、若以“定价(元)”为最小1项进行筛选，则图b所示的图表不会变化 -
5、下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a (9)的值依次为“72，61，3，95，39，38，64，65，98”，程序运行后，数组元素a(1)到a (9)的值依次为“98，72，64，39，3，38，61，65，95”。
m=(1+n)\2 ‘n为数组元素的个数，m为数组中间位置元素的下标
For i=1 To n
If a(i)<a (m) Then t=a(i)：a(i)=a(m)：a(m)=t
Next i
p=m：q=m
For i=1 To n-2
If i Mod 2=1 Then
k=q+1：q=q+1
Else
k=p-1：p=p-1
End If
pos=k
For j=1 To n
If
And a(j) <a(k) Then k=jNext j
If pos <> k Then
t = a(pos)： a(pos) = a(k)： a(k) = t
End If
Next i
上述程序段方框处的代码为( )
A、j<p And j>q B、j>p 0r j<q C、j<p 0r j>q D、j>p And j<q -
6、有如下VB程序段：
s = Text1. Text
ans =""： k=4
i = k-1：j=k+1：n=Len(s)
Do While k>0
If Mid(s，i，1) = Mid(s，j，1) Then
ans = ans + Mid(s，i，1)：k=k- 1
End If
i=(n+i-2) Mod n+1
j=j Mod n+1
Loop
Label1.Caption = ans
在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是( )
A、nana B、naba C、naan D、Naaa -
7、有如下VB程序段：
c=0：p=0：q=0
For i =1 To 5
b(i)= a (6-i)
Next i
For i=1 To 3
If (b(i)+b(i+1)*2+b(i+2)*3)Mod 5=0 Then
p=p+1
Else
q=q+1
End If
If p <=q Then c=c+1
Next i
数组元素a(1)到a(5)的值依次为“2，1，2，3，4”，执行该程序段后，c的值为( )
A、0 B、1 C、2 D、3 -
8、某算法的部分流程图如图所示。执行这部分流程，输入n的值为20191115，则输出s的值是( )
A、8 B、20 C、34 D、40 -
9、下列VB表达式中，值最大的是( )A、Va1(Mid(“3.1415926”，6， 2)) B、Int((Rnd-Rnd+1)/2) *100 C、6790 Mod 1000 \ 10 D、Int(Rnd * 80) + 10
-
10、下列有关信息和信息安全的说法，不正确的是（ ）A、中医通过“望、闻、间、切”来诊断病情，说明信息可通过多种方法和途径获取 B、学校对学生成绩数据进行统计得到平均分、标准差等信息，体现了信息的可加工处理性 C、某软件每次支付都会动态生成不同的付款码，是为了提高信息的安全性 D、相同的信息可以通过电话、微信等途径传递，说明信息的传递可以不依附于载体
-
11、若一个数从左向读与从右向左读是一样的，则这样的数称为回文数。若一个数不是回文数，则可以通过以下方法得到回文数，如十进制数87不是回文数：
第一步： 87+78=165
第二步： 165+561=726
第三步： 726+627=1353
第四步： 1353+3531=4884
即十进制数87最少经过4步可得到回文数。
给定一个n(2≤n≤10)进制数m，已知m的位数≤20，求最少经过几步可得到回文数，若步数≤30，则在标签Label2，上输出步数，否则输出“不可能得到回文数！”。程序运行界面如下图所示。
(1)、若在Text1、Text2中分别输入10和56，则在标签Label2中显示的内容是(2)、请在划线处填入合适的代码。Dim a(1 To 20) As Integer
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
Dim n As Integer， m As Integer， step As Integer， x As Integer
n = Val(Text1.Text)： m = Val (Text2.Text)
i=1：step=0
Do While m<>0
a(i) =m Mod 10： m=m\10：i=i+1
Loop
x=
If Ishw(x) Then Label2.Caption = "step=" + Str(step)
Do While step <= 30
p=0
For i=1 To x
b(i) = (a(i) +a(x-i+1)+p) Mod n
p= (a(i)+a(x-i+1)+p)\n
Next i
step=step+1
If p< 0 Then x=x+ 1：
For i=1 To x
Next i
If Ishw(x) Then Label2． Caption = "step=" + Str(step)： Exit Do
Loop
End Sub
Function Ishw(y As Integer) As Boolean
Dim j As Integer
Ishw = True
For j=1 To y\2
If a(j) <> a(y- j + 1) Then Ishw = False： Exit For
Next j
End Function
-
12、双向选择排序。程序功能如下：随机生成n个整数，实现这n个数的升序排序。每一遍排序时，把最小数交换到最前面的同时，把最大数交换到最后面，依次进行，…直至所有的数按从小到大的顺序排列。该程序的VB代码如下所示，请回答下列问题：
Const n = 10
Dim a(n) As Integer
Private Sub Form_ Load ()
'随机生成数组元素a(i)，代码略
End Sub
Private Sub Command1_Click ()
Dim i As Integer， k1 As Integer， k2 As Integer
For i=1 To n\2
k1 = i：
'改错For j=i+1 To n-i+1
If a(k1)>a(j) Then k1=j
If a(k2)<a(j) Then k2=j
Next j
If k1<>I Then t=a(k1)：a(k1)=a(i)：a(i)=t
If k2=I Then '填空
t = a(k2)： a(k2) = a(n- i+1)：a(n-i+1) = t
Next i
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub
(1)、代码“Private Sub Command1 _Click()” 中的Click是。(单选，填字母：A .对象名/B .事件名/C .事件处理过程名)(2)、程序代码中，将划线处的代码补全。(3)、程序代码中，加框处代码有错，请改正。(4)、若数组a的值依次是34，2，12，56，78，34，58，34，94，8，则第二遍排序完成后，数组元素a(2)的值为。 -
13、小王创作主题为“七夕”的多媒体作品。请回答下列问题：
图a
(1)、如图a所示，要去除“牛郎织女”图层的白色背景，下列操作中可行的是(多选，填字母： A .使用魔棒工具选择“牛郎织女”图层的白色背景，反选，按Delete键/B .使用魔棒工具选择“牛郎织女”图层的白色背景，按退格键/C .使用磁性套索工具选择“牛郎织女”图层的内容，反选，按Delete键/D .使用橡皮擦工具擦去“牛郎织女”图层的白色背景。)(2)、测试影片时，发现“标题”图层和“牛郎织女”图层内容不是同时出现的，若要使这两个图层的内容在动画开始时一起播放，正确的操作是。(3)、如图c所示，当前状态下，把帧频修改为15，则main场景完整播放一遍的时间会不会变化？(选填：会/不会)
(4)、测试影片时，首先播放的场景是 (填场景的名称)。(5)、如图b所示，为实现该场景动画播放完后自动停止，小王选中“按钮”图层最后1帧添加的脚本命令应该是。 -
14、小王收集了的浙江省部分城市降水量的有关数据，并使用Excel软件进行数据处理，如图a所示。请回答下列问题：
(1)、在B14单元格输入公式并利用自动填充功能完成区域B14 ：N14的计算，结果如图a所示，则B14单元格中的公式是(计算公式：降水比率=每月平均降水量/全年平均降水量)。若区域B4：B13数据被清空，则B14单元格将显示为。(单选，填字母：A . 0/B . 4.1%/C . #IV/0！ /D . #REF！)(2)、根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域可能是(多选，填字母： A . A3：A7， N3：N7/B . A4：A7， N4：N7/C . N3：N8/D . N4：N8)
-
15、编写VB程序实现如下功能：随机生成一个正奇数n并显示在文本框Text1中，单击“生成”按钮后，在文本框Text2中显示“1 3~n-2 n n-2…3 1”。例如n=9时，显示为“135797531”。划线处填入的代码应该是( )
Private Sub Command1_Click()
Dim n As Integer， i As Integer， s As String
Randomize
n = Int(Rnd*20) *2+1： ①
s=“”
For i =1 To n
If i <=n\2+1 Then
s=s+Str(2*i-1)
Else
s=s+ ②
End If
Next i
Text2.Text = s
End Sub
A、①n = Val(Text1.Text) ②Str(2* (n-i+ 1)) B、①Text1. Text = Str(n) ②Str(2 * (n-i+ 1)) C、①n = Val (Text1.Text) ②Str(2* (n-i)+ 1) D、①Text1.Text = Str(n) ②Str(2*(n-i)+ 1) -
16、若在文本框Text1中输入3，则List1中显示的内容是( )
Dim x As Integer， y As Integer，s As String， n As Integer
x= 1：y=1：s=""： n = Val (Text1. Text)
Do While y<=n
s=s+"*"
If x =y Then
List1. AddItem s：y=y+1：x=1
End If
x=x+1
Loop
A、
B、
C、
D、
-
17、下列程序段运行后，数组元素a(j)的值是( )
a(1)=96：a(2)=75：a(3)=4：a(4)=37：a(5)=48
For i =1To 3
k=i
For j=4 To i+1 Step-1
If a(j) > a(k) Then k= j
Next j
Ifi <> k Then t=a(i)：a(i)=a(k)：a(k)=t
Next i
A、4 B、37 C、75 D、96 -
18、若在文本框Text1中输入“20191001”，下列程序段运行后，文本框Text2显示的内容是（ ）
n = Len(Text1.Text)： c= 0
Do While n> 1
s1 = Mid(Text1. Text， n， 1)： s2 = Mid(Text1.Text， n- 1，1)
If Abs(Asc(s1) - Asc(s2)) Mod2= 1 Then c=c+ 1
n=n-1
Loop
Text2.Text = Str(n)
A、0 B、1 C、2 D、3 -
19、要得到[-50，50]之间的随机整数，正确的VB表达式是（ ）A、Int(Rnd * 50) B、Int(Rnd * 50) - 50 C、Int(Rnd * 100) - 50 D、Int(Rnd * 101) - 50
-
20、某算法的部分流程图如图所示。执行这部分流程，则输出x，y的值是（ ）
A、16，3 B、16，0 C、2，3 D、2，0