2016-2017學年浙江省“七彩陽光”新高考研究聯盟高二（上）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列關于信息的說法，不正確的是（ ）
組卷：7引用：2難度：0.9 -
2．下列關于網站和網頁說法不正確的是（ ）
組卷：3引用：3難度：0.9 -
3．下列應用中，沒有使用光學字符識別（OCR）技術的是（ ）
組卷：6引用：2難度：0.9 -
4．關于Access數據庫的說法，不正確的是（ ）
組卷：3引用：2難度：0.7 -
5．某算法流程圖如圖所示：執行該算法，輸出變量s和變量i的值分別為（ ）組卷：0引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分
-
16．刪除重復字符的程序。程序功能如下：在文本框Text1中輸入字符串，單擊“刪除重復字符”按鈕，在文本框Text2中輸出處理后的結果。程序運行效果如圖所示。實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
Private Sub Command1_ Click （ ）
x=TextI Text
n=Len（x）
s=s+Mid（x,1.1）
For i=2 To n
flag=0
For j=1 To Len（s）
If
Then
flag=1：Exit For
End If
Next j
If
Then
s=s+Mid（x,i.D
End If
Next i
Text2，Text=s
End Sub組卷：0引用：1難度：0.3 -
17．小明編寫了一個查名次的程序。程序功能如下：運行程序，讀取數據庫，將相關信息讀入到數組中（xh存放學號，xm存放姓名，zf存放總分，mc存放名次）并在列表框 list I中顯示學生的相關信息，單擊“排名次”按鈕，在列表框list2中顯示帶有名次的學生相關信息（總分相同的名次一樣）。在文本框中輸入學生的學號，單擊“查名次”按鈕，則在窗體中顯示該學號對應的學生姓名與名次。程序運行效果如圖所示。
實現上述功能的VB程序如下：
（1）通過分析代碼可知該數據表的名稱為
（2）實現上述功能的VB程序如下：請在橫線處填入合適代碼。
Dim xh（n） As Strin
Dim xm（n）As String
Dim zf（n） As Integer
Dim mc（n） As Integer
Private Sub Form _Load （ ）
Dim conn As New AlXODB Connection
Dim rs as new adodb,recordset
Dim n As Integer i As Integer,k As Integer
conn,ConncctionString-“Provider=Microsoft.ACE OLEDB，12.0：Data Source=
+App.Path+“\student.jye.ai”
conn open
Set rs,ActiveConnection=conn
rs,“Open SELECT*FROM score“
ListI．Additem“學號”+“”+“姓名”+”“”+“總分“
n=0
Do While not rs EOF'到最后一條記錄后退出循環
n=n+1
xh（n）=rs.Fields（“學號”）
xm（n）=s.Fields（“姓名“）
zf（n）=rs.Fields（“總分“）
ListI，AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））‘移動到下一條記錄
Loop
rs Close
conn.Close
Set rs=Nothing
Set conn=Nothing
Private Sub Commandl Click（ ）
For i=I To n
k=i
For j=i+I To n
If zf（j）＜zf（k） Then k=j
Next j
IfThen
Templ xh（i）：xh（i）=xh（k）：xh（k）=Templ
Temp2=xm（i）：xm（i）=xm（k）：xm（k）=Temp2
Temp3=zf（i）：zf（i）=zf（k）：zf（k）=Temp3
End If
Next i
mc（1）=1
For i=2 To n
If zf（i）=zf（i-1）Then
Else
mc（i）=i
End If
Next i
List2．AddItem“學號“+“”+“姓名”+“總分”+“名次”
For i=I To n
List2 AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））+“”+
Next i
End Sub組卷：0引用：1難度：0.5