2018-2019學(xué)年浙江省名校協(xié)作體高三（上）月考信息技術(shù)試卷（9月份）
發(fā)布：2024/11/14 10:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求，不選、多選、錯(cuò)選均不得分）
-
1．下列有關(guān)信息的說(shuō)法，正確的是（ ?。?/h2>
組卷：9引用：1難度：0.8 -
2．下列有關(guān)瀏覽器與網(wǎng)頁(yè)、網(wǎng)絡(luò)協(xié)議的說(shuō)法，正確的是（ ）
組卷：1引用：2難度：0.5 -
3．使用word編輯某文檔，部分界面如圖所示，以下說(shuō)法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201810/68/aa31eab7.png" style="vertical-align:middle" />
組卷：7引用：1難度：0.6 -
4．使用Access軟件創(chuàng)建一張數(shù)據(jù)表，其設(shè)計(jì)視圖界面如圖所示，下列說(shuō)法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201810/68/63414c01.png" style="vertical-align:middle" />
組卷：5引用：1難度：0.4 -
5．使用UltraEdit軟件觀察字符內(nèi)碼，結(jié)果如圖所示。
以下說(shuō)法正確的是（ ?。?/h2>組卷：1引用：1難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小王設(shè)計(jì)了一個(gè)算法試圖求出平面坐標(biāo)系中最左點(diǎn)出發(fā)，從左往右途經(jīng)所有點(diǎn)到達(dá)最右點(diǎn)的路徑值和，編寫(xiě)了一個(gè)VB程序功能如下：在文本框Text1中輸入需隨機(jī)生成的坐標(biāo)點(diǎn)數(shù)量，單擊“生成”按鈕Command1后，在列表框List1中生成相應(yīng)數(shù)量的坐標(biāo)點(diǎn)（坐標(biāo)值為大于等于1小于10的實(shí)數(shù)，保留一位小數(shù)），在文本框Text2中輸出路徑值。程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Private Sub Command1_Click （ ?。?br /> Dim x（1To 100）As Single,y（1To 100）As Single
Dim tmp As Single,length As Single,sum As Single,x1As Single,y1As Single
Dim i As Integer,j As Integer,k As Integer
Randomize
List1．Clear
k=Val（Text1．Text）
For i=1To k
x（i）=Int（Rnd*90）/10+1
y（i）=Int（Rnd*90）/10+1
List1．AddItem“X：“+Str（x（i））+““+“Y：“+Str（y（i））
Next i
For i=1To k-1
For j=1To k-i
If x（j）＞x（j+1）Then
x（i）=x（i）+x（j）
x（j）=x（i）-x（j）
tmp=y（j）
y（j）=y（j+1）
y（j+1）=tmp
End If
Next j
Next i
sum=0：length=0
For i=1To k-1
x1=
'變量y1計(jì)算方法同x1，代碼略
length=Sqr（x1+y1）
sum=sum+length
Next i
Text2．Text=Str（Int（sum*10）/10）
End Sub組卷：0引用：1難度：0.9 -
17．某密碼的破譯步驟如下：
（1）找出文章（以“?！苯Y(jié)束）中所有用英文表示的數(shù)字（均為小寫(xiě)，數(shù)字范圍1≤n≤20），單詞與數(shù)字對(duì)應(yīng)如下：
（2）將這些數(shù)字平方后除以100取余，得到兩位數(shù)如00，04，21，96。單詞 one two three four five six seven eight nine ten …… twenty 數(shù)字 1 2 3 4 5 6 7 8 9 10 …… 20
（3）把這些兩位數(shù)按升序排成一行，組成一個(gè)最小的新數(shù)，如果新數(shù)開(kāi)頭為0，就去除。
（4）步驟（3）找出的最小數(shù)即為密碼。
小明按照上述方法，設(shè)計(jì)了一個(gè)解密的VB程序，功能如下：?jiǎn)螕簟敖饷堋卑粹oCommandl,程序依次將文本框Textl中以空格分隔的每個(gè)英文單詞取出，若單詞屬于數(shù)字單詞，則按解密步驟進(jìn)行處理，最后在文本框Text2中輸出解密結(jié)果。程序運(yùn)行效果如圖所示，請(qǐng)回答下列問(wèn)題：
（1）若文章內(nèi)容為“tom bought two apples and five oranges,which cost ten dollars altogether?！?，則破譯后的密碼應(yīng)為。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1To 20）As String
Private Sub Form_Load （ ?。?br />a（1）=“one“：a（2）=“two“
'……將所有數(shù)字單詞按順序存入數(shù)組a中，代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim s As String,tmp As String
Dim c as Integer,i As Integer,j As Integer,k As Integer,t As String,ch As As String,code As Long
Dim b（1To 100）As String'b數(shù)組存放數(shù)字單詞處理后得到的兩位數(shù)
s=Text1．Text
c=0：i=1：flag=True：t=““
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＞=“a“And ch＜=“z“Then
t=t+ch
flag=False
ElseIf flag=False Then
For j=1To 20
If t=a（j） Then
c=c+1
b（c）=
End If
Next j
t=““
flag=True
End If
i=i+1
Loop
’將b數(shù)組中的兩位數(shù)按數(shù)值大小進(jìn)行升序排序，代碼略
For i=1To c
t=Val（b（i））
Next i
Text2．Text=Str（code）
End Sub
Function decode（num As Integer） As String
Dim mo As Integer
mo=num*num Mod 100
If mo=0Then
decode=“00“
ElseIfThen
decode=“0“+Trim（Str（mo））
Else
decode=Trim（Str（mo））'Trim為去除字符串兩端空格的函數(shù)
End If
End Function組卷：2引用：1難度：0.5