2016-2017学年浙江省绍兴市高三（上）选考适应性信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．某外贸公司对其产品信息进行整理后制作成了一个图文并茂的产品介绍网站．其中的整理与制作主要体现了信息的（ ）
组卷：10引用：1难度：0.9 -
2．某在线二维码生成器如图所示，下列说法中不正确的是（ ）
组卷：5引用：1难度：0.9 -
3．如图所示，输入关键词“浙江大学”进行检索，使用的信息检索方式为（ ）
组卷：8引用：1难度：0.9 -
4．小丽使用 Word 软件为《杂草的故事》一书撰写了一篇图书推荐文章，请同学帮忙审阅后，打开的文档部分截图如图所示．
下列说法正确的是（ ）组卷：11引用：3难度：0.7 -
5．用UltraEdit软件观察字符内码，结果如图所示，字符“p”的内码用十六进制编码表示为（ ）组卷：3引用：1难度：0.5
二、解答题（共5小题，满分26分）
-
16．小强想用选择排序算法对n个数据元素进行降序排序，并且用Do While循环语句来实现编程．该程序的功能如下：单击“排序”按钮Command1，程序对列表框List1中显示的n个整数进行降序排序，并在列表框List2中显示排序结果．程序运行效果如图所示．
该程序中实现选择排序功能的VB代码如下，但加框处代码有错，请改正．
Dim a（1 To 100）As Integer,i As Integer,j As Integer,t As Integer
Dim object As Integer
Const n=100
Private Sub Command1_Click（ ）
i=0
Do While
'（1）
i=i+1
object=i
j=object+1
Do While j＜=n
If a（object）＜a（j） Then object=j
'（2）
Loop
If object＜＞i Then
t=a（object）：a（object）=a（i）：a（i）=t
End If
Loop
For i=i To n
List2．AddItem Str（a（i））
Next i
End Sub.组卷：3引用：1难度：0.1 -
17．当计算机程序中无法用普通数据类型表示位数较多的乘数和计算结果时，就需要采用高精度乘法．如，当两个各有20位数字的整数相乘时，就无法用长整型（Long）数据类型来表示．高精度乘法运算就是运用数组，用程序模拟列竖式计算的过程．两个正整数进行高精度乘法计算的一般算法如下：
（1）将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组a（1）、a（2）、…、a（La）中，将另一个整数各位上的数字按照从低位到高位的顺序依次存入数组b（1）、b（2）、…、b（Lb）中．其中，La表示第一个整数的位数，Lb表示第二个整数的位数；
（2）按照从低位到高位的顺序，将两个整数各位数值进行逐位乘法计算（第一轮先让b（1）依次乘以a（1）、a（2）、…、a（La），第二轮再让b（2）依次乘以a（1）、a（2）、…、a（La），依次进行），每位的乘法结果也按照低位到高位的顺序依次存入数组ans（1）、ans（2）、ans（3）…中；
（3）对数组ans中的计算结果进行低位到高位的进位处理；
（4）统计数组ans中实际计算结果的有效数值位数，并将位数值存入变量length；
（5）按照高位到低位的顺序输出数组ans中的计算结果．
小强按照上述方法设计了一个两数进行高精度乘法计算的VB程序，功能如下：在文本框Text1和Text2中依次输入两个整数，单击“计算”按钮Command1，程序进行高精度乘法计算，并在标签Label4中输出计算结果．下面信息显示了进行高精度乘法计算的主要过程（假设输入的两个整数分别为“123”和“45”）；
程序运行效果如图3所示．
实现上述功能的VB程序如下：
（1）请在横线处填入合适代码．
Dim a（1 To 30）As Integer,b（1 To 30）As Integer,ans（1 To 60）As Integer
Dim La As Integer,Lb As Integer,length As Integer
Private Sub Command1_Click（ ）
Dim i As Integer,j As Integer,t As Integer,temp As String
'将两个乘数（正整数）各数位上的数字按照上述算法依次存入数组a和b,每个正整数位数分别保存到变量La和Lb；将保存结果的数组ans（i）值初始化为零（该部分程序代码略）
For i=1 To Lb'按低位到高位的顺序进行列竖式的逐位乘法
For j=1 To La
ans（i+j-1）=+b（i）*a（j）
Next j
Next i
For i=1 To La+Lb'对计算结果进行进位处理
ans（i+1）=ans（i+1）+ans（i）\10
ans（i）=
Next i
length=La+Lb
Do While ans（length）=0
length=length-1
Loop
For i=To 1 Step-1
Label4．Caption=Label4．Caption & Str（ans（i））
Next i
End Sub
（2）根据本题算法，若输入的两个整数分别为5125和18，则在输出乘法计算结果时，变量length的值为．组卷：2引用：1难度：0.1
