2017-2018學年浙江省紹興市諸暨中學高二（上）第二次段考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本題共有12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分）
-
1．三國赤壁之戰時黃蓋獻上詐降書，騙得曹操信任后防火燒船，這實例主要體現了信息的什么特征（ ）
組卷：14引用：3難度：0.9 -
2．亞馬遜最近推出了“Amazon Go”免排隊超市．在該超市中顧客拿了商品就可以走，無需排隊，付錢系統會自動結算．則下列哪個應用不是人工智能技術（ ）
組卷：9引用：5難度：0.9 -
3．在Word的編輯窗口出現如下圖所示的樣式，則說明Word開啟了（ ）
組卷：6引用：2難度：0.9 -
4．某算法的部分流程圖如圖所示，執行這部分流程后，變量 a 和 b 的值分別為（ ）
組卷：5引用：2難度：0.9 -
5．某Access數據表編輯界面如圖所示，以下說法錯誤的是（ ）組卷：13引用：9難度：0.7
【加試題】
-
16．小吳為了探究冒泡排序過程中數據的“移動”情況，編寫了一個VB程序，功能如下：在列表框List1中顯示排序前數據（存儲在數組a中），在文本框Text1中輸入初始位置（即下標值），單擊“排序”按鈕Command1后，在標簽Label1中顯示指定初始位置的數據在排序過程中的位置變化情況，排序后的數據顯示在列表框List2中。程序運行界面如圖所示。
實現上述功能的VB程序如下，但加框處代碼有錯，請改正。
Dim a（1To 8）As Integer
Dim n As Integer
Private Sub Form_Load （ ）
'n=8，排序前的8個數據存儲在數組a中，并在列表框Listl中顯示
'代碼略
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,k As Integer
Dim pos As Integer'變量pos存儲指定數據的位置（即下標值）
Dim s As String'變量s存儲pos變化情況
s=Text1．Text
pos=Val（Text1．Text）
For i=1To n-1
For j=n To i+1Step-1
If a（j）＜a（j-1）Then
‘（1）
a（j-1）=a（j）
a（j）=k
'如果pos位置的數據參與交換，則更新pos值，記錄pos變化情況
If pos=j Then
pos=j-1
s=s+”→”+Str（pos）
‘（2）
pos=j
s=s+”→”+Str（pos）
End If
End If
Next j
Next i
Label1．Caption=”位置變化情況：”+s
For i=1To n
List2．AddItem Str（a（i））
Next i
End Sub組卷：27引用：3難度：0.3
【加試題】
-
17．RGB 色彩模式是工業界的一種顏色標準，是通過對紅（R）、綠（G）、藍（B）三 個顏色通道的變化以及它們相互之間的疊加來得到各式各樣的顏色。RGB 顏色分量的值通常 采用十進制數表示，而Flash 軟件中顏色值采用十六進制數表示。比如RGB（100，255，10）
等價于十六進制顏色碼#64FF0A，每個RGB 顏色分量對應兩位十六進制數。
小杜編寫一個RGB 顏色值轉十六進制顏色碼的轉換程序，程序功能如下：程序運行時在 文本框Text1 輸入RGB 顏色值，輸入格式為“RGB（x,y,z）”，x、y、z 的范圍都是[0，255]。
單擊“轉換”按鈕Command1，在標簽Label1 上輸出對應的十六進制顏色碼。程序運行界面 如圖2所示。
實現上述功能的VB 程序如下，請回答下列問題：
（1）程序運行時，在文本框Text1 輸入RGB（25，0，101），則標簽Label1 上顯示的內容是
（2）請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
Dim s As String,ch As String
Dim ans As String
Dim a（1To 3）As Integer'用于存儲RGB 對應的3 個分量
Dim i As Integer,j As Integer s=Text1．Text
s=Mid（s,5，Len（s）-5）'取出括號內的字符串
i=1：j=1
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=“9“Then a（j）=①
Else
j=j+1
End If
i=i+1
Loop
For i=1To 3
②
Next i
Label1．Caption=“#“+ans
End Sub
Function btoh（x As Integer） As String'將十進制數轉換成兩位十六進制數
Const zf=“0123456789ABCDEF“Dim r As Integer,h As String h=““
Do While x＞0
r=x Mod 16
h=Mid（zf,r+1，1）+h x=x\16
Loop
If Len（h）=1Then h=“0“+h
If Len（h）=0Then h=“00“
③
End Function。組卷：2引用：1難度：0.5