2017-2018学年浙江省杭州地区六校联考高二（下）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分．）
-
1．下列有关信息的说法中，正确的是（ ）
组卷：42引用：1难度：0.9 -
2．如图是小明经常访问的一个网站的截图，以下说法正确的是（ ）
组卷：26引用：1难度：0.9 -
3．使用Word软件编辑某文档，部分界面如图所示。
下列说法正确的是（ ）组卷：29引用：1难度：0.9 -
4．用UltraEdit软件观察字符“2018，fighting!”的内码，部分界面如图所示。
下列说法正确的是（ ）组卷：20引用：1难度：0.7 -
5．使用Access软件创建的“图书”数据表，其设计视图和数据表视图的部分界面如图所示。
下列说法正确的是（ ）组卷：25引用：1难度：0.5
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
-
16．编写VB程序，实现如下功能：程序运行时，产生n个数据并在列表框List1中显示，在文本框Text1中输入一个正整数key,单击“查找”按钮Command1，则在标签Label2中显示查找该数的位置，程序界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错误，请改正。
Const n=10
Dim a（1To 10）As Integer
Private Sub Form_Load （ ）
'随机产生n个整数并存储在数组d中
'在列表框显示数据，代码略
End Sub
Private Sub Command1_Click （ ）
Dim key As Integer,p As Integer
key=Val（Text1．Text）
p=search（n）'①
If p＜＞0Then
Label2．Caption=“该数据在第“+Str（p）+“个位置“
Else
Label2．Caption=“没有找到！“
End If
End Sub
Function search（x As Integer） As Integer
search=0
For i=1To n
If a（i）=x Then
search=d（i）'②
End if
Next i
End Function组卷：23引用：1难度：0.4 -
17．小李编写了一个将二进制数转换成补码的VB程序。算法的基本思想：二进制数的第一位为符号位，如果符号位为0，表明该数为正数，其反码和补码与原码完全一致；如果符号位为1，表明该数为负数，其由源码变为补码时，需进行如下操作：（1）原码符号位1不变，其余每一位二进制数位求反（1变为0，0变为1），得到反码；（2）反码符号位1不变，反码数值最低位加1，得到补码。程序运行时，在文本框Text1中输入二进制数，单击“转换”按钮Command1之后，在文本框Text2中显示该数反码，在文本框Text3中显示改数补码。程序运行界面如图a、b所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）根据该VB程序，若输入的二进制数是1001001，则其转换成的补码为。
（2）请在下横线处填入合适的代码。
Private Sub Command1_Click （ ）
Dim source As String,opp As String,sup As String'变量source代表原码，opp代表反码，sup代表补码
Dim dAs String,i As Integer
Dim a（1To 100）As String
① For i=1To Len（source）
a（i）=Mid（source,i,1）
Next i
If a（1）=“0“Then
Text2．Text=source
Text3．Text=source
Else
For i=Len（source） To 2Step-1
If ② Then
a（i）=“0“
Else
a（i）=“1“
End If
opp=a（i）+opp
Next i
opp=a（1）+opp
Text2．Text=opp
d=“1“'反码数值最低位加1
For i=Len（source） To 2Step-1
If a（i）=“1“And d=“1“Then
a（i）=“0“
d=“1“
ElseIfa（i）=“0“And d=“1“Then
a（i）=“1“
③
End If
sup=a（i）+sup
Next i
sup=a（1）+sup
Text3．Text=sup
End If
End Sub组卷：2引用：1难度：0.5
