2016-2017學年浙江省溫州市九校協作體聯考高三(上)期末信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.有很多公司在微信的服務號上提供免費的直播課程(如圖所示),小何同學將邀請卡發(fā)送給自己的同學,邀請她一起來學習關于無人機的課程。她的同學可以通過掃描二維碼進入學習的頁面。上述描述中最能體現信息的( ?。?/h2>
組卷:11難度:0.9 -
2.未來互聯網的發(fā)展需要強大的網絡支持.前不久,以中國的華為公司主導推動的PolarCode碼被國際移動通信標準化組織采納為技術方案.對5G技術的理解,你認為下列選項錯誤的是( ?。?/h2>
組卷:8引用:3難度:0.9 -
3.陳老師想對自己學生交來的小論文做修改,同時讓自己的學生清楚地知道自己修改的痕跡,最恰當的方式是( )
組卷:6引用:2難度:0.9 -
4.某Access數據表的表視圖和設計視圖分別如圖1和圖2所示,則下列描述正確的是( )
組卷:2引用:1難度:0.5 -
5.下列程序段執(zhí)行后,整型變量x的值為( ?。?br />x=2;y=2
Do While y<=4
x=x+y
y=y+1
Loop.組卷:16引用:1難度:0.7
二、解答題(共5小題,滿分26分)
-
16.【加試題】計算整數t的近似算術平方根算法如下:
xi+1=(xi+12),i=1,2,3,…txi
先取x1=1,然后根據公式計算x2,再由x2計算x3,…直到|xi-xi-1|<0.00001,則xi為解.
小李編寫了一個VB程序實現上述功能:運行程序時,在Text1中輸入一個正整數,單擊命令按鈕Command1,文本框Text2顯示該數的算術平方根.
程序代碼如下,請完成以下兩小題.
Function fun(x As Integer,x0 As Double) As Double
Dim x1 As Double
x1=(x0+x/x0)/2
If Abs(x1-x0)<0.00001 Then
fun=x1
Else
fun=
EndIf
End Function
Private Sub Command1_Click( ?。?br /> Dim t As Integer
Dim k As Double
t=Val(Text1.Text)
k=fun(t,1)
k=
Text2.Text=Str(k)
End Sub
(1)題中函數fun主要采用的算法思想是
(2)程序中①橫線處應填寫的代碼是
程序中②橫線處應填寫的代碼是組卷:4引用:2難度:0.1 -
17.【加試題】小李同學碰到了一個數學問題:400個同學按順序進行編號后圍成一個大圈,按1至2報數(從1號位置開始),報到2的同學出列,以此一直循環(huán)報數下去,問最后剩下的那位同學的編號是幾號?
例如以6個同學編號為例,按1至2報數(從1號位置開始)依次出列的編號次序為2-4-6-3-1-5,那么最后剩下的就是編號為5的同學.
為了解決這個問題,小李用VB編寫了如下程序嘗試解決,其中列表List1顯示出列的順序編號,文本框Text1中顯示最后留下的編號,程序代碼如下(測試界面如圖).
Private Sub Command1_Click( ?。?br /> Dim s,f,t As Integer
Dim a(1 To 400)As Boolean
For i=1 To 400
a(i)=False
Next i
s=0
f=0
i=0
Do While f<399
i=i+1
If i=401 Then i=
If a(i)=False Then s=s+1
If s=2 Then
List1.AddItem Str(i)
a(i)=True
f=
EndIf
Loop
For i=1 To 400
If
Next i
End Sub
為實現程序功能,在程序橫線處填入合適的代碼.
(1)①處應填
(2)②處應填
(3)③處應填
(4)④處應填組卷:4引用:2難度:0.1