2017-2018學(xué)年江蘇省無錫市暨陽地區(qū)高三（上）聯(lián)考信息技術(shù)試卷（8月份）
發(fā)布：2024/12/31 22:0:2
一、選擇題（共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)碼，部分界面如圖所示．下列說法正確的是（ ）
組卷：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)計”按鈕Command1，在列表框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（1 To max）As String,xm（1 To max）As String
'數(shù)組xjfh存放學(xué)生學(xué)籍輔號，數(shù)組xm存放學(xué)生姓名
Dim bj（1 To max）As Integer,xk（1 To max）As String
'數(shù)組bj存放學(xué)生班級，數(shù)組xk存儲學(xué)生的選課標志
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.ConnectionString=“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 Command1_Click（ ?。?br /> 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（1）），6）
Next i
End Sub.組卷：2引用：1難度：0.3