2018-2019學(xué)年浙江省杭州二中高三（上）第一次月考信息技術(shù)試卷
發(fā)布：2024/11/21 1:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關(guān)于信息及信息編碼的說法中，不正確的是（ ）
組卷：2引用：1難度：0.6 -
2．用 IE 瀏覽器訪問浙江省杭州二中教育集團的網(wǎng)站首頁，界面如圖所示：下列說法中不正確的是（ ?。?br />
組卷：5引用：1難度：0.6 -
3．使用 UltraEdit 軟件觀察字符內(nèi)碼，結(jié)果如圖所示：下列說法中正確的是（ ?。?br />
組卷：2引用：1難度：0.5 -
4．某算法的流程圖如圖所示：當(dāng)輸入n的值為10時，輸出結(jié)果為（ ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201912/109/f4cd9f84.png" style="vertical-align:middle" />
組卷：0引用：1難度：0.4 -
5．某校使用Access軟件幫助老師進行學(xué)生寢室的安排，界面如圖所示：下列說法中，不正確的是（ ?。?br />
組卷：0引用：1難度：0.6
二、非選擇題（本題共5小題，其中第13題4分，第14題5分，第15題8分，第16題3分，第17小題6分，共26分）
-
16．編寫 VB 程序，在文本框 Text1 中輸入需要產(chǎn)生的密碼個數(shù) n,單擊“確定”按鈕 confirm,生成n個長度為6的由大小寫字母和數(shù)字0～9組成的密碼，并在列表框中顯示。程序運行時界面如圖所示。
為實現(xiàn)上述功能請在橫線處填上合適代碼
Private Sub confirm_Click （ ?。?nbsp;Dim i As Integer,j As Integer Dim n As Integer,m As Integer Dim k As Integer,s As String Const length=6
n=Val（Text1．Text） i=1
List1．Clear
Do While i＜=n
s=““
For j=1To length
k=Int（Rnd （ ?。?3）+1
If k=1 Then
m=Int（Rnd （ ）*26）+1
s=s+Chr（Asc（“a“）+m-1）
ElseIf k=2 Then
m=Int（Rnd （ ?。?26）+1
s=s+Chr（Asc（“A“）+m-1）
Else
m=（1）
s=s+Chr（Asc（“0“）+m-1）
End If
Next j
List1．AddItem Str（i）+““+s
（2）
Loop
End Sub組卷：0引用：1難度：0.5 -
17．運動會的跳高項目有來自 total（1≤total≤50）個不同班級同學(xué)參加，隨機抽取一段參賽信息，要求所有參賽班級的參賽人數(shù)至少1個，求滿足要求的最小區(qū)間長度。
參賽班級用數(shù)字1，2，3，4……number表示，依次存入數(shù)組a（1）～a（number），若1號班級的編號為5，則a（1）=5。
（1）若有15個參賽學(xué)生，分別來自于6個不同的班級，從左到右排列，班級編號依次為2，3，6，3，5，5，3，1，4，2，3，2，5，1，6則最小的區(qū)間長度為。
（2）請在橫線處填入合適的代碼。
Dim a（1 To 50）As Integer,T As Integer,Number As Integer,Total As Integer Private Sub Form_Load （ ）’產(chǎn)生 Number 的值，表示參賽人數(shù)，產(chǎn)生 Total 的值，表示包含的班級數(shù)’產(chǎn)生 Number 個編號為 1-Total 的班級編號，并存儲在數(shù)組 a 中’代碼略
End Sub
Private Sub Command1_Click （ ?。?br />End If
Loop
Text1．Text=Str（ans）
End Sub
Function pd（M As Integer） As Boolean
Dim mid As Integer
i=Total：j=Number
Do While i＜=j
mid=（i+j）\2
If pd（mid）=①Then
j=mid-1
ans=mid
Else
i=mid+1
Dim b（1To 100）As Integer
Dim T As Integer
pd=False
For i=1 To Number-M+1
For j=i To i+M-1
②
Next j
T=0
For j=1 To Total
T=T+b（j）
End If
Loop
Text1．Text=Str（ans）
End Sub
Function pd（M As Integer） As Boolean
Next j
If T=③Then pd=True：Exit Function
Next i
End Function組卷：0引用：1難度：0.2