2017-2018學(xué)年江蘇省無錫市暨陽地區(qū)高三（上）聯(lián)考信息技術(shù)試卷（8月份）
發(fā)布：2024/12/31 22:0:2
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．關(guān)于信息安全、網(wǎng)絡(luò)道德和知識(shí)產(chǎn)權(quán)，下列做法正確的是（ ?。?/h2>
組卷：8引用：2難度：0.9 -
2．關(guān)于搜索引擎和網(wǎng)頁，下列說法正確的是（ ）
組卷：10引用：3難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖所示．下列說法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201709/147/c0fe6e69.png" style="vertical-align:middle" />
組卷：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．【加試題】尼克斯徹定理：任何一個(gè)大于等于1的整數(shù)的立方等于一串連續(xù)奇數(shù)之和，如：13=1，23=3+5，33=7+9+11．編寫一個(gè)VB程序驗(yàn)證尼克斯徹定理，程序運(yùn)行時(shí)，在文本框Text1中輸入
一個(gè)大于等于1的整數(shù)，單擊“驗(yàn)證”按鈕Commandl,在文本框Text2中顯示驗(yàn)證結(jié)果，運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB代碼如下，其中加框處代碼有錯(cuò)，請改正。
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ù)的首個(gè)整數(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所示．“選課”字段存儲(chǔ)7位“0”、“1”組成的數(shù)串，每位對應(yīng)一個(gè)科目，從左往右依次為“物化生政史地技”，“1”表示選擇，“0”表示未選擇，如“1110000”表示選擇科目“物化生”．小吳設(shè)計(jì)了一個(gè)VB程序統(tǒng)計(jì)全校選課情況，功能如下：程序啟動(dòng)時(shí)從數(shù)據(jù)庫中讀入全校學(xué)生的學(xué)籍輔號(hào)、姓名、班級(jí)、選課信息，處理后在列表框List1中顯示，單擊“選課統(tǒng)計(jì)”按鈕Command1，在列表框List2中按選課人數(shù)從高到低輸出各選課組合及人數(shù)，程序界面如圖b所示（學(xué)籍輔號(hào)和姓名的部分內(nèi)容不顯示）．
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）若某記錄“選課”字段值為“1100001”，則該生的選課科目是．
（2）請?jiān)跈M線處填上合適的代碼．
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é)籍輔號(hào)，數(shù)組xm存放學(xué)生姓名
Dim bj（1 To max）As Integer,xk（1 To max）As String
'數(shù)組bj存放學(xué)生班級(jí)，數(shù)組xk存儲(chǔ)學(xué)生的選課標(biāo)志
Dim zh（1 To 35）As String,tj（1 To 35）As Integer
'數(shù)組zh存儲(chǔ)不同選課組合，數(shù)組tj存儲(chǔ)某一組合選課的學(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