相关试卷
-
1、小李收集了2018年1月部分地市网络零售统计数据，并使用Excel软件进行数据处理，如图a所示。
(1)、如图a所示，当前已选中D3:E3单元格，要实现与B3:C3一样的格式，则可直接点击工具栏中按钮（填字母：A.
B. 
C. 
D. 
） (2)、要统计“消费额”与“零售额”都超过50亿元的城市个数，小李想到以下两种方式：方式一：在F14单元格中输入公式： = COUNTIF(b5:B12, “>50”)+ COUNTIF(D5:D12, “ > 50”)（提示：COUNTIF函数用于统计某个区域满足条件的单元格个数。例如：= COUNTIF(C5:C12, “ < 10”）表示在数据区域C5:C12中数值小于10的单元格个数）。
方式二：在“消费额”与“零售额”单元格中分别以大于50为条件进行自定义筛选，观察得到。
你认为可实现的操作是。（单选，填字母：A .方式一 /B .方式二 /C .方式一、方式二都可以）
(3)、要想以“顺差”为主要关键字进行升序排序，下列方式可行的是________。（多选，填字母）
A、选择区域A3:F12，执行自定义排序指令，并以图b设置完成排序 B、选择区域A4:F12，执行自定义排序指令，并以图b设置完成排序 C、选择区域A3:F12，执行自定义排序指令，并以图c设置完成排序 D、选择区域A4:F12，执行自定义排序指令，并以图c设置完成排序 -
2、编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后，删除其中的3个数字，且保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。
Private Sub Command1_Click ( )
Dim s As String, n As Integer, i As Integer, j As Integer
s = Text1. Text
For i = 1 To 3
n = Len(s)
For j = 2 To n
If
Then Exit For Next j
s = Mid(s, 1, j-2)+ Mid(s, j, n-j+1)
Next i
Text2 Text = s
End sub
加框处的正确代码为（ ）
A、Mid(s, j, 1) < Mid(s, j+1, 1) B、Mid(s, j-1,) > Mid (s, j, 1) C、Mid(s, j, 1) > Mid(s, j+1, 1) D、Mid(s, j-1,) < Mid(s, j, 1) -
3、有如下VB程序：
Dim c As Integer
Private Sub Form _Load ( )
c = 0: Text1. Text = “”
End sub
Private Sub Text1 _Change ( )
If Va l(Text1. Text) > 0 Then
Text1. Text = Str(Val(Text1. Text) \2
c = c + 1
End If
Text2. Text = Str(c)
End sub
运行该程序，在文本框Text1中输入5，则Text1和Text2中显示的内容分别是（ ）
A、0 3 B、1 2 C、5 1 D、-1 3 -
4、有下列VB程序：
Private Sub Command1_click ( )
Dim i As Integer, n As Integer
Dim s1 As String, s2 As string, c As String
s1 = Text1. Text: s2 = “”
For i = 1 To Len(s1)
c = Mid (s1, i, 1)
If c > = “a" And c < = “z” Then s2 = c+s2
Next i
Text2. Text = s2
End sub
该程序运行时，在文本框Text1中输入”Flash CS33”（不包含””），单击命令按钮Command1后，文本框Text2中显示的内容是（ ）
A、lash B、hsal C、FlashCS D、SChsalF -
5、寻找数组元素a(1)到a(10)中最小值min的程序段如下：
For i =2 To 10
If a(i) < min Then min = a(i)
Next i
方框中最合适的语句是（ ）
A、a(1) = min B、min = 1 C、min = a(1) D、min = 0 -
6、某算法的部分流程图如图所示。执行这部分流程后，输出s的值为（ ）
A、-1009 B、1009 C、-1010 D、1010 -
7、用Access软件打开某数据库文件，部分界面如图所示，以下说法正确的是（ ）
A、该数据库的名称为“zhb. accdb” B、可以将该表的数据导出到Excel中 C、当前记录为第30条 D、在当前位置插入新记录，新记录的“序号”值为“29” -
8、一段未经压缩的视频（不含声音）的参数为每帧画面为640×480像素、16位色、pAL制式（25fps），该视频的大小为73MB，则该视频的时间约为（ ）A、1秒 B、5秒 C、10秒 D、15秒
-
9、用GoldWave软件编辑音频文件“音乐.wav”，界面图所示。下列说法正确的是（ ）
A、该音频是立体声，采样频率是1411Hz B、当前选中的是左声道，选中时长为10分钟 C、当前状态下执行“剪裁”，并按原参数保存，则存储容量变为原来的1/4 D、当前状态下执行“选定部分另存为”命令存储为单声道音频，其他参数不变，则存储容量变为原来的1/8 -
10、如图所示为一个“大”字的8×8信息编码点阵图，假设白方块用“0”表示，黑方块用“1”表示，下列说法正确的是（ ）
A、第7行的编码是“0100010” B、若要将“大”字修改为“人”字，只要将第4行的编码修00000000即可 C、表示此点阵图要用64个字节 D、将点阵图顺时针旋转90度后，第1行的编码10000000 -
11、下列关于计算机病毒的叙述，正确的是（ ）A、计算机病毒只要不影响程序的正常使用就不用清除 B、把包含计算机病毒的文件用压缩软件压缩成一个新文件，病毒就被清除了 C、计算机病毒只有通过双击运行才会生效 D、新的计算机病毒变种不断出现，病毒通常产生于反病毒软件之前
-
12、小明在使用淘宝网购手机时，先找到“手机”这一类，再点击“小米”，再进入“小米品牌中心”逐级查找需要的手机，如图所示。这种信息检索的方法属于（ ）
A、关键词检索 B、全文检索 C、搜索引擎检索 D、主题目录检索 -
13、下列有关信息与信息技术的说法，正确的是（ ）A、出借的图书在归还后发现有缺页，说明信息在共享过程中会有损耗 B、商场收银员扫描用户提供的支付二维码属于信息的获取过程 C、复杂的加密算法很难破解，所以经过加密的信息一定是安全的 D、计算机可以使用二进制或十六进制数保存信息
-
14、RGB色彩模式是工业界的一种颜色标准是通过对红（R）绿（G）蓝（B）三个颜色通道的变化以及它们相互之间的叠加来得到各种各样的颜色RCB颜色分量的值通常采用十进制数表示，而 Flash软件中颜色值采用十六进制数表示。比如RGB（100，255，10）等价于十六进制颜色码＃64FA，每个RGB颜色分量对应两位十六进制数。小李编写了一个十六进制颜色码转RGB颜色值的转换程序，程序功能如下:程序运行时在文本框Text1中输入一个十六进制颜色码，输入格式为“＃”后面跟6位十六进数（其中字母均为大写）。单击“转换按钮Command1在标签 Label1输出对应的RGB颜色值。程序运行界面如图所示。
实现上述功能的VB程序，如下请回答下列问题。
(1)、程序运行时，在文本框Text1输入“＃C50913”，则标签Label1上显示的内容是。(2)、请在划线处填入合适的代码。Private Sub Command1 _Click ( )
Dim i As Integer, y As Integer
Dim s As String, ans As string
Dim a As String
s = Text1. Text
a = Mid(s, i, 1)
y = 0
For i = 1 To 6
a = Mid (s, i , 1)
①
If i Mod 2 = 1 Then
y = m
Else
②
ans = ans + str(y)
If ③ Then ans = ans + ","
y = 0
End If
Next i
Label2. Caption = “RGB (“+ ans +”)”
End sub
Function HtoD(x As String) As Integer ‘将一位十六进制数转换为十进制数
code = "0123456789ABCDEF”
j = 0
Do While j < = 16
j = j +1
If x = Mid(code, j, 1) Then Exit Do
Loop
④
End Function
① ② ③ ④
-
15、小李在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组c中），单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。
(1)、在设计如图a所示的程序界面时，应使用图b所示“控件工具箱”中的（填写相应编号）添加列表框List1。(2)、语句“Flag=True”放置在（单选，填字母：A/B/C）位置。(3)、程序代码中，加框处语句有错，请改正。(4)、在划线处补充完成程序代码。Const n1 = 6 ‘ 第1段已排序数据长度为n1
Const r2 = 5 ‘ 第2段已排序数据长度为n2
Dim c (1 To n1 + n2) As Integer ‘ 数组c长度为n1+n2，依次存储第1、2段数据
Private sub Command1_Click ( )
‘ 数组c依次存储两段已按从小到大排序的数据，并在列表框List1中显示’
‘ 代码略
List2. Clear
‘ A位置
For i = n1+1 To n1 + n2
‘B位置
Do While j > 1 and Flag
If ① Then
t = c(j): c(j) = c(j-1): c(j-1) = t
‘ C位置
Else
Flag = False
End If
②
Loop
Next i
For i = 1 To n1 + n2
List2. AddItem c(i)
Next i
End sub
① ②
-
16、小李使用Flash软件创作题为“春趣”的多媒体作品。请回答下列问题。
(1)、如图a所示，“背景”图层第一帧中的图片是通过将未经压缩的“bj.BMP”图片导入到库后得到的，其相关信息为“1024×512，24位”，该图片文件的大小约为KB。(2)、若将动画的帧频修改为6fps，则动画开始播放约秒后（保留1位小数），“蚂蚁”图层中的“蚂蚁”开始出现在舞台上。(3)、如图a所示，为了使“文字”图层中的文字“春趣”从第1帧就出现并持续到第35帧，下列操作方法中正确的有（多选，填字母：A .复制第35帧至第1帧/B .删除第1桢至第34帧/C .对第1帧执行清除关键帧操作/D .将第35帧移至第1帧）。(4)、如图a所示，“蚂蚁”图层中包含“蚂蚁”向右走的动画，其关键帧中的对象均是由库中图形元件“蚂蚁走路”生成的实例，该动画创建不成功的原因可能是。(5)、制作“小鸟”动画时，首尾关键帧的部分属性界面如图b所示，可推测其移动方向是（单选，填字母：A .向左上/B .向左下/C .向右上/D .向右下）。
(6)、如图a所示，播放动画时，单击“关闭”按钮后动画自动关闭，则添加在“关闭”按钮上的动作脚本是。 -
17、小李收集了7家网上书店的销售相关数据，并使用Excel软件进行数据处理，如图a所示。
请回答下列问题。
(1)、区域C4:C10的数据是通过公式计算得到的。在C4单元格输入公式后，用自动填充功能完成C5:C10的计算，则C4单元格中的公式是。（提示：销售总额占比（％）=某一书店近三年销售总额÷所有书店的近三年销售总额×100）
(2)、根据图a中数据制作的图表如图b所示，建该图表的数据区域是。
(3)、如图a所示，选中A2:G10的数据，（选填：能/不能）以G列为主要关键字对各店铺的“平均得分”降序排序操作。(4)、对图a中“宝贝与描述相符”进行筛选，条件设置如图c所示，确定后能选出（填数字）家书店。
-
18、有如下程序段：
Const n = 6
Dim a (1 To n) As Integer
Dim i As Integer, j As Integer, t As Integer
Randomize For i = 1 To n
a (i) = Int (Rnd * 20 + 11)
Next i
Do While True
For i = 1 To n-1
If a(i) > a(i +1) Then Exit For
Next i
If i < n Then
For i = 1 To n
j = Int(Rnd * 6) + 1
t = a(3): a(3)=a(i): a(i) = t
Next i
Else
Exit Do
End if
Loop
上述程序段执行后，a(1)到a(6)的值可能是（ ）
A、10 13 15 25 25 28 B、15 16 22 26 28 28 C、18 21 25 25 19 30 D、29 22 20 20 18 16 -
19、有如下VB程序段：
f = True: i = 5: k = 0
Do While i > 1 And f = True
f = False
For j = 1 To i-1
If a(j) < a(j+1) Then
t = a(j): a(j) = a(j+1): a(j+1) = t
k = k+1
f = True
End If
Next j
i = i-1
Loop
数组元素a(1)到a(5)的值依次为“19917，56，99，9”。该程序段执行后，下列说法正确的是（ ）
A、数组a各元素的值是56，98，99，177，199 B、变量k的值为3 C、数组元素56在此过程中共交换了3次 D、变量i的值为3 -
20、有如下VB程序：
Private Sub Command1_Click ( )
Dim t As Long, s As string
s = Text1. Text
For i = 1 To Len (s)
s = Mid(Text1. Text, i, 1)
If s > = “0” s < = “9” Then
t = t * 10 + Va1 (s)
ElseIF s > = “a” And s< = “z” Then
t = 10
End If
Next i
Text2. Text = Str(t)
End Sub
运行该程序，在文本框Text1中输入“2018 Iphone7”，单击命令按钮Command1后，文本框Text2中显示的内容是（ ）
A、2018 B、107 C、20187 D、7