2017-2018學(xué)年浙江省五校聯(lián)考高三(上)第一次聯(lián)考信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、多選、錯(cuò)選均不得分)
-
1.以下說(shuō)法正確的是( ?。?/h2>
組卷:8引用:2難度:0.9 -
2.以下軟件中,不屬于瀏覽器的是( ?。?/h2>
組卷:8引用:3難度:0.9 -
3.使用Word 軟件編輯某文檔,部分界面如圖所示,下列說(shuō)法正確的是( ?。?br />
組卷:1引用:3難度:0.9 -
4.已知英文小寫(xiě)字母比對(duì)應(yīng)的大寫(xiě)字母ASCII碼大32(十進(jìn)制),某數(shù)據(jù)加密方法描述如下:
(1)將字符的ASCII碼值加20(十進(jìn)制);
(2)以字節(jié)為單位進(jìn)行加密處理;
(3)將1個(gè)字節(jié)的8位二進(jìn)制數(shù)左移一位,最低位用左移出的最高位填充;
(4)將處理后的8位二進(jìn)制數(shù)分割成前4位與后4位兩個(gè)二進(jìn)制數(shù);
(5)分別將上述兩個(gè)4位二進(jìn)制數(shù)轉(zhuǎn)換為十六進(jìn)制數(shù);
(6)所得兩個(gè)十六進(jìn)制數(shù)碼交換順序后連接,即為該字節(jié)的密文.
用UltraEdit-32軟件觀察“i-hangzhou”這幾個(gè)字符的內(nèi)碼,如圖所示
則字符H加密后的密文是( ?。?/h2>組卷:10引用:2難度:0.5 -
5.關(guān)于Access數(shù)據(jù)表的操作,下列說(shuō)法正確的是( ?。?/h2>
組卷:6引用:2難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.小龍編寫(xiě)了一個(gè)簡(jiǎn)易加法器VB程序,運(yùn)行界面如圖所示.在文本框Text1中輸入一個(gè)數(shù)字后再輸入空格表示一個(gè)加數(shù)輸入完畢,連續(xù)不斷輸入不同的加數(shù),待所有需要相加的數(shù)輸入完畢后,單擊“求和”按鈕Command1后,在標(biāo)簽label1中顯示加數(shù)的個(gè)數(shù)以及總和.(數(shù)字0和空格的ASCII碼分別為48、32)
實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Private Sub Command1_Click ( ?。?br />Dim a As String
Dim x As Integer,s As Integer,k As Integer
a=Text1.Text
x=1:s=0:k=0
For i=1To Len(a)
'如果輸入的不是0到9的數(shù)字或者空格,則給出錯(cuò)誤提示后結(jié)束子程序
If (Asc(Mid(a,i,1))<48Or Asc(Mid(a,i,1))>57)then’①Label1.Caption=“只能輸入數(shù)字或空格“
Exit Sub
End If
If Mid(a,i,1)=““Then
s=s+’②
x=i+1
k=k+1
End If
Next i
Label1.Caption=“這“+Str(k)+“個(gè)數(shù)的和為:“+Str(s)
End Sub.組卷:2引用:2難度:0.3 -
17.【加試題】中秋節(jié)時(shí),班級(jí)組織活動(dòng),其中有抽獎(jiǎng)環(huán)節(jié),小龍?jiān)?選3中選考了技術(shù),班主任讓小龍編寫(xiě)一個(gè)VB抽獎(jiǎng)程序,功能如下:窗體裝載過(guò)程從數(shù)據(jù)庫(kù)讀取所有同學(xué)的相關(guān)數(shù)據(jù)并顯示在列表框List1中,抽獎(jiǎng)時(shí)在文本框Text1中輸入要抽出的人數(shù),單擊“搖獎(jiǎng)”按鈕command1,程序進(jìn)行處理,結(jié)果輸出在列表框list2中。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)回答下列問(wèn)題:
(1)分析下面的程序代碼,可知數(shù)據(jù)表名為
(2)請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
Dim a(1 To 100)As String'數(shù)組大小滿(mǎn)足處理要求,學(xué)生學(xué)號(hào)
Dim b(1 To 100)As String'數(shù)組大小滿(mǎn)足處理要求,學(xué)生姓名
Dim i As Integer'學(xué)生總數(shù)
Dim j As Integer
Dim dd(1 To 100)As Integer
Private Sub Form_Load
‘從數(shù)據(jù)庫(kù)讀取全班同學(xué)的相關(guān)信息,存儲(chǔ)在數(shù)組a、數(shù)組b和變量i中
Dim n As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“& App.Path &“\1718.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
strSQL=“SELECT*FROM stuinfo“
rs.Open strSQL
'本過(guò)程的其他語(yǔ)句略
End Sub
Private Sub Command1_Click ( ?。?br />Dim ShuruNum As Integer,k As Integer,y As Integer,n As Integer
Randomize
ShuruNum=Val(Text1.Text)
Label4.Caption=““
For k=1 To i
dd(k)=0
Next k
If ShuruNum>0 And ShuruNum<=i Then
j=1
Do While j<=ShuruNum
y=Int(Rnd
If
dd(j)=y
j=j+1
End If
Loop
List2-Clear
For n=1 To ShuruNum
List2.AddItem
Next n
Else
Label4.Caption=“錯(cuò)誤:沒(méi)有輸入中獎(jiǎng)人數(shù)或超過(guò)學(xué)生總數(shù)“
End If
End Sub
'核對(duì)重復(fù),避免同一人再次中獎(jiǎng)
Private Function CheckCF(p As Integer) As Boolean
Dim m As Integer,x As Boolean
x=True'初始化
For m=1 To j
If
x=False
Exit For
End If
Next m
CheckCF=x
End Function組卷:0引用:1難度:0.3