2015-2016學(xué)年浙江省紹興一中高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.備受中外矚目的上海迪士尼內(nèi)部測(cè)試啟動(dòng)后有一些帖子在微博微信上熱轉(zhuǎn),有聲稱來(lái)自浙江、南京、重慶等全國(guó)近20個(gè)省市的“第一批體驗(yàn)上海迪士尼的人”發(fā)文吐嘈迪士尼消費(fèi)太高,表示“哭暈在廁所”.有人梳理對(duì)比發(fā)現(xiàn),這些文章使用的是同一組照片,文章內(nèi)容幾乎相同,僅僅只是客源地不同.下列說(shuō)法正確的是
( )組卷:9引用:1難度:0.9 -
2.把校園卡放在食堂讀卡機(jī)上馬上會(huì)顯示出當(dāng)前卡內(nèi)余額,此時(shí)一卡通系統(tǒng)對(duì)數(shù)據(jù)庫(kù)進(jìn)行的操作是( ?。?/h2>
組卷:6引用:1難度:0.9 -
3.劉明在使用OCR軟件進(jìn)行文字識(shí)別時(shí)出現(xiàn)如圖所示情況,為提高識(shí)別正確率,在重新識(shí)別前他應(yīng)該先進(jìn)行的操作是( ?。?/h2>
組卷:6引用:2難度:0.9 -
4.小明要?jiǎng)?chuàng)作一個(gè)主題為“讓文明成為習(xí)慣”的多媒體作品.在創(chuàng)作之前對(duì)這個(gè)作品的使用頻度、所需資金及產(chǎn)生的經(jīng)濟(jì)效益進(jìn)行分析,這屬于( ?。?/h2>
組卷:11引用:4難度:0.9 -
5.如果a,b,c均為整型變量,其中a=3,b=4,執(zhí)行以下語(yǔ)句,變量a,b的結(jié)果與其他幾項(xiàng)不同的是( )
組卷:8引用:2難度:0.7
四、加試題
-
16.小劉想編寫一個(gè)字符串轉(zhuǎn)換程序,在文本框Text1中輸入原始字符串,單擊“轉(zhuǎn)換”按鈕Command1后,將其中的小寫英文字母轉(zhuǎn)換為大寫,并在文本框Text2中顯示.程序運(yùn)行效果如圖所示.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Private Sub Command1_Click ( ?。?br />Dim a As String,b As String
Dim i As Integer,c As String
a=Text1.Text
For i=1To Len(a)
c=Mid(a,i,1)
b=upcase(c)+b'(1)
Next i
Text2.Text=Str(b)'(2)
End Sub
'將小寫字母轉(zhuǎn)換為大寫字母
Private Function upcase(c As String) As String
If c>=“a“And c<=“z“Then
upcase=Chr(Asc(c)-32)
Else
upcase=c
End If
End Function.組卷:2引用:1難度:0.1
加試題
-
17.下列VB程序的功能是:程序運(yùn)行時(shí),單擊命令按鈕Commandl后,產(chǎn)生10個(gè)[1,999]范圍內(nèi)互不相同的隨機(jī)整數(shù),依次顯示在列表框List1中,然后將它們按從小到大的順序排序,排序結(jié)果顯示在列表框List2中.?dāng)?shù)組a用于存儲(chǔ)產(chǎn)生的10個(gè)隨機(jī)整數(shù),變量f用于標(biāo)記隨機(jī)整數(shù)x與已生成的整數(shù)是否有重復(fù),如有則為True,沒(méi)有則為False.
為實(shí)現(xiàn)上述功能,請(qǐng)?jiān)跈M線處填入合適的代碼.
Dim a(1To 10)As Integer
Private Sub Command1_Click ( ?。?br />Dim n As Integer'n用于統(tǒng)計(jì)已經(jīng)產(chǎn)生的隨機(jī)整數(shù)個(gè)數(shù)
Dim i As Integer,j As Integer
Dim x As Integer,k As Integer
Dim f As Boolean
Randomize
n=0
List1.Clear
List2.Clear
Do While n<10
x=
f=False
For i=1To n
If
Next i
If f=False Then
n=n+1
a(n)=x
List1.AddItem Str(a(n))
End If
Loop
For i=1To 9
For j=10To i+1Step-1
If
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1To 10
List2.AddItem Str(a(i))
Next i
End Sub.組卷:11引用:1難度:0.3