2018-2019學(xué)年浙江省杭州二中高三（上）第一次月考信息技術(shù)試卷
發(fā)布：2024/11/21 1:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）
-
1．下列關(guān)于信息及信息編碼的說(shuō)法中，不正確的是（ ?。?/h2>
組卷：2引用：1難度：0.6 -
2．用 IE 瀏覽器訪問(wèn)浙江省杭州二中教育集團(tuán)的網(wǎng)站首頁(yè)，界面如圖所示：下列說(shuō)法中不正確的是（ ?。?br />
組卷：5引用：1難度：0.6 -
3．使用 UltraEdit 軟件觀察字符內(nèi)碼，結(jié)果如圖所示：下列說(shuō)法中正確的是（ ）
組卷：2引用：1難度：0.5 -
4．某算法的流程圖如圖所示：當(dāng)輸入n的值為10時(shí)，輸出結(jié)果為（ ?。?img alt src="https://img.jyeoo.net/quiz/images/201912/109/f4cd9f84.png" style="vertical-align:middle" />
組卷：0引用：1難度：0.4 -
5．某校使用Access軟件幫助老師進(jìn)行學(xué)生寢室的安排，界面如圖所示：下列說(shuō)法中，不正確的是（ ?。?br />
組卷：0引用：1難度：0.6
二、非選擇題（本題共5小題，其中第13題4分，第14題5分，第15題8分，第16題3分，第17小題6分，共26分）
-
16．編寫(xiě) VB 程序，在文本框 Text1 中輸入需要產(chǎn)生的密碼個(gè)數(shù) n,單擊“確定”按鈕 confirm,生成n個(gè)長(zhǎng)度為6的由大小寫(xiě)字母和數(shù)字0～9組成的密碼，并在列表框中顯示。程序運(yùn)行時(shí)界面如圖所示。
為實(shí)現(xiàn)上述功能請(qǐng)?jiān)跈M線處填上合適代碼
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．運(yùn)動(dòng)會(huì)的跳高項(xiàng)目有來(lái)自 total（1≤total≤50）個(gè)不同班級(jí)同學(xué)參加，隨機(jī)抽取一段參賽信息，要求所有參賽班級(jí)的參賽人數(shù)至少1個(gè)，求滿足要求的最小區(qū)間長(zhǎng)度。
參賽班級(jí)用數(shù)字1，2，3，4……number表示，依次存入數(shù)組a（1）～a（number），若1號(hào)班級(jí)的編號(hào)為5，則a（1）=5。
（1）若有15個(gè)參賽學(xué)生，分別來(lái)自于6個(gè)不同的班級(jí)，從左到右排列，班級(jí)編號(hào)依次為2，3，6，3，5，5，3，1，4，2，3，2，5，1，6則最小的區(qū)間長(zhǎng)度為。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1 To 50）As Integer,T As Integer,Number As Integer,Total As Integer Private Sub Form_Load （ ?。a(chǎn)生 Number 的值，表示參賽人數(shù)，產(chǎn)生 Total 的值，表示包含的班級(jí)數(shù)’產(chǎn)生 Number 個(gè)編號(hào)為 1-Total 的班級(jí)編號(hào)，并存儲(chǔ)在數(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