2016-2017學(xué)年浙江省“超級全能生”高三(上)聯(lián)考信息技術(shù)試卷(12月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.下列屬于信息的是( )
組卷:6引用:1難度:0.9 -
2.小明家電信寬帶網(wǎng)速由6Mb/s升級為20Mb/s,下載速度明顯提升,現(xiàn)下載一個100Mb大小的壓縮文件,理論上最快多少時間可以下載完成( ?。?/h2>
組卷:4引用:1難度:0.9 -
3.以下屬于人工智能范疇的有( ?。?br />①微信語音輸入將語音轉(zhuǎn)化成文字
②使用PS CS5.0“內(nèi)容識別”填充
③使用“谷歌在線翻譯”翻譯英文文章
④答卷掃描到電腦后,教師在電腦瀏覽器上進行網(wǎng)上評閱試卷
⑤兩位同學(xué)在家中借助互聯(lián)網(wǎng)聯(lián)機一起玩象棋對戰(zhàn).組卷:5引用:1難度:0.9 -
4.關(guān)于Access數(shù)據(jù)表,下列說法正確的是( )
組卷:4引用:1難度:0.7 -
5.下列循環(huán)語句中,s=s+1循環(huán)執(zhí)行的次數(shù)為( ?。?br />For i=0 To 10
For j=0 To-6 step-2
s=s+1
Next j
Next i.組卷:6引用:1難度:0.5
二、解答題(共5小題,滿分26分)
-
16.編寫“尋找平方根”程序,實現(xiàn)的功能為:計算[32000,40000]范圍內(nèi)數(shù)的平方數(shù),若該平方數(shù)十個數(shù)位上的數(shù)字正好是0123456789的不同組合,不重復(fù)、不缺失(每個數(shù)字均只能出現(xiàn)一次),則在列表List1中輸出,程序運行時,界面如圖所示.實現(xiàn)上述功能的VB程序如下,但加框處代碼有誤,請改正.把改正后的代碼填在題后的橫線上.
Private Sub Command1_Click( ?。?br /> Dim a (0 To 9)As Integer
Dim i As Long,n As Long
Dim j As Integer,x As Integer,y As Integer
List1.Clear
For i=32000 To 40000
n=i*2'(1)
For j=0 To 9
a(j)=0
Next j
Do While n<>0
x=n Mod 10
a(x)=a(x)+1'(2)
n=n\10
Loop
y=0
For j=0 To 9
y=y+a(j)
Next j
If y=10 Then List1.AddItem Str(i)+“^2=“+Str(i^2)
Next i
End Sub
(1)應(yīng)改為
(2)應(yīng)改為組卷:2引用:1難度:0.1 -
17.小張同學(xué)方便大家進行選考科目的選擇,將全班同學(xué)七門學(xué)科的原始成績折算成對應(yīng)的標準分(避免了不同學(xué)科試卷難度各不相同的問題,標準分越高說明該學(xué)科成績越優(yōu)秀),存放于7xuan3.a(chǎn)ccdb數(shù)據(jù)庫的“bzf”表中,部分界面截圖如圖1所示.并且編寫了“選考科目推薦”程序,實現(xiàn)如下功能:在文本框Text1中輸入學(xué)生的學(xué)號,單擊“分析”按鈕Command1,在文本框Text2中顯示該學(xué)號及所推薦的三門學(xué)科.程序運行界面如圖2所示.
Private Sub Command1_Click( )
Dim a (1 To 7)As Single
Dim b (1 To 7)As Integer
Dim n As Integer,s As String,c As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn,ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=“& App.Path &“\7xuan3.a(chǎn)ccdb“
conn.Open
rs.ActiveConnection=conn
n=Val (Text1.Text)
rs.Open“select*from bzf where 學(xué)號=“& n
For i=1 To 7
a(i)=
b(i)=i
Next i
rs.Close
conn.Close
For i=1 To 3
k=i
For j=i+1 To 7
If a(j)>a(k) Then k=j
Next j
If k<>i Then
t=a(i):a(i)=a(k):a(k)=t
t=b(i):b(i)=b(k):b(k)=t
End If
Next i
s=“物理化學(xué)生物政治歷史地理技術(shù)“
c=Text1.Text+““
For i=1 To 3
c=c+
Next i
Text2.Text=c
End Sub
(1)若在文本框Text1中輸入3,單擊“分析”按鈕Command1后,則文本框Text2中顯示的內(nèi)容為
(2)畫線①處應(yīng)填的代碼為
(3)畫線②處應(yīng)填的代碼為組卷:1引用:1難度:0.1