2018-2019學年浙江省杭州市臨安區(qū)於潛中學高二(上)期末模擬信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一.選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.如圖是某軟件管家對系統(tǒng)工具類軟件提供的評價排名,這種評價屬于( )
組卷:14引用:2難度:0.9 -
2.某協(xié)議的主要功能是完成對數(shù)據(jù)包的確認、流量控制和網(wǎng)絡擁塞;自動檢測數(shù)據(jù)包,并提供錯誤重發(fā)的功能,該協(xié)議的簡稱是( ?。?/h2>
組卷:12引用:3難度:0.9 -
3.使用WinHex軟件查看字符“2017第一學期”的內(nèi)碼,部分界面如圖所示。下列說法正確的是( )
組卷:36引用:3難度:0.9 -
4.使用Access軟件打開數(shù)據(jù)庫,部分界面如圖所示,下列說法正確的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/202003/163/05a7952f.png" style="vertical-align:middle" />
組卷:4引用:3難度:0.7 -
5.目前很多的網(wǎng)絡電視都能實現(xiàn)視頻點播,點什么就播什么,這主要體現(xiàn)了多媒體的( )
組卷:14引用:2難度:0.9
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.編寫VB程序,實現(xiàn)如下功能:單擊“開始”按鈕Command1,文本框Text1、Text2中自動產(chǎn)生[0,99]的隨機整數(shù),用戶在文本框Text3中輸入兩數(shù)之和,單擊“檢測”按鈕Command2,在列表框List1中輸出計算結(jié)果是“正確”或“錯誤”,到此完成第1題測試。單擊“下一題”按鈕Command3,文本框Text1和Text2中重新生成隨機整數(shù),進行第2題測試……練習10題,一輪測試完成,每做對1題加10分,全部做對得100分。運行界面如圖所示,程序代碼如下:
Dim c As Integer,Dim s As Integer
Private Sub Command1_Click ( ?。?br />c=0:s=0
Randomize
List1.Clear
Text1.Text=Str(Int(Rnd ( ?。?51))
Text2.Text=Str(Int(Rnd ( ?。?51))
Command1.Enabled=False
Command3.Enabled=True
End Sub
Private Sub Command2_Click ( )
If Val(Text3.Text)=Val(Text1.Text)+Val(Text2.Text) Then
List1.AddItem“正確“
s=s+10
Else
List1.AddItem“錯誤“
End If
If c=10 Then
Command3.Enabled=False
Command1.Enabled=True
List1.AddItem“您的得分是“+
End If
End Sub
Private Sub Command3_Click ( ?。?br />代碼略'文本框Text1和Text2中重新生成數(shù)據(jù)
End Sub組卷:0引用:1難度:0.6 -
17.某倉庫物品代碼格式為“X-XXX-XXXXX-Y”,其中“X”和“Y”均為0到9之間的數(shù)字,“Y”為校驗碼.校驗碼由前面9個X計算得到,計算方法為:從左邊開始,第1個數(shù)字乘以1加上第2個數(shù)字乘以2…依此類推,直到加上第9個數(shù)字乘以9,將該結(jié)果除以10,所得余數(shù)即為校驗碼.
小吳設計一個根據(jù)校驗碼校驗物品代碼的VB程序,功能如下:在文本框Text1中輸入物品代碼,單擊“校驗”按鈕Command1,如果輸入的校驗碼與計算所得的校驗碼一致,就輸出“校驗通過”(如圖甲所示),否則輸出“校驗不通過!”(如圖乙所示).
實現(xiàn)上述功能的VB程序如下,加框處代碼有錯,請改正.
Dim s As String′用于存儲輸入的物品代碼
Dim t As String
Dim i As Integer,j As Integer
Dim sum As Integer′用于存儲計算校驗碼的累加和
Dim check-old As Integer′用于存儲輸入物品代碼中的校驗碼Y
Dim check-new As Integer′用于存儲按照前面9個數(shù)字X計算所得的新校驗碼
Dim a(1To 10)As Integer
Private Sub Command1-Click ( ?。?br />′從物品代碼中取出9個數(shù)字X依次存儲到a(1)到a(9)中,取出校驗碼Y存儲到a(10)中
s=(1)
j=0
For i=1To 13
t=Mid(s,i,1)
If (t>=”0”) And(t<=”9”) Then
j=j+1
a(j)=Val(t)
End If
Next i
′計算新的校驗碼并和輸入的校驗碼進行比較
sum=0
For i=1To 9
sum=sum+(2)
Next i
check-new=(3)
check-old=a(10)
If check-old=check-new Then
Label1.Caption=”校驗通過.”
Else
Label1.Caption=”校驗不通過!”
End If
End Sub.組卷:22引用:3難度:0.5