2016-2017學(xué)年浙江省嘉興市桐鄉(xiāng)市鳳鳴高級中學(xué)高二(下)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分.)
-
1.下列有關(guān)信息的說法,正確的是( ?。?/h2>
組卷:2引用:1難度:0.6 -
2.某軟件具有自動識別植物名稱的功能。只要打開相機(jī),對著花草等植物拍照,軟件就會自動識別相片內(nèi)容,顯示多個可能的植物品種,用戶可以挑選進(jìn)行確認(rèn),還能將識別結(jié)果通過微信、微博分享出去。根據(jù)上述描述,以下說法錯誤的是( )
組卷:4引用:1難度:0.5 -
3.使用Word文件的審閱功能設(shè)置如圖所示,下列說法正確的是( ?。?br />
組卷:3引用:1難度:0.5 -
4.使用Access軟件創(chuàng)建的“球員資料”數(shù)據(jù)表,其設(shè)計視圖的部分界面如圖所示。在數(shù)據(jù)表試圖中,以下操作能夠?qū)崿F(xiàn)的是( ?。?/h2>
組卷:2引用:1難度:0.4 -
5.某算法的部分流程圖如第5題圖所示,執(zhí)行這部分流程后,變量m和s的值是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201904/177/ef723a7e.png" style="vertical-align:middle" />
組卷:0引用:1難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.為了實現(xiàn)Word中“查找和替換”的功能,小張編寫了VB程序,功能如下:在文本框Text1中輸入原字符串,在文本框Text2中輸入需要替換前的文字,在文本框Text3中輸入替換后的文字。點擊命令按鈕Command1后,將替換后的結(jié)果輸出在文本框Text4中。程序界面如圖所示:
實現(xiàn)上述功能的代碼如下,但加框處代碼有誤,請改正。
Private Sub Command1_Click ( )
Dim s1 As String,s2 As String,n1 As Integer,n2 As Integer
Dim c1 As String,c2 As String
s1=Text1.Text
c1=Text2.Text
c2=Text3.Text
n1=Len(s1)
n2=Len(c1)
For i=1 To n1 Step ‘錯誤①處
If Mid(s1,i,n2)=c1 Then
‘錯誤②處
Else
s2=s2+Mid(s1,i,n2)
End If
Next i
Text4.Text=s2
End Sub組卷:0引用:1難度:0.3 -
17.編寫一個VB程序,比較冒泡排序和選擇排序的效率。功能如下:點擊命令按鈕Command1,在列表框List1中輸出任意10個兩位數(shù),用數(shù)組a ( ?。┍硎?。點擊命令按鈕Command2,用冒泡排序的方法在列表框List2中將10個數(shù)降序輸出,用數(shù)組b ( ?。┍硎?,并在標(biāo)簽Label1中顯示交換次數(shù)。點擊命令按鈕Command3,用選擇排序的方法在列表框List2中將10個數(shù)降序輸出,用數(shù)組c ( )表示,并在標(biāo)簽Label2中顯示交換次數(shù)。程序界面如圖所示:
實現(xiàn)上述功能的VB程序如下,請在橫線處填入適合的代碼。
Dim a(1 To 10)As Integer,b(1 To 10)As Integer,c(1 To 10)As Integer
‘?dāng)?shù)組a ( ?。┯糜诒4骐S機(jī)生成的10個數(shù),數(shù)組b( ?。┯糜诿芭菖判?,數(shù)組c( ?。?用于選擇排序
Dim tj As Integer
Private Sub Command1_Click ( )
For i=1 To 10
a(i)=
b(i)=a(i)
c(i)=a(i)
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click ( ?。?br />tj=0
List2.Clear
For i=1 To 9
For j=10 To
If b(j)>b(j-1)Then
temp=b(j):b(j)=b(j-1):b(j-1)=temp
tj=tj+1
End If
Next j
Next i
For i=1 To 10
List2.AddItem b(i)
Next i
Label1.Caption=“交換“+Str(tj)+“次“
End Sub
Private Sub Command3_Click ( )
tj=0
List2.Clear
For i=1 To 9
k=i
For j=i+1 To 10
If c(j)>c(k) Then
Next j
If
temp=c(i):c(i)=c(k):c(k)=temp
tj=tj+1
End If
Next i
For i=1 To 10
List2.AddItem c(i)
Next i
Label2.Caption=“交換“+Str(tj)+“次“
End Sub組卷:2引用:1難度:0.5