相关试卷
-
1、下列有关数据的说法，不正确的是( )A、数据是对客观事物的符号表示 B、数据采集技术的发展使得数据的表现形式多样化 C、数据是计算机识别、存储和加工的对象 D、计算机中数据的表现形式只有文字
-
2、某用户使用手机“导航”软件从A地驶向B地，规划路线后开始行驶，途中“导航”提醒前方道路拥堵，建议改变路线，并实时提供新的导航路径，该事例体现了信息的( )A、载体依附性 B、真伪性 C、共享性 D、时效性
-
3、下列有关数据的说法，不正确的是( )A、数据自古就有，且表现形式多样 B、数据加工处理必须使用计算机才能实现 C、数据的记录和传输依赖某种载体 D、人自身的一些行为也在产生数据
-
4、一个厨师收集了n道菜的满意程度，这个厨师做出每道菜的时间都是1单位时间。一道菜的喜爱时间为烹饪这道菜以及之前每道菜所花费的时间总和乘以这道菜的满意程度。现在你可以按任意顺序安排做菜的顺序，也可以选择放弃做某些菜来获得更大的喜爱时间总和。如：输入n道菜的满意程度“-1，-8，0，5，-9”，先将满意程度降序排列再通过计算，最大的喜爱时间总和为(-1*1+0*2+5*3=14)
5
0
-1
-8
-9
喜爱时间总和
1道菜
1
5
2道菜
2
1
10
3道菜
3
2
1
14
4道菜
4
3
2
1
10
5道菜
5
4
3
2
1
-3
编写VB程序，实现上述功能。运行程序，在文本框Text1中输入n道菜的满意程度后(数据之间以逗号隔开)，单击“计算”按钮Commandl，在标签Labell中显示，最后在标签Label1中显示做完所有菜「喜爱时间」总和的最大值。程序运行界面如图所示。
请回答下列问题：
(1)、若文本框中显示的内容为“-2，5，-4，0，3，-3"，则做完所有菜[喜爱时间」总和的最大值为。(填数字)(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_ Click()
Dim xa As Integer, c As String
c = Text1. Text
Label1. Caption =“做完所有菜的「 喜爱时间」总和的最大值为”+ Str (xa)
End Sub
Function xiai(x As String) As Integer
Dim m(8) As Integer, i As Integer, j As Integer, k As Integer, sum As Integer
Dim ch As String
max= 0 : k=0
j =1
For i=1 To Len(x)
ch = Mid(x, i, 1)
If ch ="," Then
k=k+1
m(k) = Val(Mid(x, j, i - j))
j=i+1
End If
Next i
For i=1 To k
For j=k+1 To i+1 Step-1
If m(j)>m(j-1) Then
t = m(j)： m(j) = m(j - 1)： m(j-1)= t
End If
Next j
Next i
For i=1 To k+1
If m(i) > 0 Then
sum = sum + m(i)
End If
Next i
xiai = sum
End Function
-
5、小李和小王在玩一个猜数游戏，随机生成10个元素的未排序的整数数组num () (范围是[-9，9])，请小李找出其中没有出现的最小的正整数。现编写如下VB代码，完成这个猜数游戏，先对所有正整数进行升序排列，选取出缺少的最小正整数。程序运行界面如第15题图所示。
(1)、如图所示，窗体中有个对象。(2)、实现上述功能的部分VB代码如下，请在划线处填入合适的代码。Private Sub Command1_ Click()
Dim num(100) As Integer
Dim i As Integer， j As Integer， p As Integer， t As Integer ；
Dim ch As String， k As String
i =1：j=1
Do While i <=10
Num (i)=
ch=ch+num(i)+“，”
i=i+1
Loop
Text1. text=mid(ch，1，len(ch)-1)
For i=1 To 10
For j=10 To i+1 Step-1
If Then
t = num(j)： num(j) = num(j - 1)： num(j -1) = t
End If
Next j
If Then Label2． Caption = Str(i)： Exit For
Next i
End Sub
(3)、程序中加框处的代码有误，请修改。 -
6、小明制作主题为“我心向党"的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：(1)、用Photoshop软件制作“党建"作品，部分编辑界面如题图a所示。下列说法正确的是 ；
A、可以将“图层1”的图层名改为“党徽” B、可以用魔棒选中党徽后，将颜色填充为黄色 C、将该文件以jpg格式保存，背景不是透明的 D、可以对“图层1”添加图层样式(2)、制作动画作品的部分界面如题图b所示，已知舞台大小为550×400，则第10帧中“党徽”实例在舞台中的位置坐标约是(单选，填字母： A .(120， 110)/B .(40， 18)/C .(250， 200))，若要使“按钮”图层中的实例从动画一开始就出现，小明对该图层第1帧执行删除帧操作，是否可以实现所要效果 (填：是/否)
(3)、“播放”按钮的功能是使动画继续播放，“暂停”按钮的功能是暂停动画播放。这两个按钮实例上的动作脚本分别是 (多选，按顺序填字母)。A、on (release) { play( )；} B、on (release) {gotoAndplay (1) ；} C、on (release) { gotoAndstop(1)；} D、on (release) { stop( )；}(4)、“播放”按钮元件的编辑如题图c所示，若要使该按钮能够响应鼠标事件，需要对文字图层执行的操作是：
-
7、小王收集了2021年8月我国50个城市部分食品平均价格变动情况数据，并使用Excel软件对数据进行处理，如图a所示。
请回答下列问题：
(1)、区域F3：F12 的数据是通过公式计算得到的，在F3单元格中输入公式 ， 再使用自动填充功能完成区域F4：F12的计算。(2)、完成F3：F12的计算后，小王误删了第14行，则F3单元格中显示为(单选，填字母：A . #REF！\ B . #VALUE！\C . 30．93)(3)、小王根据EXCEL表中数据创建了如图b所示柱形图。结合图b，下列说法正确的有 。(多选，填字母)。
A、创建图b的数据区域为B2：E5 B、由图可知，三种水产品8月份的价格相对稳定 C、对区域A6：F12根据列C进行升序排列，则第13题图b会随之改变 D、删除第13题图b中活草鱼中旬价格的柱子，则第13题图a中D4单元格的数值也会消失 -
8、某对分查找算法的VB程序段如下：
i=1：j=7 ： s=””
key = Int (Rnd * 100)
Do While i <=j
m=(i+j)\2
If key = a(m) Then
s = s+"M"：Exit Do 'Exit Do表示退出循环
ElseIf key < a(m) Then
j=m-1：s=s+"L"
Else
i=m+1：s=s+"R"
End If
Loop
Text1.Text = s
数组元素a(1)到a(7)的值依次为“24， 35， 38， 41，45， 69， 78”。若该程序段执行后，文本框Text1中显示的内容是LLR，则Key的值可能是( )
A、36 B、34 C、40 D、42 -
9、如下VB程序段实现对数组元素a(1)到a(10)中数据螺旋升序排列，排序后a(1)-a(10)的显示结果为：7，35，9，33，11，30，13， 28， 15， 26。程序段如下：
For i=1 To 9 '排序的遍数
For j=10 To i+1 Step-1
If ① then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
则代码中①处的语句不适合的为( )
A、a(j)*(-1)^ (i-1) < a(j-1)*(-1)^ (i-1) B、a(j)*(-1)^(i mod 2)< a(j-1)*(-1)^ (i mod 2) C、a(j)*(-1)' i> a(j-1)*(-1)^ i D、i mod 2=1 and a(j)<a(j-1) or i mod 2=0 and a(j)>a(j-1) -
10、有如下VB程序段：
x =" acababaab"
s = s+Mid(x, 1, 1)：i=1
Do While i <= Len(x)
flag = True
For j=1 To Len(s)
If Mid(x, i, 1) = Mid(s, j, 1) Then flag = False
Next j
If flag=True Then s=s+Mid(x, i, 1)
i=i+2
Loop
执行程序段后，变量S的值是（ ）
A、"ab” B、"acb" C、"aba” D、"abb" -
11、现有字符串s，以下程序段实现将字符串中的“ 热情”都替换成“激情”，下列选项中填写到①处无法实现本程序段功能的是( )
s = Text1. Text
i=1
Do While i<=Len(s)-1
If Mid(s， i， 2) =“热情”Then
s=Mid(s，1，i-1)+“激情”+Mid(s，i+2)
①
Else
i=i+1
End If
Loop
A、i=i+2 B、Exit DO C、i=i+1 D、Text1.Text = s -
12、VB表达式-3^2+ 12\4*3的值是( )A、-9 B、0 C、10 D、-8
-
13、某算法的部分流程图如图所示，数组a的值为“4，3，5，2，9，6”，执行这部分流程。则sum输出值为( )
A、23 B、36 C、18 D、27 -
14、将一幅未经压缩的1024X800像素、256 色的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量为160KB，则BMP文件与JPEG文件的存储容量比约为( )A、5：1 B、16：1 C、63：1 D、126：1
-
15、使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是( )
A、执行“删除”操作后，播放时有3秒静音 B、先执行“剪切”操作，再执行“粘贴”操作后，音频时长增加了3秒 C、将文件另存为单声道，其它参数不变，文件容量不变。 D、执行“剪裁”操作后直接保存，音频的时长变短 -
16、下列有关信息编码的说法，正确的是( )A、十六进制数65H与Asc("A")的值相等 B、根据GB2312-80标准，“信息”两字的内码共占4个bit C、已知大写字母“X"的ASCII码值为58H， 则大写字母“Z”的ASCII码值是60H D、某7位二进制数1*1****， 将其转换为十进制数后的值大于等于80
-
17、用Access软件设计抗疫物资收发系统的数据库，其中已建好的“物资流向”数据表用于存储如图所示的数据，发放序号中前4位表示年份、后4位表示月份和序号。
下列关于“物资流向”数据表的描述，正确的是( )
A、该数据表的字段数只能是6个 B、该数据表的数据可以从Excel文件导入，但不可以导出到Excel中 C、该数据表中的FFRQ字段可以输入不同格式的日期 D、将FFXH字段的类型设成自动编号也能满足“发放序号”列数据的需求 -
18、下列有关网页与浏览器的说法，不正确的是( )A、HTML文件可以用浏览器进行解释执行 B、在收藏夹中可以创建文件夹，用于网址的分类保存 C、某天猫商城的好评率为90%属于个人评价 D、在IE浏览器中，保存一个网页可能得到多个文件
-
19、下列关于信息与信息技术的描述，不正确的是( )A、利用信息技术计算机通过执行程序可以把信息从一种形态转换为另一种形态 B、我们一时一刻也离不开信息，信息无处不在 C、计算机处理的数据必须要经过数字化 D、谣言的传播源于片面的信息加工
-
20、对分查找算法可用于求解方程的近似值。现要求方程x3-4x2+x+5=0的一个近似值，可设f(x)= x3-4x2+x+5，若有区间[a，b]，使f(a)与f(b)异号，则该区间内必存在该方程的一个解。小明为此编写了VB程序，功能如下：程序运行时，在文本框Text1、Text2中输入区间值a、b，要求a<b，单击“计算”按钮Command1，若该区间有解，则计算出该区间内的一个近似值(精确到0.00001)，否则提示“请重新输入区间”，计算后的相关结果显示在列表框List1中。程序运行效果如下图所示。
实现上述功能的VB程序如下，请在划线处填入合适的语句。
Function f(x As Double) As Double
Dim y As Double
f = y
End Function
Private Sub Command1_Click()
Dim a As Double, b As Double, m As Double, x As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
If f(a) * f(b) < 0 And a < b Then
Do While a <= b
If Abs(f(m)) < 0.00001 Then Exit Do
If Then
b = m
Else
a = m
End If
Loop
x = Format(m, “0.00000”) ′Format函数用于定义输出的小数位数
List1.AddItem “[” & Text1.Text & “，” & Text2.Text & “]” & “解为：” & x
Else
List1.AddItem “[“ & a & ”，“ & b & ”]” & “请重新输入区间”
End If
End Sub