2017-2018學(xué)年浙江省稽陽聯(lián)誼學(xué)校高三（上）月考信息技術(shù)試卷（8月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．關(guān)于信息安全、網(wǎng)絡(luò)道德和知識產(chǎn)權(quán)，下列做法正確的是（ ）
組卷：8引用：2難度：0.9 -
2．關(guān)于搜索引擎和網(wǎng)頁，下列說法正確的是（ ?。?/h2>
組卷：10引用：3難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖所示．下列說法正確的是（ ）
組卷：4引用：2難度：0.9 -
4．使用UltraEdit軟件觀察字符“Good Luck!”的內(nèi)碼，部分界面如圖所示．下列說法正確的是（ ?。?br />
組卷：12引用：5難度：0.7 -
5．使用Access軟件創(chuàng)建的“student”數(shù)據(jù)表，部分界面如圖所示．下列說法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201709/147/ee3d20f0.png" style="vertical-align:middle" />
組卷：3引用：2難度：0.7
二、解答題（共5小題，滿分26分）
-
16．【加試題】尼克斯徹定理：任何一個大于等于1的整數(shù)的立方等于一串連續(xù)奇數(shù)之和，如：13=1，23=3+5，33=7+9+11．編寫一個VB程序驗證尼克斯徹定理，程序運行時，在文本框Text1中輸入
一個大于等于1的整數(shù)，單擊“驗證”按鈕Commandl,在文本框Text2中顯示驗證結(jié)果，運行界面如圖所示。
實現(xiàn)上述功能的VB代碼如下，其中加框處代碼有錯，請改正。
Dim n As Integer,i As Integer,t As Integer,sum As Long,s As string
n=Val（Text1．Text）
For i=1 Ton^3 Step 2'變量i表示連續(xù)奇數(shù)的首個整數(shù)
sum=0：t=i：flag=False
Do While sum＜=n^3 And flag=False
sum=sum+t
（1）
If sum=n^3 Then flag=True
Loop
If flag=True Then Exit For
Next i
s=Str（n）+“^“+Str（3）+“=“
Do While sum＞0
（2）
If sum=0 Then
s=s+Str（i）
Else
s=s+Str（i）+''+“
End If
i=i+2
Loop
Text2．Text=s
End Sub。組卷：6引用：3難度：0.3 -
17．【加試題】某校開展“七選三”選課調(diào)查，選課數(shù)據(jù)存數(shù)據(jù)庫文件“student.jye.ai”中，如圖a所示．“選課”字段存儲7位“0”、“1”組成的數(shù)串，每位對應(yīng)一個科目，從左往右依次為“物化生政史地技”，“1”
表示選擇，“0”表示未選擇，如“1110000”表示選擇科目“物化生”．小吳設(shè)計了一個VB程序統(tǒng)計全校選課情況，功能如下：程序啟動時從數(shù)據(jù)庫中讀入全校學(xué)生的學(xué)籍輔號、姓名、班級、選課信息，處理后在列表框List1中顯示，單擊“選課統(tǒng)計”按鈕Commandl,在列表框List2中按選課人數(shù)從高到低輸出各選課組及人數(shù)．程序界面如圖b所示（學(xué)籍輔號和姓名的部分內(nèi)容不顯示）．
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）若某記錄“選課”字段值為“1100001”，則該生的選課科目是．
（2）請在橫線處填上合適的代碼．
Const max=1000
Const s=“物化生政史地技”
Dim n As Integer'存放學(xué)生人數(shù)
Dim xjfh（1To max）As String,xmm（1To max）As string
'數(shù)組bj存放學(xué)生班級，數(shù)組xk存儲學(xué)生的選課標(biāo)志
Dim zh（1 To 35）As string,tj（1 To 35）As Integer
'數(shù)組zh存儲不同選課組合，數(shù)組tj存儲某一組合選課的學(xué)生數(shù)
Function adj（a As String,n As Integer）As string
'函數(shù)功能：在被顯示數(shù)據(jù)之后添加上合適的空格，代碼略
End Function
Function convert（x As String）As String
Dim i As Integer,st As String
st=““
For i=1 To Len（x）
If Mid（x,i,1）=“1“Then st=st+Mid（s,i,1）
Next i
convert=st
End Function
Private Sub Form-Load（ ?。?br /> Dim i As Integer,km As String
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.Connection String=“Provider=microsoft.ace.jye.ai.12.0；data source=“+App.Path
+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu-info“
n=0
Do while Not rs.EOF
n=n+1
xjfh（n）=rs.Fields（0）：xm（n）=rs.Fields（1）
bj（n）=rs.Fields（2）：xk（n）=rs.Fields（3）
List1，AddItem xjfh（n）+adj（xm（n），4）+adj（Str（bj（n）），4）+adj（km,6）
rs.MoveNext
Loop
'剩余部分代碼略
功能：產(chǎn)生35種選課組合的“0”“1”數(shù)串，存數(shù)組zh,；數(shù)組tj各元素初始化為0．
End Sub
Private Sub Commandl-Click（ ）
Dim i As Integer,j As Integer,temp2 As Integer,temp1 As Integer
For i=1 To 35
For j=1 To n
If xk（j）=zh（i） Then
Next j
Next i
For i=1 To 34
For j=35 To i+1 Step-1
IfThen
temp1=zh（j）：zh（j）=zh（j-1）：zh（j-1）=temp1
temp2=tj（j）：tj（j）=tj（j-1）：tj（j-1）=temp2
End If
Next j
Next i
For i=1 To 35
List2．Str（i）+adj（convert（zh（i）），6）+adj（Str（tj（i）），6）
Next i
End Sub.組卷：0引用：1難度：0.3