2017年10月浙江省十校聯(lián)盟選考信息技術(shù)試卷
發(fā)布：2024/12/26 4:0:2
一、選擇題（每小題2分，共24分．在每小題列出的4個(gè)選項(xiàng)中，只有一項(xiàng)是符合題目要求的）
-
1．下列關(guān)于信息的說(shuō)法，正確的是（ ）
組卷：10引用：2難度：0.9 -
2．下列說(shuō)法不正確的是（ ?。?/h2>
組卷：14引用：2難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖所示：
下列說(shuō)法正確的是（ ?。?/h2>組卷：4引用：2難度：0.9 -
4．關(guān)于Access數(shù)據(jù)表的操作，說(shuō)法正確的是（ ?。?/h2>
組卷：7引用：2難度：0.5 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，下列說(shuō)法正確的是（ ）
組卷：3引用：3難度：0.7
二、非選擇題
-
16．小林編寫(xiě)了一個(gè)實(shí)現(xiàn)英文句子每個(gè)單詞首字母大寫(xiě)功能的VB程序，運(yùn)行界面如圖所示．文本框Text1顯示原文內(nèi)容，單擊“首字母大寫(xiě)”按鈕Command1后，Text2顯示首字母大寫(xiě)的結(jié)果．
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click （ ）
Dim a（1 To 1000）As String
Dim s As String result As String
s=Text1．Text：n=Len（s）
For i=1 To n
a（i）=Mid（s,i,l）
Next i
If a（i）＞''a''And a（1）＜=“z“Then a（1）=Chr（Asc（a（1））-32）
result=a（1）
For i=2 To n-1
If
Then'（1）
If a（i+1）＞=''a''And a（i+1）＜=''z''Then
a（i+1）=Chr（Asc（a（i+1））-32）
result=result+a（i）
End If
Eslse
result=result+a（i）
End If
Next i
'（2）
End Sub.組卷：4引用：1難度：0.1 -
17．小林編寫(xiě)了一個(gè)統(tǒng)計(jì)高三16個(gè)班級(jí)選考技術(shù)人數(shù)占比的VB程序．運(yùn)行界面如圖所示，窗體加載時(shí)，從數(shù)據(jù)庫(kù)中調(diào)用數(shù)據(jù)，統(tǒng)計(jì)各班選考技術(shù)的人數(shù)占比，并在列表框List1中顯示“班級(jí)”和“選技術(shù)占比”．單擊“排序”按鈕Command,數(shù)據(jù)按選技術(shù)占比降序排序，在List2中顯示排序結(jié)果．實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）分析程序，可知調(diào)用的數(shù)據(jù)表的名稱(chēng)為．
（2）請(qǐng)?jiān)跈M線處填入合適的代碼．①、②、③
Dim n As Integer,i As Integer,j As Integer'變量n用于統(tǒng)計(jì)學(xué)生總數(shù)
Dim rate（l To 16）As Integer,num（1 To 16）As Integer,class （1 To 16）As Integer
Dim tech （1 To 50）As Integer,cinfo（1 To 5000）As lnteger,subj（1 To 5000）As String
Private Sub Command1_Click （ ）
Dim i As Integer,As Integer,s As Integer
For i=1 To 15
For j=
If rate（j）＞rate （j-1）Then
t=rate （j）：rate（j）=rate（j-1）：rate（j-1）：=t
s=class（j）：class（j）=class（j-1）：class（j-1）=s
End If
Next j
Next i
List2：AddItem''班級(jí)''+''''+''選技術(shù)占比''
For i=1 To 16
List2．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
Next i
End Sub
Private Sub Form-Load（ ?。?br />Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=''Provider=Microsoft.ACE．OLEDB.12.0DATA Source=''&
App.Path&''\stuimfo.jye.ai''
conn.open
Set rs.ActiveConnection=conn
rs.open''SELECT*FROM xkqk''
此處代碼略，代碼實(shí)現(xiàn)將學(xué)生班級(jí)信息存儲(chǔ)到數(shù)組cinfo中，選考科目存儲(chǔ)到數(shù)組subj中
For i=1 To n’將各班人數(shù)存儲(chǔ)到數(shù)組num中
Next i
For i=1 To 16
class （i）=i
IfThen
If subj（j）=''技術(shù)''Then
tech（i）=tech（i）+1
End If
End If
Next j
rate（i）=Round（tech（i）/num（i）*100，2）
’Round（ ?。┓祷刂付ㄎ粩?shù)進(jìn)行四舍五入的數(shù)值
List 1．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
Next i
’ads（ ）整數(shù)轉(zhuǎn)換長(zhǎng)度固定的字符串
Function ads （x As Integer,n As Integer）As String
代碼略
End Function.組卷：6引用：1難度：0.1