2016-2017學年浙江省杭州市五縣七校高三（上）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題
-
1．某日收到如圖所示的微信短信，收到此條短信后正確的做法是（ ）
組卷：3引用：3難度：0.9 -
2．如圖所示，當選擇“接受對文檔的所有修訂”后，圖中第一段最后一句變成（ ）
組卷：4引用：2難度：0.9 -
3．使用UltraEdit軟件觀察字符編碼，相關描述不正確的是（ ）
組卷：8引用：4難度：0.9 -
4．對于數據庫和數據表，下列說法正確的是（ ）
組卷：3引用：2難度：0.7 -
5．某算法流程圖如圖所示，最后輸出s的值是（ ）
組卷：3引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．【加試題】某校有100個學生的期末成績存儲在數據庫中，并已經按學號升序排序，學號編號從1到100．現要求找出成績最高的學生的得分．如果有多個符合要求的學生，只輸出學號排在前面的．小吳為此編寫了VB程序，程序運行時，單擊按鈕Command1后，在文本框Text1中輸出最大成績．實現上述功能的VB代碼如下，請補全代碼．
Dim a（1To 100）As Single'依次存儲100個學生成績
Const n=100
Private Sub Form_Load（ ）
'本過程從數據庫中讀取1到100號學生成績，并存儲在數組a中
'代碼略
End Sub
Private Sub Command1_Click（ ）
Dim i As Integer,max As single
max=①
For i=2To n
if ②
Next i
Text1．Text=“成績最高分是：“+Str（max）
End Sub
（1）程序中①橫線處應填入．
（2）程序中②橫線處應填入．組卷：20引用：2難度：0.1 -
17．【加試題】曲哲同學設計了一個英文字符串的加密算法，其加密的方法如下：
（1）從被加密字符串中獲取單個字符，然后得到其ascii碼的8位二進制編碼．
（2）將字符的二進制編碼反向，得到其逆序二進制碼．
（3）將逆序二進制碼的每4位轉換為相應的十六進制編碼，即得到單個字符加密后的字符串．
（4）以此類推，直到所有字符加密完成，得到加密字符串．
具體程序界面如圖，在text1中輸入字符串，點擊“加密”按鈕command1后，在text2中顯示加密后的字符串．
（1）已知字符a的ascii碼為97，則字符串idear加密后的字符串為．
（2）閱讀整段程序，程序中①橫線處應填入程序中②橫線處應填入．
Private Sub Command1_Click
Dim s As String,ch As String
Dim result As String,chA As String,chB As String
Dim i As Integer,j As Integer
Dim n As Integer,m As Integer
s=Text1．Text
n=Len（s）
result=““：c=“0123456789ABCDEF“
For i=1To n
ch=①
ch=niXu（ch）
m=0
For j=1To 4'獲取二進制碼前4位的值②
Next
chA=Mid（c,m+1，1）
m=0
For j=5To Len（ch）
m=m*2+Val（Mid（ch,j,1））
Next
chB=Mid（c,m+1，1）
result=result+chA+chB
Next
Text2．Text=result
End Sub
'得到單個字符ch的8位二進制編碼
Function D2B（ByVal ch As String） As String
Dim s As String
Dim data As Integer,i As Integer
data=Asc（ch）：s=““
Do While data＞0
s=Str（data Mod 2）+s
data=data\2
Loop
If Len（s）＜8Then
For i=1To 8-Len（s）
s=“0“+s
Next
D2B=s
Else
D2B=s
End If
End Function
'返回字符串s的逆序
Function niXu（ByVal s As String） As String
Dim i As Integer：Dim r As String
r=““
For i=Len（s） To 1Step-1
r=r+Mid（s,i,1）
Next
niXu=r
End Function.組卷：8引用：1難度：0.1