2016-2017學(xué)年浙江省湖州市高三(上)期末信息技術(shù)試卷
發(fā)布:2024/12/22 18:0:3
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.Troldesh是一個文件加密勒索軟件,犯罪分子通過發(fā)達(dá)電子郵件等形式發(fā)送用戶,用戶點擊其中的鏈接或打開附件中文件,該軟件將使用AES CBC 256位加密算法對用戶文件進(jìn)行批量加密,并把加密后的文件修改為.xtbl擴(kuò)展名的文件,用戶只有通過購買私用密鑰的方法進(jìn)行解密.則下列說法正確的是( ?。?/h2>
組卷:7引用:2難度:0.9 -
2.小程編輯電子郵件的界面如圖所示.下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201710/31/8879563e.png" style="vertical-align:middle" />
組卷:4引用:1難度:0.9 -
3.下列屬于虛擬現(xiàn)實技術(shù)應(yīng)用的是( ?。?/h2>
組卷:6引用:1難度:0.9 -
4.某Access數(shù)據(jù)如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201710/31/ca74e5f5.png" style="vertical-align:middle" />
組卷:2引用:2難度:0.7 -
5.某算法的部分流程如圖所示,若要用VB語言實現(xiàn)該部分算法,下列代碼符合流程圖的是( ?。?/h2>
組卷:9引用:3難度:0.5
二、解答題(共5小題,滿分26分)
-
16.在一個數(shù)據(jù)序列中,如果出現(xiàn)連續(xù)升序的幾個數(shù),稱為一個升序序列,該序列中數(shù)的個數(shù)稱為序列長度.用隨機(jī)函數(shù)產(chǎn)生10個數(shù)據(jù)的序列,查找其中升序序列的個數(shù)及最大序列長度.程序運行界面如圖所示:
(1)實現(xiàn)上述功能的代碼如下,加框處有錯,請改正.
(2)如圖所示的序列中,程序運行后,變量t的值為
Dim a(1 to 10)As Integer
Private Sub form-Load( ?。?br />'產(chǎn)生10個隨機(jī)整數(shù),并顯示在標(biāo)簽Label1中
End sub
Private Sub answer-Click( ?。?br /> Dim i As Integer,max As Integer,t As Integer,dz As Integer
Max=0:t=1:dz=0
For i='①
If a(i)<a(i+1)Then
'②
Else
If max<t Then max=t
If t>1 Then dz=dz+1:t=1
End If
Next i
'以下程序代碼處理最后幾個數(shù)正好屬于升序序列的情況
If t>1 Then
If max<t Then max=t
dz=dz+1
End If
Text1.Text=Str(dz)
Text2.Text=Str(max)
End Sub.組卷:1引用:2難度:0.3 -
17.某省學(xué)生信息技術(shù)學(xué)習(xí)平臺使用情況數(shù)據(jù)存儲在數(shù)據(jù)庫中,利用VB編寫一個程序,實現(xiàn)的功能:輸入一個積分的范圍,顯示該范圍內(nèi)的學(xué)生編號和對應(yīng)的積分.程序運行界面如圖所示:
程序代碼如下,為實現(xiàn)以上功能,請在橫線處填寫合適的代碼:
Dim bh(10000)As String‘存儲學(xué)生編號
Dim jf(10000)As Integer‘存儲學(xué)生獲得的積分值
Dim n As Integer‘存儲學(xué)生總?cè)藬?shù)
Function Search(x As Integer)As Integer
Search=0
i=1:j=n:flag=True
Do While i<=j And flag=True
m=Int((i+j)/2)
If x=jf(m) Then
flag=False
Elsef
i=m+1
End If
Loop
End Function
Private Sub Form-Load( )
‘從數(shù)據(jù)庫中讀取學(xué)生編號和積分,分別存儲到bh數(shù)組和jf數(shù)組中,并按積分值從小到大排序,顯示在列表框Listl中
End Sub
Private Sub Commandl-Click( )
Dim Top As Integer,Bottom As Integer,Topxb As Integer,Bottomxb As Integer
List2.Clear
Top=Val(Text2.Text)
If Top>Bottom Then t=Top:Top=Bottom:Bottom=t
If Top>jf(n) Or Bottom<jf(1)Then Exi Sub
Do While Search(Top)=0
Top=Top+1
Loop
Do While Search(Bottom)=0
Bottom=Bottom-1
Loop
Topxb=Search(Top)
Do While jf(Topxb)=jf(Topxb-1)And Topxb>1
Topxb=Topxb-1
Loop
Bottomxb=Search(Bottom)
Do while jf(Bottomxb)=jf(Bottomxb+1)And Bottomxb<n
Bottomxb=Bottomxb+1
Loop
For i=
List2.AddItem bh(i)&''''& jf(i)
Next i
End Sub.組卷:1引用:1難度:0.3