2017-2018學(xué)年浙江省紹興市諸暨市牌頭中學(xué)高二（下）月考信息技術(shù)試卷（5月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分．）
-
1．下列有關(guān)移動(dòng)設(shè)備的使用行為，安全隱患最小的是（ ?。?/h2>
組卷：17引用：2難度：0.9 -
2．如圖所示為撰寫(xiě)電子郵件時(shí)的部分操作界面。下列描述正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201806/196/8eecfa9e.png" style="vertical-align:middle" />
組卷：25引用：1難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。下列說(shuō)法正確的是（ ?。?br />
組卷：0引用：2難度：0.4 -
4．使用Access軟件創(chuàng)建某數(shù)據(jù)表，并在該數(shù)據(jù)表中錄入了部分?jǐn)?shù)據(jù)。下列說(shuō)法正確的是（ ?。?/h2>
組卷：10引用：2難度：0.5 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量s的值是（ ）
組卷：0引用：2難度：0.7
【加試題】
-
16．某一條形碼是由13位數(shù)字組成的編碼，其末位是校驗(yàn)碼。條形碼校驗(yàn)的方法如下：
①除校驗(yàn)碼之外，求其余12位編碼中的奇數(shù)、偶數(shù)的數(shù)字之和；
②將偶數(shù)的數(shù)字之和乘以3，加上奇數(shù)的數(shù)字之和；
③取第②步得到結(jié)果的個(gè)位數(shù)字，用10減去該數(shù)字，將得到的結(jié)果存入變量m；
④若m的值為10，則將m的值修改為0，否則不變；
⑤若m和校驗(yàn)碼相等則輸出“校驗(yàn)碼正確！”，否則輸出“校驗(yàn)碼錯(cuò)誤！”。
現(xiàn)編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中產(chǎn)生條形碼數(shù)字序列，單擊“校驗(yàn)”按鈕Command1，在標(biāo)簽Label1中輸出對(duì)應(yīng)的校驗(yàn)信息，界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Private Sub Command1_Click （ ?。?br />Dim s As String,x As Integer
Dim n As Integer,jsAs Integer,os As Integer,m As Integer
Js=0：Os=0
s=Text1．Text
If n＜＞13Then
Label1．Caption=“條形碼位數(shù)錯(cuò)誤!“
Else
For i=1To 12
If x Mod 2＜＞0Then
js=js+x
Else
os=os+x
End If
Next i
m=os*3+js
m=10-m Mod 10
Ifm=10 Then m=0
If m=Val（Mid（s,n,1）） Then
Label1．Caption=“校驗(yàn)碼正確!“
Else
Label1．Caption=“校驗(yàn)碼錯(cuò)誤!“
End If
End If
End Sub組卷：2引用：2難度：0.5
【加試題】
-
17．小明編寫(xiě)了一個(gè)統(tǒng)計(jì)成績(jī)的VB程序：編寫(xiě)一個(gè)過(guò)程，該過(guò)程從數(shù)據(jù)庫(kù)讀取學(xué)生的物理，化學(xué)，生物科目成績(jī)，分別存儲(chǔ)到數(shù)組a、b、c中；另又編寫(xiě)一個(gè)過(guò)程，該過(guò)程依據(jù)數(shù)組a,b,c中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)班級(jí)物理、化學(xué)、生物三門(mén)成績(jī)大于等于85分的學(xué)號(hào)。部分學(xué)號(hào)的成績(jī)統(tǒng)計(jì)如圖所示。
程序功能如下：?jiǎn)螕簟敖y(tǒng)計(jì)”按鈕Command2，程序進(jìn)行統(tǒng)計(jì)處理，結(jié)果輸出在列表框門(mén)數(shù) 學(xué)號(hào) 說(shuō)明 只有一門(mén)＞=85分 1，10 d（i）存放每個(gè)學(xué)號(hào)對(duì)應(yīng)的大于等于85分科次 只有兩門(mén)＞=85分 2，3，4，6，12 只有三門(mén)＞=85分 7，8，9，11
List1、List2、List3中。程序運(yùn)行界面如圖所示。
（1）在Command1_Click過(guò)程中變量n的作用是。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1to 600）as integer'數(shù)組a存放物理成績(jī)
Dim b（1to 600）as integer'數(shù)組b存放化學(xué)成績(jī)
Dim c（1to 600）as integer'數(shù)組c存放生物成績(jī)
Dim n as integer
Private Sub Command1_Click （ ?。?br />Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Conn ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“+“Score.jye.ai“
Conn.Open
Set rs.ActiveConnection=conn
rs.Open“SELECT*FROM whs“
n=0
Do While Not rs.EOF'從數(shù)據(jù)表中讀取各科的數(shù)據(jù)賦值到相應(yīng)數(shù)組
n=n+1
a（n）=rs.Fields（“物理“）
b（n）=rs.Fields（“化學(xué)“）
c（n）=rs.Fields（“生物“）
rs.MoveNext
Loop
'本過(guò)程的其他語(yǔ)句略
End sub
Private Sub Command2_Click （ ?。?br />'依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)各學(xué)生每門(mén)課大于等于85分的學(xué)號(hào)
Dim i As Integer
Dim d（1to n） As Integer
For i=1to n
Next i
List1．AddItem“三門(mén)學(xué)科＞=85分的學(xué)號(hào)有：“
List2．AddItem“兩門(mén)學(xué)科＞=85分的學(xué)號(hào)有：“
List3．AddItem“一門(mén)學(xué)科＞=85分的學(xué)號(hào)有：“
For i=1To n
If a（i）＞=85Then
d（i）=d（i）+1
End If
If b（i）＞=85Then d（i）=
IfThen
d（i）=d（i）+1
End If
Next i
For i=1To n
If d（i）=3Then List1．AddItem Str（i）
If d（i）=2Then List2．AddItem Str（i）
If d（i）=1Then List3．AddItem Str（i）
Next i
End Sub組卷：4引用：1難度：0.5