相关试卷
-
1、某VB程序段如下：
n=6：i=1
Do While i<= 3
k=i：j=i+1
Do While j<=n
If a(j) <a(k) Then k=j
j=j+1
Loop
If i<>k Then
t=a(i)：a(i)=a(k)：a(k)=t
End If
i=i+1
Loop
数组元素a(1)到a(6)的值依次为“1，6，5，3，4，2”，则该程序段运行后，数组元素a(1)到a(6)的值依次为（ ）
A、1，2，3，5，4，6 B、6，4，5，3，2，1 C、1，2，3，4，5，6 D、6，5，4，3，2，1 -
2、有如下VB程序段
s=Text 1.Text
t=Mid(s， Len(s)，1)
Max= 0
For i=Len(s) -1 To 1 Step-1
If Mid(s， i， 1) <Mid(s， i+1， 1) Then
t=t+Mid(s， i， 1)
If Len(t) >Max Then Max=Len(t) ：ans=t
Else
t=Mid(s， i， 1)
End If
Next i
Text 2.Text=ans
在文本框Text 1中输入“aaabcdebb”，执行该程序段后，文本框Text 2中显示的是（ ）
A、aaabcde B、aaa C、abcde D、edcba -
3、有如下VB程序段：
b=0
For a= 1 To 10
b=a+b
a=a+3
Next a
c=a+b
执行该程序段后，变量c的值为（ ）
A、15 B、22 C、28 r=0？ D、32 -
4、某算法的部分流程图如图所示。执行这部分流程后，a，b的值分别是（ ）
A、3，0 B、6，0 C、3，3 D、6，3 -
5、下列表达式的运算结果不等于9的是(以下的字符串都不含空格)（ ）A、Len(“2020选考”) +Sqr(9) B、Asc(“I”) -Asc(“A”) C、Val(Mid(“129”， 3， 1) ) D、Abs(Int(-8.4) )
-
6、将一幅1280×800像素、24位彩色BMP图像更改为640×480像素、256色BMP图像，且文件类型保持不变，新图和原图容量比为（ ）A、1：10 B、5：16 C、25：384 D、25：12
-
7、使用UltraEdit软件查看字符“MP4播放器”的内码， 部分界面如下图所示。
下列说法正确的是（ ）
A、“MP4”为ASCII编码，占3个位 B、“播”字的内码为A5B7H C、大写字母“0”的内码为49H D、字母“N”的内码为01001110B -
8、关于Access数据表的操作， 下列说法正确的是（ ）A、某字段数据类型为“自动编号”，则该字段一定是主键 B、可以在设计表视图中添加记录 C、修改字段的数据类型，其所对应的字段内容可能会被删除 D、可以在数据类型为“时间/日期”的字段中输入“二零二零年五月一日”
-
9、使用Word软件编辑某文档， 部分界面如图所示。下列说法正确的是（ ）
A、文档中有两处批注、两处修订 B、用户W1和a2分别对文档进行了批注 C、将第2行的“技术”改为“通信”，则原“信息技术”对应的批注内容将自动消失 D、若接受对文档的所有修订，第10行变为“(2)可加工和处理性。信息可以从一种形态转换为另一种形态。” -
10、下列说法正确的是（ ）A、电子邮件通过SMTP协议从发件人计算机发送到收件人计算机 B、当收件人邮箱地址与发件人邮箱地址相同时，用不到POP 3协议 C、HTML是客户端浏览器或其他程序与Web服务器之间的应用层通信协议 D、动态网页的实现需要数据库系统支持
-
11、下列有关信息与信息技术的说法，不正确的是（ ）A、信息可以脱离它所反映的事物被存储、保存和传播 B、GB2312-80(信息交换用汉字编码字符集)在1980年由中国国家标准总局发布，属于汉字机内码 C、典型的近代信息技术包括摄影技术、电影技术、广播和电视技术等 D、计算机病毒的防治可以从预防、检查和消毒三方面着手。
-
12、小明编写了一个VB程序对数组a(1 to 20)进行处理：首先随机生成20个两位正整数，然后对所有“是3的倍数”的数字进行升序排序，其余的数原位不动。
在列表框List1中显示整理前的数据，单击“排序”按钮，整理结果显示在列表框List2中，程序运行界面如图所示。
Dim a(20) As Integer
Private Sub Form_Load()
Randomize '对随机函数进行随机初始化
For i = 1 To 20
a(i) = ①
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Cd1_Click()
Dim Done As Boolean
Dim i As Integer, j As Integer, k As Integer, t As Integer
For i = 20 To 1 Step -1
If a(i) Mod 3 = 0 Then Exit For 'Exit For表示跳出For循环
Next i
If i = 0 Then
Label1.Caption = "没有满足条件的数"
Else ‘对能被3整除的数进行排序
②
Do While Not Done
j = i
Done = True
k = j - 1
Do While k >= 1
If a(k) Mod 3 = 0 Then
If a(k) > a(j) Then t = a(k): a(k) = a(j): a(j) = t: Done = False
③
End If
k = k - 1
Loop
Loop
End If
For i = 1 To 20
List2.AddItem Str(a(i))
Next i
End Sub
(1)、“排序”按钮的对象名是（单选，填字母:A .Click/B .Cd1/ C .Command1）。(2)、请在划线处填入合适的代码。① ② ③
-
13、小王编写了VB程序，功能如下：在窗体Form1的文本框Text1中输入要统计的人数，单击"统计"按钮运行程序，统计前n人的每科选课情况，数组a(1 to 300)中保存了每位同学的7选3科目(例如:a(1)="物化技")，数组b(1 to 7)用来保存“政史地物化生技”各科选课人数。
(1)、窗体Form1的属性中没有的是（单选，填字母：A .Text /B .Caption/ C .Width）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim n As Integer, i As Integer, m As Integer, s As String, temp As String
Dim a(1 to 300) As String, b(1 to 7) As Integer
Private Sub Form_Load()
'读取每位同学的选课科目，保存到数组a(1 to 300)中，代码略
End Sub
Private Sub Command1_Click()
n = ①
s = "政史地物化生技" : temp=""
For i = 1 to n
temp = temp + a( i )
Next i
For i = 1 to len(temp)
m = ②
b(m) = b(m) + 1
Next i
For i = 1 to len(s)
list1.Additem Mid( s, i, 1 ) + ③ + "人"
Next i
End Sub
Function pos(j As Integer ) As Integer '该函数用于查找科目在s中的位置
Dim k as Integer
For k = 1 to len(s)
If
Then pos = k : Exit ForNext k
End Function
① ② ③
(3)、程序中加框处代码有错，请改正。 -
14、用Flash软件打开“琴棋书画.fla”文件，时间轴如图所示。
(1)、下列属于创作需求分析的是（多选，填字母：A .结构类型 /B .作品效益/C. 设施需求/ D .用户情况 / E .确定作品的发布方式）。(2)、为了使“画”图层的动画出现在“书”图层动画之后，并和“背景”图层一起结束，“画”图层中应进行的操作是。(3)、导出影片后，单击当前场景中的“链接”按钮，关闭动画，同时跳出“sc.chinaz.com”网页，则“链接”按钮的动作脚本为on( release) {}。(4)、若使该作品发布后按钮可用，下列格式中应选择(多选，填字母：A .GIF动画(*.gif) / B .Windows放映文件( *.exe) / C .Windows AVI(*.avi)/ D .Flash影片( *.swf)/ E. JPEG序列文件( *.jpg)。 -
15、小王获取了2016-2017年支付宝付款数据，并使用excel软件进行数据处理，如图a所示。
图a
图b
请回答下列问题：
(1)、区域C5：C13中的数据是从C4单元格利用自动填充功能得到的。则C4单元格输入的公式是。(2)、要以“年增长率（%）”为主要关键字进行排序，则选择的数据区域是。(3)、根据图a的数据，制作了图b的图表，创建该图表的数据区域是。(4)、将区域 A3：F14的数据值复制到新的工作表A1：F12并进行筛选，筛选条件为E列最大的三项，则在第4行A列看到的是。 -
16、有两个以字母结尾的字符串s1和s2，在不区分大小写的前提下判断它们是否相同。该功能的VB程序段如下：
Private Sub Command1_Click（ ）
Dim c1 As String, c2 As String, s1 As String, s2 As String
s1 = Text1.Text: s2 = Text2.Text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Then
i = i + 1: j = j + 1
Else
Exit Do 'Exit Do表示退出循环
End If
Loop
If i > Len(s1) And j > Len(s2) Then T3.Text = "相同" Else T3.Text = "不相同"
End Sub
Function toLowerCase(x As String) As String '该函数把大写字母转成小写
If x >= "A" And x <= "Z" Then
toLowerCase = Chr(Asc(x) + 32)
Else
End If
End Function
划线处的代码从以下代码中选择，每条划线一句代码：
①toLowerCase = Chr(Asc(x) - 32) ②toLowerCase = x
③toLowerCase(c1) = toLowerCase(c2) ④c1 = c2
选择代码组合正确的是
A、④ ① B、① ④ C、③ ① D、③ ② -
17、有如下VB程序段：
s = "I never give up"
n = 0
Flag = True
For i = 1 to len(s)
ch = Mid(s,i,1)
If Asc(ch) >= 65 Then
If Flag = True Then
n = n + 1
Flag = False
End If
Else
Flag = True
End If
Next i
若空格的十进制ASCII码为32，执行该程序段后，变量n的值为（ ）
A、1 B、4 C、7 D、13 -
18、在有序数组d(1 to 8)中执行对分查找，输出查找次数，不可能的次数是（ ）A、1次 B、2次 C、4次 D、5次
-
19、采用选择排序算法对数据序列“5，3，1，4，0”完成升序排序，则需要交换的次数为（ ）A、1次 B、2次 C、3次 D、4次
-
20、某段VB代码对应的流程图如图所示，执行这部分流程后，下列说法正确的是（ ）
A、该部分流程包含了If分支结构 B、该段VB代码包含了For循环结构 C、a=5，s=105 D、“s≤100？”执行了4次