2017-2018學年江蘇省無錫市暨陽地區高三（上）聯考信息技術試卷（8月份）
發布：2024/12/31 22:0:2
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．關于信息安全、網絡道德和知識產權，下列做法正確的是（ ）
組卷：8引用：2難度：0.9 -
2．關于搜索引擎和網頁，下列說法正確的是（ ?。?/h2>
組卷：10引用：3難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖所示．下列說法正確的是（ ?。?img alt src="https://img.jyeoo.net/quiz/images/201709/147/c0fe6e69.png" style="vertical-align:middle" />
組卷：4引用：2難度：0.9 -
4．使用UltraEdit軟件觀察字符“Good Luck!”的內碼，部分界面如圖所示．下列說法正確的是（ ?。?br />
組卷：12難度：0.7 -
5．使用Access軟件創建的“student”數據表，部分界面如圖所示．下列說法正確的是（ ?。?img alt src="https://img.jyeoo.net/quiz/images/201709/147/ee3d20f0.png" style="vertical-align:middle" />
組卷：3引用：2難度：0.7
二、解答題（共5小題，滿分26分）
-
16．【加試題】尼克斯徹定理：任何一個大于等于1的整數的立方等于一串連續奇數之和，如：13=1，23=3+5，33=7+9+11．編寫一個VB程序驗證尼克斯徹定理，程序運行時，在文本框Text1中輸入
一個大于等于1的整數，單擊“驗證”按鈕Commandl,在文本框Text2中顯示驗證結果，運行界面如圖所示。
實現上述功能的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表示連續奇數的首個整數
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．某校開展“七選三”選課調查，選課數據存數據庫文件“student.jye.ai”中，如圖a所示．“選課”字段存儲7位“0”、“1”組成的數串，每位對應一個科目，從左往右依次為“物化生政史地技”，“1”表示選擇，“0”表示未選擇，如“1110000”表示選擇科目“物化生”．小吳設計了一個VB程序統計全校選課情況，功能如下：程序啟動時從數據庫中讀入全校學生的學籍輔號、姓名、班級、選課信息，處理后在列表框List1中顯示，單擊“選課統計”按鈕Command1，在列表框List2中按選課人數從高到低輸出各選課組合及人數，程序界面如圖b所示（學籍輔號和姓名的部分內容不顯示）．
實現上述功能的VB程序如下，請回答下列問題：
（1）若某記錄“選課”字段值為“1100001”，則該生的選課科目是．
（2）請在橫線處填上合適的代碼．
Const max=1000
Const s=“物化生政史地技“
Dim n As Integer'存放學生人數
Dim xjfh（1 To max）As String,xm（1 To max）As String
'數組xjfh存放學生學籍輔號，數組xm存放學生姓名
Dim bj（1 To max）As Integer,xk（1 To max）As String
'數組bj存放學生班級，數組xk存儲學生的選課標志
Dim zh（1 To 35）As String,tj（1 To 35）As Integer
'數組zh存儲不同選課組合，數組tj存儲某一組合選課的學生數
Function adj（a As String,n As Integer）As String
'函數功能：在被顯示數據之后添加上合適的空格，代碼略
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
'剩余部分代碼略
功能：產生35種選課組合的“0”、“1”數串，存數組zh；數組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