2017年浙江省普通高校招生信息技術仿真試卷(選考)(1)(11月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本題共有12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求,不選、多選、錯選均不得分)
-
1.某同學將《如何學習高中英語》分享在朋友圈供大家學習參考,這主要體現了信息具有( )
組卷:11難度:0.9 -
2.某同學使用某軟件打開浙江教育考試網查詢學業(yè)水平考試成績時,其界面如圖所示:
他正在使用的軟件可能是( ?。?/h2>組卷:10引用:1難度:0.9 -
3.小華在淘寶上看到了某賣家的信用評價等信息,其部分頁面如圖所示,圖中好評率為“99.51%”代表的含義是屬于信息評價中的( ?。?br />
組卷:5引用:1難度:0.9 -
4.在用光學字符識別(OCR)軟件識別文字時,能被直接識別的源文件有( )
組卷:4難度:0.7 -
5.某學生入學成績信息表如下:
若用Access數據表來存儲學生信息,下列部分字段設計不合理的是( ?。?/h2>組卷:5引用:2難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.現有n根棍子,第i根棍子的長度為ai.想要從中選出三根棍子組成周長盡可能長的三角形,輸出最大的周長;若無法組成三角形,則輸出0.如當n=5,a={2,3,4,5,10}時,輸出12,即選擇了3、4、5.當n=4,a={4,5,10,20}時,無法組成三角形,輸出0.加框處代碼有誤,請改正.
Dim a( 1To 1000)As Integer
Dim n As Integer
Private Sub Form_Load ( ?。?br />‘確定n的值和數組a的各個元素值,即每根棍子的長度值,代碼略
End Sub
Function max(x As Integer,y As Integer) As Integer
If x>y Then
max=x
Else
Max=y
End If
End Function
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,k As Integer
Dim ans As Integer,c As Integer,longest As Integer,rest As Integer
ans=0
‘讓i<j<k,保證棍子不會重復選中
For i=1To n
For j=i+1 To n
For k=j+1 To n
c=a(i)+a(j)+a(k)
longest=‘①
rest=c-longest‘rest保存最短的兩條邊的和
IfThen‘②
ans=max(ans,c)
End If
Next k
Next j
Next i
Print ans
End Sub.組卷:4引用:1難度:0.3 -
17.一個考古學家在尋找外星生物曾到過地球的證據.他偶然發(fā)現一面破損的墻上有一串奇怪的數字,數字長度不超過9位數,左側是完整的,而很多數字的右側部分因石頭被腐蝕而極難辨認.他發(fā)現保存完好的數都是2的冪,于是他猜測所有數都是2的冪.為了證明他的結論,他選取了一份數的清單,每個數中清晰可辨的數字個數總是嚴格小于模糊不清的數字個數.請你為這些數找出一個盡量小的2的冪,使得它左側的數字和清單吻合.
以下程序,在Text1中輸入一個清單中的數n,單擊按鈕Command1后在Label中輸出一個最小的指數x(若存在),使得2x從最高位開始的若干個數字等于n.如:輸入10,則找到最小的x=20,即220=1048576的前兩位與輸入數相同;而x=10的結果1024長度不符.如果在給定條件內找不到這樣的指數x,則輸出“No Power of 2”.
'power函數的功能與2^n一致,只不過它的返回值是String類型而不是整數型
Function power(n As Integer) As String
Dim res As Long
res=2^n
power=Trim(Str(res))‘trim ( ?。┖瘮档淖饔檬侨サ糇址笥业目崭?br />End Function
'check ( ?。┖瘮涤糜跈z測前幾位數和長度是否符合要求,符合要求返回為True
Function check(x_power As String,n As String) As Boolean
Dim length As Integer,x_power_len As Integer
length=Len(n)
x_power_len=Len( x_power)
If Mid(x_power,1,length)=n And
check=True
Else
check=False
End If
End Function
Private Sub Commandl_Click ( ?。?br />Dim n As String,i As Integer,x As String
n=Textl.Text
i=0
x=power(i)
Do While Len(x)<10And ②
i=i+1
x=power(i)
Loop
If Len(x)<10Then
Labell.Caption=“2的”& ③ &
“次方的前幾位是”& n &“,符合要求”
Else
Label1.Caption=“No Power of 2”
End If
End Sub.組卷:6引用:1難度:0.3