2018-2019學年浙江省臺州市臨海市白云高級中學高三（下）月考信息技術試卷（3月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求選項）
-
1．下列有關信息的說法，不正確的是（ ）
組卷：63引用：3難度：0.6 -
2．阿里首家未來酒店菲住布渴（FlyZoo Hotel）于2018年12月開業(yè)，是全球首家支持全場景刷臉住宿的酒店，刷臉辦理入住，智能機器人服務，“各顯神通”的智能門鎖，“天貓精靈”智慧客房體驗，手機一鍵退房，都給客人帶來了無上的體驗。以上材料中不屬于人工智能的是（ ）
組卷：39引用：3難度：0.6 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（ ）
組卷：40引用：3難度：0.5 -
4．以下關于數(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 （ ）、sex （ ）、math （ ）、su （ ）分別存放學生的姓名、性別、數(shù)學和總分成績，現(xiàn)要求編寫一個程序使得數(shù)據(jù)按照男生“總分”的降序和女生“總分”的升序排列，其中男生在前女生在后，程序界面如圖所示：
實現(xiàn)該功能的VB程序如下，但加框處代碼有錯，請改正。
Dim nam（100）As String'存放學生姓名
Dim sex（100）As String'存放學生性別
Dim math（100）As Long'存放學生數(shù)學成績
Dim su（100）As Long'存放學生總分成績
Dim k As Integer'k變量用來存學生人數(shù)
Private Sub Form_Load （ ）
‘將數(shù)據(jù)庫中的數(shù)據(jù)分別存儲在相應的變量中并在列表框中顯示出來
‘代碼略
End Sub
Private Sub Command1_Click （ ）
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)化為二進制的位數(shù)據(jù)并顯示在文本框text2中，數(shù)據(jù)位數(shù)顯示在標簽Label1中
?以16個數(shù)據(jù)為一段，將k個待加密數(shù)據(jù)依次分割成若干個數(shù)據(jù)段，剩余數(shù)據(jù)（個數(shù)小于16）為獨立數(shù)據(jù)段。
?數(shù)據(jù)加密規(guī)則：
數(shù)據(jù)個數(shù)等于16的數(shù)據(jù)段，在段內(nèi)進行位置變換，得到加密數(shù)據(jù)段。
數(shù)據(jù)個數(shù)小于16的數(shù)據(jù)段，直接得到加密數(shù)據(jù)段。
?依次合并加密數(shù)據(jù)段，即為最后的加密數(shù)據(jù)。
位置變換的規(guī)制，方法如下：
具體界面如圖所示：
（1）已知k=38，則數(shù)組元素b（26）對應值是數(shù)組a中的。
（2）實現(xiàn)該功能的VB程序如下，請在橫線處填入合適的代碼：
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'獲取字符的二進制數(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'對字符二進制按規(guī)則進行位變換，變換后的數(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）實現(xiàn)上述功能，請在橫線處填入適當?shù)拇a：
程序中①處填入的是。
程序中②處填入的是。
程序中③處填入的是。組卷：5引用：1難度：0.3