2015-2016學年浙江省臺州市書生中學高二（下）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．今天是英語老師的生日，但她已回英國了，李明隨即制作了一張賀卡，并通過電子郵件發給她．如果英語老師的電腦關機一個星期，那么電子郵件將（ ）
組卷：8引用：3難度：0.9 -
2．漢字“學”的區位碼為4907（十進制），如果用2個字節的二進制可以表示為00110001 00000111．某漢字的處理碼是將區位碼的區號49和位號07分別加上160（十進制） （ 即二進制10100000），則漢字“學”的處理碼用十六進制表示為（ ）
組卷：4引用：4難度：0.9 -
3．贈花卿詩句在Word軟件中修訂結果如圖所示，則未修改前詩句為（ ）
組卷：3引用：1難度：0.9 -
4．某Access數據表打開后如圖所示：下列描述中正確的是（ ）
組卷：4引用：2難度：0.7 -
5．某同學利用視頻處理軟件制作了一段視頻，未壓縮前該視頻信息的基本屬性如下：PAL制，分辨率為640×480，幀頻為25fps,色深為24位，則以下理解正確的是（ ）
組卷：4引用：3難度：0.9 -
6．小頂使用GoldWave軟件處理名為a.wav的雙聲道音頻，他刪除了右聲道中的聲音，并按原采樣頻率、量化位數和聲道數以a1．wav為文件名保存．試問a1．wav與a.wav相比，存儲容量（ ）
組卷：8引用：4難度：0.9
二、非選擇題（本大題共6小題，其中第13小題4分，第14小題3分，第15小題4分，第16小題5分，第17小題6分，第18小題4分，共26分）
-
17．小明設計了一個VB程序解決如下數學趣味問題：已知三個正整數a,b,c.現有一個大于1的整數x,將其作為除數分別除a,b,c,得到的余數相同．求滿足上述條件的x的最小值是多少？程序界面如圖所示，在文本框text1中輸入a的值，在文本框text2中輸入b的值，在文本框text3中輸入c的值，點擊“求解”按鈕，在2到三個數中的最小值之間，逐個檢測是否存在符合條件的值．如果存在符合條件的值，則在文本框text4中輸出結果，如果不存在，則在文本框text4中輸出“找不到符合條件的值”．實現上述功能的程序如下，請在橫線處填入合適的代碼．
Private Sub Command1_Click （ ）
Dim a As Long,b As Long,c As Long
Dim d As Long,min As Long
'處理3個輸入數據，并求出3個數的最小值
a=Val（Text1．Text）
b=Val（Text2．Text）
c=Val（Text3．Text）
min=①
'在2到三個數中的最小值之間，逐個檢測
是否存在符合條件的值
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
'求三個數的最小值
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個參數除第4參數的余數是否都相等
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
程序橫線處應填入的代碼是：
①
②
③．組卷：2引用：1難度：0.1 -
18．用VB編寫一個字符串分行程序，功能如下：單擊“分行”按鈕Command1將文本框Text1中的英文文本在列表框List1中分行顯示（分行時單詞不得跨行，每行字符盡可能多但不超過40個）并在標簽Label1中輸出總行數，運行效果如圖所示．分行算法如下：
（1）將文本框中的字符串保存到變量s中；
（2）當s中字符個數超過40時，循環執行下列①、②、③步，否則跳轉到（3）：
①如果第41個字符不是英文字母，則分行位置p=40；否則，向左逐個查找，直至找到第一個非英文字母，將其位置作為分行位置p；
②截取s的前p個字符，作為新增行顯示在列表框List1中，同時總行數加1；
③將s中未分行部分重新賦值給變量s.
（3）將s作為新增行顯示在列表框List1中，同時總行數加1．
實現上述功能的VB程序如下，請在空格處填入合適代碼．
Private Sub Commandl_Click （ ）
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個字符開始向左找到第1個非英文字母，并將其位置值賦給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