2017-2018學(xué)年浙江省杭州地區(qū)六校聯(lián)考高二（下）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分．）
-
1．下列有關(guān)信息的說法中，正確的是（ ?。?/h2>
組卷：42引用：1難度：0.9 -
2．如圖是小明經(jīng)常訪問的一個網(wǎng)站的截圖，以下說法正確的是（ ?。?br />
組卷：26引用：1難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。
下列說法正確的是（ ?。?/h2>組卷：29引用：1難度：0.9 -
4．用UltraEdit軟件觀察字符“2018，fighting!”的內(nèi)碼，部分界面如圖所示。
下列說法正確的是（ ?。?/h2>組卷：20引用：1難度：0.7 -
5．使用Access軟件創(chuàng)建的“圖書”數(shù)據(jù)表，其設(shè)計視圖和數(shù)據(jù)表視圖的部分界面如圖所示。
下列說法正確的是（ ?。?/h2>組卷：25引用：1難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．編寫VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時，產(chǎn)生n個數(shù)據(jù)并在列表框List1中顯示，在文本框Text1中輸入一個正整數(shù)key,單擊“查找”按鈕Command1，則在標(biāo)簽Label2中顯示查找該數(shù)的位置，程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯誤，請改正。
Const n=10
Dim a（1To 10）As Integer
Private Sub Form_Load （ ?。?br/>'隨機(jī)產(chǎn)生n個整數(shù)并存儲在數(shù)組d中
'在列表框顯示數(shù)據(jù)，代碼略
End Sub
Private Sub Command1_Click （ ?。?br/>Dim key As Integer,p As Integer
key=Val（Text1．Text）
p=search（n）'①
If p＜＞0Then
Label2．Caption=“該數(shù)據(jù)在第“+Str（p）+“個位置“
Else
Label2．Caption=“沒有找到！“
End If
End Sub
Function search（x As Integer） As Integer
search=0
For i=1To n
If a（i）=x Then
search=d（i）'②
End if
Next i
End Function組卷：23引用：1難度：0.4 -
17．小李編寫了一個將二進(jìn)制數(shù)轉(zhuǎn)換成補(bǔ)碼的VB程序。算法的基本思想：二進(jìn)制數(shù)的第一位為符號位，如果符號位為0，表明該數(shù)為正數(shù)，其反碼和補(bǔ)碼與原碼完全一致；如果符號位為1，表明該數(shù)為負(fù)數(shù)，其由源碼變?yōu)檠a(bǔ)碼時，需進(jìn)行如下操作：（1）原碼符號位1不變，其余每一位二進(jìn)制數(shù)位求反（1變?yōu)?，0變?yōu)?），得到反碼；（2）反碼符號位1不變，反碼數(shù)值最低位加1，得到補(bǔ)碼。程序運(yùn)行時，在文本框Text1中輸入二進(jìn)制數(shù)，單擊“轉(zhuǎn)換”按鈕Command1之后，在文本框Text2中顯示該數(shù)反碼，在文本框Text3中顯示改數(shù)補(bǔ)碼。程序運(yùn)行界面如圖a、b所示。
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）根據(jù)該VB程序，若輸入的二進(jìn)制數(shù)是1001001，則其轉(zhuǎn)換成的補(bǔ)碼為。
（2）請在下橫線處填入合適的代碼。
Private Sub Command1_Click （ ?。?br />Dim source As String,opp As String,sup As String'變量source代表原碼，opp代表反碼，sup代表補(bǔ)碼
Dim dAs String,i As Integer
Dim a（1To 100）As String
① For i=1To Len（source）
a（i）=Mid（source,i,1）
Next i
If a（1）=“0“Then
Text2．Text=source
Text3．Text=source
Else
For i=Len（source） To 2Step-1
If ② Then
a（i）=“0“
Else
a（i）=“1“
End If
opp=a（i）+opp
Next i
opp=a（1）+opp
Text2．Text=opp
d=“1“'反碼數(shù)值最低位加1
For i=Len（source） To 2Step-1
If a（i）=“1“And d=“1“Then
a（i）=“0“
d=“1“
ElseIfa（i）=“0“And d=“1“Then
a（i）=“1“
③
End If
sup=a（i）+sup
Next i
sup=a（1）+sup
Text3．Text=sup
End If
End Sub組卷：2引用：1難度：0.5