2016-2017学年浙江省台州市高三（上）质检信息技术试卷（9月份）
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．下列有关信息安全的说法，正确的是（ ）
组卷：11引用：4难度：0.9 -
2．下列可用于收发和管理电子邮件的软件是（ ）
组卷：9引用：4难度：0.9 -
3．用Word软件编辑文档，部分界面如图所示，文中图片使用的环绕方式是（ ）组卷：22引用：4难度：0.7 -
4．下列日常活动中，涉及数据库操作的是（ ）
组卷：13引用：5难度：0.9 -
5．运行下列VB程序，在文本框Text1中输入“台州”，单击命令按钮Command1后弹出如图所示的出错信息提示．
Private Sub Command1_Click（ ）
Dim City As String,file1 As String
City=Text1．Text
file1=City+“．jpg“
Image1．Picture=LoadPicturt（file1）
List1．AddItem City
End Sub
此时程序正在执行的语句是（ ）组卷：8引用：2难度：0.7
二、解答题（共5小题，满分26分）
-
16．杨辉三角，又称贾宪三角形，是我国古代数学的成就之一，如图所示为杨辉三角前5行的数据排列．从图可知，杨辉三角当前行的数值可由前一行推导计算得到．
现要求杨辉三角第n行的数据，编写的VB程序功能如下：在文本框Text1中输入n值（n≤30），单击按钮Command1后，在标签框Label1中输出第n行的数据．实现上述功能的VB程序如下，但加框处代码有错，请改正．
Private Sub Command1_Click（ ）
Dim pre（0 to 30）As Long,cur（0 to 30）As Long
'数值型数组的数组元素初值默认为0
Dim s As String,i As Integer,j As Integer
n=Val（Text1．Text）
=1'（1）
For i=1 To n
s=““
For j=1 To i
cur（j）=
'（2）
s=s & cur（j） &““
Next j
For j=1 To i
pre（j）=cur（j）
Next j
Next i
Label1．Caption=s
End Sub.组卷：7引用：2难度：0.1 -
17．猜数字是一种古老的密码破译类益智小游戏．通常由两个人玩，也可以由一个人和电脑玩，其标准规则为：
1）一方出数字，出数字的人要想好一个无重复数字的4位数（如0165，5234等），不能让猜的人知道；
2）另一方猜数字，每猜一个数字，出数者根据结果给出“几A几B的提示”，其中A前面的数字表示位置正确的数字个数，而B前面的数字表示数字正确但位置不对的数字个数．（如要猜5234，猜的人给出5346，则提示1A2B）；
3）重复第二步的猜测过程，直到猜中（即提示4A0B）为止．
小林编写了一个和电脑猜数字的VB程序，其功能如下：窗体加载时，调用自定义函数产生待猜的4位数字，并初始化猜测次数．用户在文本框Text1中输入猜的数字，单击“我猜”按钮Command1，程序进行判断，并将结果显示在列表框List1中．猜中后，在标签框Label2中根据猜测次数给出评语．程序运行效果如图1所示．
（1）实现上述功能的VB程序如下，请在横线处填入合适代码．
Dim result As String,total As Integer
Dim flag（0 to 9）As Boolean'标记下标对应的数字是否存在，初值默认为False
Private Sub Form_Load（ ）
result=
total=0
End Sub
Private Sub Command1_Click（ ）
Dim A As Integer,B As Integer
Dim C As Integer'变量C存储数字正确（含位置正确）的数字个数
Dim guess As String,i As Integer,t1 As String,t2 As String
guess=Text1．Text
A=0：C=0
For i=1 To 4
t1=Mid（result,i,1）
t2=Mid（guess,i,1）
If t1=t2 Then A=A+1
IfThen C=C+1
Next i
total=total+1
B=
List1．AddItem Str（total） &““& guess &““& Str（A） &“A“& Str（B） &“B“
If A=4 Then
If total＜=8 Then
Label2．Caption=“太厉害了！您只用了“& total &“次．“
Else
Label2．Caption=“继续锻炼！您共花了“& total &“次．“
End If
End If
End Sub
'RndCode 函数用于随机产生待猜测的n位不重复数字字符
Function RndCode（n As Integer） As String
Dim x As Integer,i As Integer
Randomize
num=0：RndCode=““
Do While num＜n
x=Int（Rnd*10）'随机产生一个[0，9]的数字
If flag（x）=False Then
flag（x）=True
num=num+1
RndCode=RndCode & x
End If
Loop
End Function
（2）如果某次游戏过程如图2所示，则第7次要猜测成功，应输入．
A.6321 B.6312 C.2531 D.2513．组卷：2引用：1难度：0.1
