2015-2016學(xué)年浙江省寧波市九校聯(lián)考高二(下)月考信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.網(wǎng)站驗(yàn)證碼中的語音校驗(yàn)碼昌通過聲音來進(jìn)行驗(yàn)證的.當(dāng)點(diǎn)擊語音驗(yàn)證碼時(shí),出現(xiàn)語音提示,按語音說明,輸入驗(yàn)證碼,正確即可通過驗(yàn)證,其目的是提升信息的( ?。?/h2>
組卷:3引用:2難度:0.9 -
2.使用OCR軟件對(duì)圖象文件進(jìn)行文字識(shí)別,部分界面如圖所示.則下列說法正確的是( ?。?br />
組卷:11引用:4難度:0.9 -
3.ASCII碼表中的大寫字母Z后有6個(gè)其他字符,接著便是小寫字母a。現(xiàn)在已知:字母Y的ASCII碼為(1011001)2,則字母b的ASCII碼用十六進(jìn)制表示是( ?。?/h2>
組卷:13引用:6難度:0.9 -
4.某外貿(mào)公司為了管理公司員工的信息,用Access建立了一張數(shù)據(jù)表,表結(jié)構(gòu)如圖所示,在該表中下列操作能成功的是( ?。?/h2>
組卷:3引用:1難度:0.5 -
5.如圖所示流程圖片斷,該流程圖中循環(huán)部分結(jié)束后,變量S的值是( ?。?br />
組卷:3引用:1難度:0.7
二、非選擇題(共5小題,滿分26分)
-
16.在最近舉行的校五有歌會(huì)中,藝術(shù)組的老師統(tǒng)計(jì)出各班(高一、高二各10個(gè)班,共20個(gè)班級(jí)參賽)的原始成績后,利用技術(shù)組老師設(shè)計(jì)的VB程序的功能如下:各班原始成績顯示在左邊的列表框List1中,單擊“排序”按鈕,各班成績按從高到低的順序排列,并顯示在右邊的列表框List2中,程序界面如圖所示:
實(shí)現(xiàn)上述功能的VB如下:
Dim a(1 to 50)As Integer
Dim b(1 to 50)As String
Private Sub Form-Load( ?。?br />’各班成績存儲(chǔ)在a(i)中,各班編號(hào)存儲(chǔ)在b(i)中,代碼略
End Sub
Private Sub Commandl-Click( )
’①
For j=1 to 19-i
If
t1=a(j):a(j)=a(j+1):a(j+1)=t1
t2=b(j):b(j)=b(j+1):b(j+1)=t2
End If
Next j
Next i
For i=1 to 20
List2.AddItem b(i)+““+
Str(a(i))
Next i
End Sub
(1)在不改動(dòng)其他語句的情況下,標(biāo)號(hào)①應(yīng)改為
(2)標(biāo)號(hào)②處缺少的語句為組卷:1引用:1難度:0.3 -
17.小明班有50個(gè)同學(xué),某次技術(shù)考試的成績保存在數(shù)據(jù)庫文件“Student.jye.ai”的“技術(shù)成績”表中,表結(jié)構(gòu)如圖所示,實(shí)現(xiàn)如下功能:窗體加載時(shí),能自動(dòng)讀取“技術(shù)成績”表中的數(shù)據(jù),并且顯示在列表框list1中,當(dāng)點(diǎn)擊“顯示名次”按鈕,可將相應(yīng)學(xué)生的姓名和名次顯示在列表框list2中名次的設(shè)置要求是:若比甲同學(xué)分?jǐn)?shù)高的有x人,則甲同學(xué)名次為x+1.
實(shí)現(xiàn)上述功能的VB代碼如下,請(qǐng)?jiān)跈M線處填入合適代碼.
Const n=50
Dim a(1 to n) As String
Dim b(1 to n) As Single
Dim c (1 to n) As Integer
Private Sub Form -Load( )
Dim conn As New ADDODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
conn.ConnetionString=“Provider=Microsoft.ACE.
OLEDB.12.0;Data Suurce=“+App.Path+“\Student.jye.ai“
conn.Open
Set.rs.ActiveConnection=conn
rs.Open“SEECT#FROM 技術(shù)成績“
For i=1 to n
a(i)=rs.Fieds(1)
b(i)=rs.Fields(2)
List1.AddIten a(i)+str(b(i))
rs.MoveNext
Next i
rs.Close
conn.Close
End Sub
Private Sub Commandl-Click( ?。?br />Dim rank As Integer,x As Single
c(1)=1
rank=1
x=b(1)
For i=2 to n
If b(i)<>x Then
x=b(i)
End If
Next i
For i=1 to n
List2.AddItem
Next i
End Sub.組卷:3引用:1難度:0.1