2017-2018學年浙江省溫州市十五校聯合體高二（上）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．家用掃地機器人具有自動避障、智能清掃、自動充電等功能，這主要體現了（ ）
組卷：9引用：2難度：0.9 -
2．用 Word 軟件編輯某文檔，部分界面如圖所示．
結合圖中提示信息，下列說法正確的是（ ?。?/h2>組卷：7引用：1難度：0.9 -
3．小明用瀏覽器打開“浙江在線”網站，其主頁地址為“http://www.zjol.com.jye.ai/index.jye.ai”，該主頁 圖文并茂，下列描述不正確的是（ ?。?/h2>
組卷：8引用：1難度：0.9 -
4．小金用 Access 創建“學生信息”數據表，其設計視圖的部分界面如圖所示．下列操作不能實現的是（ ?。?/h2>組卷：5難度：0.7 -
5．某算法的部分流程圖如圖所示，執行這部分流程后，變量 a 和 b 的值分別為（ ?。?br />
組卷：5引用：2難度：0.9
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小明編寫某 VB 程序，其功能如下：文本框 Text1 里輸入數學表達式（假設表達式的 長度小于等于 100），在列表框 List1 里輸出所有配對括號在表達式中的位置．例如在文本框 Text1 里入：“12*（3-（1+2））*3”，程序運行效果如圖所示．
實現上述功能的 VB 代碼如下，在劃線的地方填入合適代碼，完善程序
Private Sub Command1_Click （ ?。?br />Dim s As String
Dim a（1To 100）As Integer
Dim i As Integer,top As Integer s=Text1．Text
i=1
top=0
Do While i＜=Len（s）
If Mid（s,i,1）=“（“Then
top=top+1
①
End If
If Mid（s,i,1）=“）“Then
List1．AddItem Str（a（top））+““+Str（i）
②
End If
i=i+1
Loop
End Sub.組卷：3難度：0.3 -
17．小張編寫 VB 程序，實現如下功能：在前 100 個偶自然數中，計算恰好有四位為 1 的二進制數的個數，如圖所示，單擊“計算”按鈕 Command1，在文本框 Text1 中顯示符合條件的個數，在列表框 List1 中顯示 符合條件的二進制數．VB 程序代碼如下：
提示：本題“除 2 取余倒排法”的方法將十進制轉化為二進制，算法如下：
例如十進制數“97”轉化為二進制的過程如圖所示：
因此“97”二進制值為：1100001
（1）解決此問題主要采用的算法是（選填字母：A．解析算法/B．枚舉算法）．
（2）為了實現程序的功能，請在橫線處填入合適的代碼．
Private Sub Command1_Click （ ）
Dim a As Integer,c As Integer,w As Integer,i As Integer
Dim s As String,k As String
c=0
For m=1To 100
k=““
i=2*m
Do While i＞0
a=i Mod 2
k=str（a）+k
Loop
For n=1To Len（k）
s=Mid（k,n,1）
If s=“1“Then w=w+1
Next n
If w=4Then
c=c+1
End if
Next m
Text1．Text=Str（c）
End Sub.組卷：5引用：1難度：0.3