相关试卷
-
1、以下VB 程序段的功能是：单击一次按钮Command1，在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。
Private Sub Command1_Click()
Dim s As String, c As String, i As String, a As String, t As Integer
Randomize
s = “”
For i = 1 To 10
If a <= 26 Then
t = a + 64
Else
End If
c = Chr(t)
s = s + c
Next i
List1.AddItem s
End Sub
以上横线处的正确语句是( )
A、①a=Int(Rnd * 52 + 1) ②t = a + 70 B、①a=Int(Rnd * 52) ②t = a + 71 C、①a=Int(Rnd * 52 + 1) ②t = a + 72 D、①a=Int(Rnd * 52) ②t = a + 73 -
2、下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。
Dim a(1 To 100)As Integer
n=Val(Text1.Text)
a(1)=0：a(3)=1
s=1
Next i
Text2.Text=Str(s)
方框中的代码由以下三部分组成：
①a(i)=a(i-2)+a(i-4)
②s=s+a(i)③For i=5 To n Step 2
代码顺序正确的选项是( )
A、①②③ B、③②① C、②①③ D、③①② -
3、对用户输入的字符串进行解密的 VB 程序段如下：
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
Next i
已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为( )
A、YHt5 B、xgS4 C、zjW9 D、xfQ1 -
4、下列有关多媒体技术的说法正确的是( )A、任何多媒体作品都具有交互性这个特征 B、多媒体作品的规划设计阶段可以分为模块设计和脚本设计 C、多媒体中存在冗余越少，采用多媒体技术压缩后文件的压缩比越大 D、多媒体数据的压缩技术可以允许存在少量误差和去除冗余，因此该压缩属于有损压缩
-
5、小陈使用Word软件，对文档的部分内容进行了以下修改，下列描述不正确的是( )
A、该文档第1处批注内容为：“2017年” B、当前状态下仅有1位用户对该文档添加批注 C、拒绝所有修订后，第7行部分文本内容为：“19”代表的是最大载客量为1 900座 D、接受所有修订后，第1行部分文本内容为：2017年这个春天，中国注定吸引世界目光 -
6、下列有关信息的说法，错误的是( )A、传递和获得信息的途径可以有多种 B、信息的编码与解码需要遵守一定的原则和方法 C、信息的来源不同导致获取的方法也存在差异 D、微信中转发他人朋友圈链接，无需承担相关法律责任
-
7、给出只包含加、减、乘、除中一个运算符的算术等式，求该算术等式中的最小进制。如等式6*9=42，该等式中的数字均属于13进制。推算的算法是：
1)找出等式中单个数字的最大值；
2)从最大值加1的数制开始，按该数制的运算规则，把等式中所有数字转换成十进制数；
3)如果等式两边的结论是成立的，那么该数制就是符合上述等式的最小数制，否则从下一个数制重新计算，直到十六进制为止。
小明为此编写了一个VB程序，程序运行时，在文本框Text1中输入一个等式，单击“计算”按钮Command1，在文本框Text2中显示该等式中数字所属的数制。程序运行界面如下图所示。
(1)、根据上述算法，则等式“5+7=13”成立，则该等式中的数属于进制数。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=“+” Or ch=“-” Or ch=“*” Or ch=“\\” Then
ysf=ch: t1=t: t=“ ”
ElseIf ch=“=” Then
t2=t: t=“ ”
ElseIf ch >= “A” And ch <= “F” Then
t=t+ch
temp=
If max < temp Then max=temp
Else
t=t+ch
If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
Do While i <= 16
If ysf=“+” Then
If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=“-” Then
If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=“*” Then
If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=“该数属于” +Str(jz)+ “进制”
Else
Text2.Text=“没有找到合适的进制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
Next i
End Function
-
8、如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对(运行效果如图所示)。
实现上述功能的VB代码如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0：i = 3
Do While i <= 100
If Not prime(i) Then
k = k + 1
End If
i = i + 2
Loop
For i = 2 To k
If ① Then
List1.AddItem Str(a(i-1)) +“和” + Str(a(i))
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
prime = True
Exit For
End If
Next i
End Function
(1)、语句“List1.AddItem Str(a(i-1))+“和”+Str(a(i))”中的AddItem是(单选，填字母：A . 对象名/B . 属性名/C . 事件名/D . 方法名)。(2)、程序代码中，加框处有错，请改正。(3)、程序代码中，将①处语句补充完整。(4)、在自定义函数中，函数返回值prime=Flase表示的含义是。 -
9、小林创作多媒体作品，请回答下列问题。(1)、使用Photoshop软件制作一张背景图片，如下图所示。
若要使图a“湖．psd”中“gz”图层中鸽子出现在夏日．psd中，下列操作可行的是。
图a
(多选，填字母：A . 使用“复制图层”命令将“gz”图层复制到夏日.psd中 /B . 将 “gz”图层直接通过鼠标拖到夏日．psd中 /C . 使用魔棒工具(容差为5)选中“gz”图层中的图像并进行拷贝后复制粘贴到夏日.psd中 /D . 选中 “gz”图层后，执行“全部”选择操作，进行拷贝，在夏日.psd中粘贴。)
(2)、使用Flash软件制作动画，时间轴如图b所示。
图b
小林在“鸽子”图层第50帧设置了动作脚本“stop( )”若要使“声效”图层中的声音在动画播放到第50帧后，仍能持续播放完毕，可设置该声音的同步为(选填：事件/数据流)。
(3)、在“鸽子”图层制作鸽子文字渐变成一只鸽子的补间动画，该动画属于(选填字母：A.逐帧/ B．动画补间/ C．形状补间)动画。(4)、如图b所示，当前在“按钮”图层第50帧应用了“静音”按钮，若要使该按钮始终在当前场景呈现，可进行的操作是。(5)、若单击“静音”按钮，停止所有声音的播放，则在该按钮上需添加的动作脚本是。 -
10、学校对各班级的文艺汇演成绩做了评分，并利用Excel软件进行数据处理，部分界面如图a所示。
图a
(1)、用公式计算出各班级得分，可在I3单元格输入公式，再利用自动填充得到其他班级得分，则I6单元格上的公式为。(2)、将各年级最后得分最高的班级设为该年级的一等奖，下列方法可得到高二年级一等奖班级的是__________(多选，填字母)。A、选择区域B8：I12，再按“列I”为关键词进行降序排序后，该区域的第1 条记录为高二年级一等奖班级 B、先筛选出“班级”开头是“高二”的记录，再筛选出“最后得分”为最大1 项的记录，筛选结果即为高二年级一等奖班级 C、先筛选出“最后得分”为最大1 项的记录，再筛选出“班级”包含“高二”的记录，筛选结果为高二年级一等奖班级 D、先按“最后得分”升序排序，再筛选出“班级”包含“高二”的纪录，最后一条记录为高二年级一等奖班级(3)、根据数据表中的数据制作的图表如图b所示，创建该图表的数据区域为。
图b
-
11、已知直角三角形的斜边长度，利用对分查找算法计算其他两条整数边长的VB程序段如下：
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
Do While
M = (L + R) \2
p = p + 1
If i * i + M * M < Key * Key Then
L = M + 1
ElseIf i * i + M * M > Key * Key Then
R = M - 1
Else
Text2.Text = Str(i) + “” + Str(M) + “” + Str(key)
flag = False
i = Key
End If
Loop
Next i
If flag Then Text2.Text = “没有符合条件的整数勾股数对！”
上述程序段2个划线处的代码分别为( )
A、①R=Key-1 ②L<=R And flag B、①R=Key ②L<=R And flag C、①R=Key – 1 ②L<=R Or flag D、①R=Key – 1 ②L<=R And flag=False -
12、某同学编写了一个VB程序，功能为在文本框Text1中输入英文字符串，单击“转换”按钮Command1，文本框Text1中的大写英文字母转换为小写，结果显示在文本框Text2中。部分程序段如下：
s1 = Text1.Text
s2=“”
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch>=“A” And ch<=“Z” Then
′提示：“A”的ASCII码值为65，“a”的ASCII码值为97
End If
s2=s2 & ch
Next i
Text2.Text = s2
要使程序实现上述功能，则方框中的代码是( )
A、ch = Chr(Asc(ch) + 32) B、ch = Asc(Chr(ch) + 32) C、ch = Chr(Asc(ch) - 32) D、ch = Str(Val(ch) - 32) -
13、有如下VB程序段：
For i = 4 To 3 Step -1
If a(i) < a(i-1) Then
tmp = a(i)
For j = i-1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j+1) = a(j)
Next j
a(j+1) = tmp
End If
Next i
数组元素 a(1)到 a(6)的值依次为“19，8，96，92，85，88”，经过该程序段“加工”后，数组元素 a(1)到 a(6)的值依次为( )
A、8，19，92，96，85，88 B、8，19，85，88，92，96 C、19，8，92，96，85，88 D、19，8，85，92，96，88 -
14、有如下VB程序段：
a(1) = 1
For i = 2 To 6
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) \2 + 1
Else
a(i) = a(i) / 2
End If
Next i
执行程序后，a数组各元素可能是( )
A、1 3 4 6 7 9 B、1 2 0 3 5 6 C、1 2 3 4 5 4 D、1 3 4 5 1 1 -
15、产生一个在[10，99]中随机奇数的VB表达式是( )A、11 + Int(Rnd * 99) B、11 + Int(Rnd * 45)*2 C、11 + Int(Rnd * 89) D、10 + Int( Rnd * 90)
-
16、某算法流程图如下图所示，执行该算法，下列说法正确的是( )
A、变量i的值是21 B、语句i=i+1执行了5次 C、变量s的值为10 D、语句i<=20被执行了5次 -
17、使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示，下列说法错误的是( )
A、从当前位置开始播放5秒，只能听到一个声道的声音 B、选中部分在中间的位置，不能作淡入处理 C、复制其他文件的声音，执行“粘贴”命令，会替换当前部分声音 D、在当前状态下，执行删除或剪裁命令，两次分别保存后的文件容量是相同的 -
18、使用UltraEdit软件查看字符“如果 A<>0 then b=b/A”内码，部分界面如图所示，下列说法正确的是( )
A、存储上述字符需要20个Byte B、“a-z”字符内码值都比“A-Z”字符的内码值小 C、字符“D”的内码用二进制表示为“01100100” D、使用UltraEdit软件查看字符，字符个数超过15个的时候会自动换行 -
19、下列有关网页与浏览器的说法，不正确的是 ( )A、网页的三种基本元素是文字、图形图像和超链接 B、网页内容是用HTML(超文本标记语言)进行描述的 C、浏览器中收藏的网页，在没有接入网络的状态下也能进行浏览 D、浏览器中以“*.txt”格式另存网页，网页中的超链接不能被保存
-
20、下列有关信息的说法，不正确的是( )A、Python程序设计语言也是一种信息 B、给微信朋友圏点赞也是一种信息评价方式 C、信息在传输过程中，必须遵循一定的规则 D、对相关数据进行加工处理，使数据之间建立相互联系，从而形成信息