2016-2017學年浙江省杭州市五縣七校高三(上)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題
-
1.某日收到如圖所示的微信短信,收到此條短信后正確的做法是( ?。?br />
組卷:3引用:3難度:0.9 -
2.如圖所示,當選擇“接受對文檔的所有修訂”后,圖中第一段最后一句變成( ?。?br />
組卷:4引用:2難度:0.9 -
3.使用UltraEdit軟件觀察字符編碼,相關(guān)描述不正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201705/31/be56b8b6.png" style="vertical-align:middle" />
組卷:8引用:4難度:0.9 -
4.對于數(shù)據(jù)庫和數(shù)據(jù)表,下列說法正確的是( ?。?/h2>
組卷:3引用:2難度:0.7 -
5.某算法流程圖如圖所示,最后輸出s的值是( ?。?br />
組卷:3引用:2難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.【加試題】某校有100個學生的期末成績存儲在數(shù)據(jù)庫中,并已經(jīng)按學號升序排序,學號編號從1到100.現(xiàn)要求找出成績最高的學生的得分.如果有多個符合要求的學生,只輸出學號排在前面的.小吳為此編寫了VB程序,程序運行時,單擊按鈕Command1后,在文本框Text1中輸出最大成績.實現(xiàn)上述功能的VB代碼如下,請補全代碼.
Dim a(1To 100)As Single'依次存儲100個學生成績
Const n=100
Private Sub Form_Load( )
'本過程從數(shù)據(jù)庫中讀取1到100號學生成績,并存儲在數(shù)組a中
'代碼略
End Sub
Private Sub Command1_Click( ?。?br />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位轉(zhuǎn)換為相應的十六進制編碼,即得到單個字符加密后的字符串.
(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