2017年浙江省普通高校招生信息技術(shù)仿真試卷(選考)(2)(11月份)
發(fā)布:2024/10/29 11:30:5
一、選擇題(本題共有12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求,不選、多選、錯(cuò)選均不得分)
-
1.三國(guó)赤壁之戰(zhàn)時(shí)黃蓋獻(xiàn)上詐降書,騙得曹操信任后防火燒船,這實(shí)例主要體現(xiàn)了信息的什么特征( ?。?/h2>
組卷:14引用:3難度:0.9 -
2.亞馬遜最近推出了“Amazon Go”免排隊(duì)超市.在該超市中顧客拿了商品就可以走,無需排隊(duì),付錢系統(tǒng)會(huì)自動(dòng)結(jié)算.則下列哪個(gè)應(yīng)用不是人工智能技術(shù)( ?。?/h2>
組卷:9引用:5難度:0.9 -
3.在Word的編輯窗口出現(xiàn)如下圖所示的樣式,則說明Word開啟了( )
組卷:6引用:2難度:0.9 -
4.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量a和b的值分別為( )
組卷:7引用:4難度:0.7 -
5.有一Access數(shù)據(jù)表,其設(shè)計(jì)視圖如圖a所示,數(shù)據(jù)表如圖b所示,下列說法正確的是( )
組卷:8引用:1難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.數(shù)據(jù)插入.用VB設(shè)計(jì)程序,主要功能如下:隨機(jī)產(chǎn)生15個(gè)200以內(nèi)的正整數(shù)數(shù)列,按升序排序后顯示在List1列表框中,在文本框Text1中輸入1個(gè)200以內(nèi)的正整數(shù),單擊“插入”按鈕Command1后將其插入到數(shù)列中,并保持?jǐn)?shù)列仍然有序,顯示在列表List2中,同時(shí)在標(biāo)簽Label4中顯示插入的位置,程序界面如圖所示.
實(shí)現(xiàn)上述功能的VB程序代碼如下,請(qǐng)?jiān)跈M線處填上合適的代碼.
Dim a( 1To 20)As Integer
Private Sub Command1_Click ( ?。?br />Dim key As Integer
key=①
i=1
Do While key>a ( i ) And ( i<=1 5 )
i=i+1
Loop
Label4.Caption=“該數(shù)插入的位置是:”+Str ( i )
If i=16 Then
a ( i )=key
Else
For j=16 To i+1Step-1
②
Next j
a ( i )=key
End If
List2.Clear
For i=1To 16
List2.AddItem a( i)
Next i
End Sub
Private Sub Form_Load ( ?。?br />'隨機(jī)生成15個(gè)200以內(nèi)的正整數(shù)
Randomize
For i=1To 15
a ( i )=Int(Rnd*200)+1
Next i
'將15個(gè)數(shù)從小到大排序
For i=1To 14
k=i
For j=i+1To 15
If a ( k )>a ( j ) Then k=j
Next j
If i<>k Then
t=a(i);a( i)=a ( k ):a ( k )
End If
Next i
'將排好序的數(shù)輸出在列表框Listl中
Listl.Clear
For i=1To 15
Listl.AddItem str ( a ( i ) )
Next i
End Sub
程序中①橫線處應(yīng)填入組卷:5引用:1難度:0.1 -
17.如果一個(gè)自然數(shù)恰好等于它的各因數(shù)之和,則稱該數(shù)為完全數(shù).這里的因素都是除去本身的正因數(shù).例如:第一個(gè)完全數(shù)是6,它有因數(shù)1、2、3、6,除去它本身6外,其余3個(gè)數(shù)相加,1+2+3=6.尋找完全數(shù)并不是容易的事.經(jīng)過不少數(shù)學(xué)家研究,到2013年2月6日為止,一共找到了48個(gè)完全數(shù).
小明設(shè)計(jì)了一個(gè)VB程序,用于求解10000以內(nèi)的所有完全數(shù).點(diǎn)擊按鈕Command1,標(biāo)簽Label1顯示完全數(shù)的個(gè)數(shù),并在列表框中顯示10000以內(nèi)所有的完全數(shù).
程序運(yùn)行效果如圖所示
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適代碼.
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,c As Integer,s As Integer
c=0‘用于存儲(chǔ)完全數(shù)的個(gè)數(shù)
For i=1To 10000
s=0‘用于存儲(chǔ)各因數(shù)之和
For j=1To i-1
If fac(i,j) Then
Next j
If i=s Then
Listl.AddIltem Str( i)
End If
Next i
Label.Caption=“10000 以內(nèi)共有”+Str(c)+“個(gè)完全數(shù)!”
End Sub
Function fac(x As Integer,y As Integer) As Boolean
'如果y是x的因數(shù)返回True,否則返回False
If
fac=True
Else
fac=False
End If
End Function.組卷:5引用:1難度:0.1