2015-2016學(xué)年浙江省臺州市書生中學(xué)高二(下)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.今天是英語老師的生日,但她已回英國了,李明隨即制作了一張賀卡,并通過電子郵件發(fā)給她.如果英語老師的電腦關(guān)機(jī)一個(gè)星期,那么電子郵件將( ?。?/h2>
組卷:8引用:3難度:0.9 -
2.漢字“學(xué)”的區(qū)位碼為4907(十進(jìn)制),如果用2個(gè)字節(jié)的二進(jìn)制可以表示為00110001 00000111.某漢字的處理碼是將區(qū)位碼的區(qū)號49和位號07分別加上160(十進(jìn)制) ( 即二進(jìn)制10100000),則漢字“學(xué)”的處理碼用十六進(jìn)制表示為( )
組卷:4引用:4難度:0.9 -
3.贈花卿詩句在Word軟件中修訂結(jié)果如圖所示,則未修改前詩句為( ?。?br />
組卷:3引用:1難度:0.9 -
4.某Access數(shù)據(jù)表打開后如圖所示:下列描述中正確的是( ?。?br />
組卷:4引用:2難度:0.7 -
5.某同學(xué)利用視頻處理軟件制作了一段視頻,未壓縮前該視頻信息的基本屬性如下:PAL制,分辨率為640×480,幀頻為25fps,色深為24位,則以下理解正確的是( )
組卷:4引用:3難度:0.9 -
6.小頂使用GoldWave軟件處理名為a.wav的雙聲道音頻,他刪除了右聲道中的聲音,并按原采樣頻率、量化位數(shù)和聲道數(shù)以a1.wav為文件名保存.試問a1.wav與a.wav相比,存儲容量( ?。?/h2>
組卷:8引用:4難度:0.9
二、非選擇題(本大題共6小題,其中第13小題4分,第14小題3分,第15小題4分,第16小題5分,第17小題6分,第18小題4分,共26分)
-
17.小明設(shè)計(jì)了一個(gè)VB程序解決如下數(shù)學(xué)趣味問題:已知三個(gè)正整數(shù)a,b,c.現(xiàn)有一個(gè)大于1的整數(shù)x,將其作為除數(shù)分別除a,b,c,得到的余數(shù)相同.求滿足上述條件的x的最小值是多少?程序界面如圖所示,在文本框text1中輸入a的值,在文本框text2中輸入b的值,在文本框text3中輸入c的值,點(diǎn)擊“求解”按鈕,在2到三個(gè)數(shù)中的最小值之間,逐個(gè)檢測是否存在符合條件的值.如果存在符合條件的值,則在文本框text4中輸出結(jié)果,如果不存在,則在文本框text4中輸出“找不到符合條件的值”.實(shí)現(xiàn)上述功能的程序如下,請?jiān)跈M線處填入合適的代碼.
Private Sub Command1_Click ( ?。?br />Dim a As Long,b As Long,c As Long
Dim d As Long,min As Long
'處理3個(gè)輸入數(shù)據(jù),并求出3個(gè)數(shù)的最小值
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
min=①
'在2到三個(gè)數(shù)中的最小值之間,逐個(gè)檢測
是否存在符合條件的值
d=2
x=0
Do While d<=min And x=0
If ISOK(a,b,c,d) Then x=d
②
Loop
If x=0Then
Text4.Text=“找不到符合條件的值“
Else
Text4.Text=Str(x)
End If
End Sub
'求三個(gè)數(shù)的最小值
Public Function GetMin(x As Long,y As Long,z As Long) As Long
If x>y Then GetMin=y Else GetMin=x
If z<GetMin Then GetMin=z
End Function
'判斷前3個(gè)參數(shù)除第4參數(shù)的余數(shù)是否都相等
Public Function ISOK(x As Long,y As Long,z As Long,cs As Long) As Boolean
③
If x Mod cs<>y Mod cs Then ISOK=False
If x Mod cs<>z Mod cs Then ISOK=False
If y Mod cs<>y Mod cs Then ISOK=False
End Function
程序橫線處應(yīng)填入的代碼是:
①
②
③組卷:2引用:1難度:0.1 -
18.用VB編寫一個(gè)字符串分行程序,功能如下:單擊“分行”按鈕Command1將文本框Text1中的英文文本在列表框List1中分行顯示(分行時(shí)單詞不得跨行,每行字符盡可能多但不超過40個(gè))并在標(biāo)簽Label1中輸出總行數(shù),運(yùn)行效果如圖所示.分行算法如下:
(1)將文本框中的字符串保存到變量s中;
(2)當(dāng)s中字符個(gè)數(shù)超過40時(shí),循環(huán)執(zhí)行下列①、②、③步,否則跳轉(zhuǎn)到(3):
①如果第41個(gè)字符不是英文字母,則分行位置p=40;否則,向左逐個(gè)查找,直至找到第一個(gè)非英文字母,將其位置作為分行位置p;
②截取s的前p個(gè)字符,作為新增行顯示在列表框List1中,同時(shí)總行數(shù)加1;
③將s中未分行部分重新賦值給變量s.
(3)將s作為新增行顯示在列表框List1中,同時(shí)總行數(shù)加1.
實(shí)現(xiàn)上述功能的VB程序如下,請?jiān)诳崭裉幪钊牒线m代碼.
Private Sub Commandl_Click ( ?。?br />Dim s As String,c As String
Dim r As Integer,total As Integer,p As Integer
total=0
s=①
Do While Len(s)>40
r=41
c=Mid(s,r,1)
If Not((c>=“a“And c<=“z“) Or (c>=“A“Andc<=“Z“)) Then
p=40
Else
’從第41個(gè)字符開始向左找到第1個(gè)非英文字母,并將其位置值賦給p
Do While (c>=“a“And c<=“z“) Or (c>=“A“
And c<=“Z“)
r=②
c=Mid(s,r,1)
Loop
p=r
End If
List1.Addltem Mid(s,1,p)
total=total+1
s=③
Loop
List1.AddItem s
total=total+1
Labell.Caption=“共“+Str(total)+“行“
End Sub.組卷:8引用:3難度:0.1