2018-2019學(xué)年浙江省臺州市臨海市白云高級中學(xué)高三(下)月考信息技術(shù)試卷(3月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求選項(xiàng))
-
1.下列有關(guān)信息的說法,不正確的是( ?。?/h2>
組卷:63引用:3難度:0.6 -
2.阿里首家未來酒店菲住布渴(FlyZoo Hotel)于2018年12月開業(yè),是全球首家支持全場景刷臉住宿的酒店,刷臉辦理入住,智能機(jī)器人服務(wù),“各顯神通”的智能門鎖,“天貓精靈”智慧客房體驗(yàn),手機(jī)一鍵退房,都給客人帶來了無上的體驗(yàn)。以上材料中不屬于人工智能的是( ?。?/h2>
組卷:39引用:3難度:0.6 -
3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是( ?。?br />
組卷:40引用:3難度:0.5 -
4.以下關(guān)于數(shù)據(jù)庫的說法正確的是( )
組卷:11引用:2難度:0.4 -
5.某算法的部分流程圖如圖所示。輸入n的值為100執(zhí)行這部分流程后,輸出的值為( )
組卷:10引用:2難度:0.4
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.數(shù)組nam ( ?。ex ( ?。ath ( ?。u ( ?。┓謩e存放學(xué)生的姓名、性別、數(shù)學(xué)和總分成績,現(xiàn)要求編寫一個(gè)程序使得數(shù)據(jù)按照男生“總分”的降序和女生“總分”的升序排列,其中男生在前女生在后,程序界面如圖所示:
實(shí)現(xiàn)該功能的VB程序如下,但加框處代碼有錯(cuò),請改正。
Dim nam(100)As String'存放學(xué)生姓名
Dim sex(100)As String'存放學(xué)生性別
Dim math(100)As Long'存放學(xué)生數(shù)學(xué)成績
Dim su(100)As Long'存放學(xué)生總分成績
Dim k As Integer'k變量用來存學(xué)生人數(shù)
Private Sub Form_Load ( )
‘將數(shù)據(jù)庫中的數(shù)據(jù)分別存儲在相應(yīng)的變量中并在列表框中顯示出來
‘代碼略
End Sub
Private Sub Command1_Click ( ?。?br />Dim mmax As Integer,gmax As Integer,flagm As Boolean,flagg As Boolean
i=1:flagm=True:flagg=True
Do While ①
mmax=0:gmax=0
flagm=False:flagg=False
For j=i To k-i+1
If sex(j)=“男“And su(j)>su(mmax) Then mmax=j
If sex(j)=“女“And su(j)>su(gmax) Then gmax=j
Next j
If mmax<>0 Then
flagm=True
t=nam(mmax):nam(mmax)=nam(i):nam(i)=t
t=sex(mmax):sex(mmax)=sex(i):sex(i)=t
t=math(mmax):math(mmax)=math(i):math(i)=t
t=su(mmax):su(mmax)=su(i):su(i)=t
End If
If gmax<>0 Then
flagg=True
If Then②
gmax=mmax
t=nam(gmax):nam(gmax)=nam(k-i+1):nam(k-i+1)=t
t=sex(gmax):sex(gmax)=sex(k-i+1):sex(k-i+1)=t
t=math(gmax):math(gmax)=math(i):math(i)=t
t=su(gmax):su(gmax)=su(k-i+1):su(k-i+1)=t
Else
t=nam(gmax):nam(gmax)=nam(k-i+1):nam(k-i+1)=t
t=sex(gmax):sex(gmax)=sex(k-i+1):sex(k-i+1)=t
t=math(gmax):math(gmax)=math(k-i+1):math(k-i+1)=t
t=su(gmax):su(gmax)=su(k-i+1):su(k-i+1)=t
End If
End If
i=i+1
Loop
For i=1 To k
List2.AddItem nam(i)+““+sex(i)+““+Str(math(i))+““+Str(su(i))
Next i
End Sub
程序中①處改為
程序中②處改為組卷:6引用:1難度:0.2 -
17.某數(shù)據(jù)加密方法描述如下:
?先將字符轉(zhuǎn)化為二進(jìn)制的位數(shù)據(jù)并顯示在文本框text2中,數(shù)據(jù)位數(shù)顯示在標(biāo)簽Label1中
?以16個(gè)數(shù)據(jù)為一段,將k個(gè)待加密數(shù)據(jù)依次分割成若干個(gè)數(shù)據(jù)段,剩余數(shù)據(jù)(個(gè)數(shù)小于16)為獨(dú)立數(shù)據(jù)段。
?數(shù)據(jù)加密規(guī)則:
數(shù)據(jù)個(gè)數(shù)等于16的數(shù)據(jù)段,在段內(nèi)進(jìn)行位置變換,得到加密數(shù)據(jù)段。
數(shù)據(jù)個(gè)數(shù)小于16的數(shù)據(jù)段,直接得到加密數(shù)據(jù)段。
?依次合并加密數(shù)據(jù)段,即為最后的加密數(shù)據(jù)。
位置變換的規(guī)制,方法如下:
具體界面如圖所示:
(1)已知k=38,則數(shù)組元素b(26)對應(yīng)值是數(shù)組a中的。
(2)實(shí)現(xiàn)該功能的VB程序如下,請?jiān)跈M線處填入合適的代碼:
Private Sub Command1_Click ( )
Dim a(1 To 1000)As Integer,b(1 To 1000)As Integer
Dim n As Integer,m As Integer
Dim s As String,s1 As String,c As Integer,ch As String
s=Text1.Text:Text2.Text=““
n=Len(s)
k=1
For i=1 To n'獲取字符的二進(jìn)制數(shù)據(jù)存放在數(shù)組a
n=Asc(Mid(s,i,1))
Do While n<>0
a(k)=n Mod 2
n=n\2
Text2.Text=Text2.Text+Str(a(k))
k=k+1
Loop
Next i
①
List1.Clear
For m=1 To (k-1)\16'對字符二進(jìn)制按規(guī)則進(jìn)行位變換,變換后的數(shù)據(jù)存放在數(shù)組b
For i=1 To 4
b(16*(m-1)+4*(i-1)+1)=a((m-1)*16+i)
②
Next i
For i=1 To 3
b(16*(m-1)+4*(i-1)+3)=a((m-1)*16+10+i)
b(16*(m-1)+4*(i-1)+2)=a((m-1)*16+17-i)
Next i
For i=1 To 2
b(16*(m-1)+13+i)=a((m-1)*16+4+i)
Next i
For i=1 To 4
s1=““
For j=1 To 4
s1=s1+Str(b(16*(m-1)+(i-1)*4+j))
Next j
List1.AddItem s1
Next i
List1.AddItem““
Next m
s1=““
For i=((k-1)\16)*16+1 To k-1
b(i)=a(i)
If ③
Then
s1=s1+Str(a(i))
List1.AddItem s1
s1=““
Else
s1=s1+Str(a(i))
End If
Next i
List1.AddItem s1
Text3.Text=““
For i=1 To k-1
Text3.Text=Text3.Text+Str(b(i))
Next i
End Sub
(1)實(shí)現(xiàn)上述功能,請?jiān)跈M線處填入適當(dāng)?shù)拇a:
程序中①處填入的是
程序中②處填入的是
程序中③處填入的是組卷:5引用:1難度:0.3