2017年浙江省高中技術(shù)選考模擬試卷（九）
發(fā)布：2024/12/26 8:0:14
一、選擇題（本大題共12小題，每小題2分，共24分）
-
1．下列有關(guān)信息安全的說(shuō)法，正確的是（ ?。?/h2>
組卷：11引用：4難度：0.9 -
2．下列可用于收發(fā)和管理電子郵件的軟件是（ ?。?/h2>
組卷：9引用：4難度：0.9 -
3．用Word軟件編輯文檔，部分界面如圖所示，文中圖片使用的環(huán)繞方式是（ ?。?/h2>組卷：22引用：4難度：0.7 -
4．下列日?；顒?dòng)中，涉及數(shù)據(jù)庫(kù)操作的是（ ?。?/h2>
組卷：12引用：5難度：0.9 -
5．運(yùn)行下列VB程序，在文本框Text1中輸入“臺(tái)州”，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示．
Private Sub Command1_Click（ ?。?br /> Dim City As String,file1 As String
City=Text1．Text
file1=City+“．jpg“
Image1．Picture=LoadPicturt（file1）
List1．AddItem City
End Sub
此時(shí)程序正在執(zhí)行的語(yǔ)句是（ ?。?/h2>組卷：8引用：2難度：0.7
二、非選擇題（本大題共5小題，共26分）
-
16．楊輝三角，又稱賈憲三角形，是我國(guó)古代數(shù)學(xué)的成就之一，如圖所示為楊輝三角前5行的數(shù)據(jù)排列．從圖可知，楊輝三角當(dāng)前行的數(shù)值可由前一行推導(dǎo)計(jì)算得到．
現(xiàn)要求楊輝三角第n行的數(shù)據(jù)，編寫的VB程序功能如下：在文本框Text1中輸入n值（n≤30），單擊按鈕Command1后，在標(biāo)簽框Label1中輸出第n行的數(shù)據(jù)．實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click（ ?。?br /> Dim pre（0 to 30）As Long,cur（0 to 30）As Long
'數(shù)值型數(shù)組的數(shù)組元素初值默認(rèn)為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．猜數(shù)字是一種古老的密碼破譯類益智小游戲．通常由兩個(gè)人玩，也可以由一個(gè)人和電腦玩，其標(biāo)準(zhǔn)規(guī)則為：
1）一方出數(shù)字，出數(shù)字的人要想好一個(gè)無(wú)重復(fù)數(shù)字的4位數(shù)（如0165，5234等），不能讓猜的人知道；
2）另一方猜數(shù)字，每猜一個(gè)數(shù)字，出數(shù)者根據(jù)結(jié)果給出“幾A幾B的提示”，其中A前面的數(shù)字表示位置正確的數(shù)字個(gè)數(shù)，而B前面的數(shù)字表示數(shù)字正確但位置不對(duì)的數(shù)字個(gè)數(shù)．（如要猜5234，猜的人給出5346，則提示1A2B）；
3）重復(fù)第二步的猜測(cè)過(guò)程，直到猜中（即提示4A0B）為止．
小林編寫了一個(gè)和電腦猜數(shù)字的VB程序，其功能如下：窗體加載時(shí)，調(diào)用自定義函數(shù)產(chǎn)生待猜的4位數(shù)字，并初始化猜測(cè)次數(shù)．用戶在文本框Text1中輸入猜的數(shù)字，單擊“我猜”按鈕Command1，程序進(jìn)行判斷，并將結(jié)果顯示在列表框List1中．猜中后，在標(biāo)簽框Label2中根據(jù)猜測(cè)次數(shù)給出評(píng)語(yǔ)．程序運(yùn)行效果如1圖所示．
（1）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼．
Dim result As String,total As Integer
Dim flag（0 to 9）As Boolean'標(biāo)記下標(biāo)對(duì)應(yīng)的數(shù)字是否存在，初值默認(rèn)為False
Private Sub Form_Load（ ?。?br /> result=
total=0
End Sub
Private Sub Command1_Click（ ?。?br /> Dim A As Integer,B As Integer
Dim C As Integer'變量C存儲(chǔ)數(shù)字正確（含位置正確）的數(shù)字個(gè)數(shù)
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=“繼續(xù)鍛煉！您共花了“& total &“次．“
End If
End If
End Sub
'RndCode 函數(shù)用于隨機(jī)產(chǎn)生待猜測(cè)的n位不重復(fù)數(shù)字字符
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）'隨機(jī)產(chǎn)生一個(gè)[0，9]的數(shù)字
If flag（x）=False Then
flag（x）=True
num=num+1
RndCode=RndCode & x
End If
Loop
End Function
（2）如果某次游戲過(guò)程如2圖所示，那么第7次要猜測(cè)成功，應(yīng)輸入（單選，填字母：A.6321 B.6312 C.2531 D.2513）．組卷：3引用：1難度：0.1