2016-2017學(xué)年浙江省杭州市五縣七校高三(上)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題
-
1.某日收到如圖所示的微信短信,收到此條短信后正確的做法是( ?。?br />
組卷:3引用:3難度:0.9 -
2.如圖所示,當(dāng)選擇“接受對(duì)文檔的所有修訂”后,圖中第一段最后一句變成( ?。?br />
組卷:4引用:2難度:0.9 -
3.使用UltraEdit軟件觀察字符編碼,相關(guān)描述不正確的是( )
組卷:8引用:4難度:0.9 -
4.對(duì)于數(shù)據(jù)庫(kù)和數(shù)據(jù)表,下列說法正確的是( )
組卷: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個(gè)學(xué)生的期末成績(jī)存儲(chǔ)在數(shù)據(jù)庫(kù)中,并已經(jīng)按學(xué)號(hào)升序排序,學(xué)號(hào)編號(hào)從1到100.現(xiàn)要求找出成績(jī)最高的學(xué)生的得分.如果有多個(gè)符合要求的學(xué)生,只輸出學(xué)號(hào)排在前面的.小吳為此編寫了VB程序,程序運(yùn)行時(shí),單擊按鈕Command1后,在文本框Text1中輸出最大成績(jī).實(shí)現(xiàn)上述功能的VB代碼如下,請(qǐng)補(bǔ)全代碼.
Dim a(1To 100)As Single'依次存儲(chǔ)100個(gè)學(xué)生成績(jī)
Const n=100
Private Sub Form_Load( ?。?br />'本過程從數(shù)據(jù)庫(kù)中讀取1到100號(hào)學(xué)生成績(jī),并存儲(chǔ)在數(shù)組a中
'代碼略
End Sub
Private Sub Command1_Click( )
Dim i As Integer,max As single
max=①
For i=2To n
if ②
Next i
Text1.Text=“成績(jī)最高分是:“+Str(max)
End Sub
(1)程序中①橫線處應(yīng)填入
(2)程序中②橫線處應(yīng)填入組卷:20引用:2難度:0.1 -
17.【加試題】曲哲同學(xué)設(shè)計(jì)了一個(gè)英文字符串的加密算法,其加密的方法如下:
(1)從被加密字符串中獲取單個(gè)字符,然后得到其ascii碼的8位二進(jìn)制編碼.
(2)將字符的二進(jìn)制編碼反向,得到其逆序二進(jìn)制碼.
(3)將逆序二進(jìn)制碼的每4位轉(zhuǎn)換為相應(yīng)的十六進(jìn)制編碼,即得到單個(gè)字符加密后的字符串.
(4)以此類推,直到所有字符加密完成,得到加密字符串.
具體程序界面如圖,在text1中輸入字符串,點(diǎn)擊“加密”按鈕command1后,在text2中顯示加密后的字符串.
(1)已知字符a的ascii碼為97,則字符串idear加密后的字符串為
(2)閱讀整段程序,程序中①橫線處應(yīng)填入
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'獲取二進(jìn)制碼前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
'得到單個(gè)字符ch的8位二進(jìn)制編碼
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