2015年浙江省溫州市高考信息技術(shù)模擬試卷(選修)
發(fā)布:2024/4/20 14:35:0
一、選擇題在每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,請(qǐng)將其代碼填寫在答題卡上相應(yīng)的位置.錯(cuò)選、多選或未選均無(wú)分.
-
1.下面關(guān)于算法的描述,正確的是( ?。?/h2>
組卷:15引用:6難度:0.9 -
2.能被對(duì)象所識(shí)別的動(dòng)作是( ?。?/h2>
組卷:5引用:2難度:0.9 -
3.在繞地球做勻速圓周運(yùn)動(dòng)的宇宙飛船中,航天員繞地球做勻速圓周運(yùn)動(dòng)的向心力計(jì)算公式為:F=
,若用VB表達(dá)式來(lái)表示,正確的是( ?。?/h2>m(g-v2r)組卷:6引用:3難度:0.9 -
4.有如下VB程序段:s=0
For i=1to 21Step 2
s=s+i
Next i
該程序段運(yùn)行后,共執(zhí)行的循環(huán)次數(shù)是( )組卷:6引用:2難度:0.7 -
5.一次運(yùn)動(dòng)會(huì)上,某組6位選手的百米成績(jī)(單位:秒)分別是“14.1、12.3、11.2、14.8、13.9、11.0”,若使用選擇排序法將該組的成績(jī)按第一名、第二名、第三名…的順序排序,則第一次交換數(shù)據(jù)后的順序是( ?。?/h2>
組卷:12引用:3難度:0.9 -
6.下列可以作為Visual Basic變量名的是( ?。?/h2>
組卷:5引用:2難度:0.7
二、綜合題
-
17.會(huì)員積分的計(jì)算.某超市會(huì)根據(jù)會(huì)員顧客的一次性消費(fèi)總額給予一定的積分,會(huì)員可在年終依據(jù)積分換得相應(yīng)的商品.每次消費(fèi)時(shí),計(jì)算機(jī)會(huì)自動(dòng)累加所購(gòu)商品的總價(jià)并折算成積分.
超市折算積分的規(guī)則:如果總消費(fèi)額不足150元,就給1分積分;如果總消費(fèi)額達(dá)150元及以上,那么每40元消費(fèi)可以獲得0.5積分.如,某人消費(fèi)總額為150元,150/40=3.75,根據(jù)規(guī)則,積分為3*0.5=1.5分.
下列程序(流程圖如圖所示)可根據(jù)各種已購(gòu)買商品的費(fèi)用(已經(jīng)保存在數(shù)組a中),計(jì)算總消費(fèi)金額(total)并折算成積分(ans),最后輸出總消費(fèi)額(顯示在標(biāo)簽Label2中)以及所獲得的積分總值(顯示在標(biāo)簽Label4中).則程序中橫線處應(yīng)分別填入:
①
②
③
Const n=10
Dim a(n) As Single
Dim i As Integer
Dim ans As Single,total As Single
Private Sub Command1_Click
total=0:ans=0
For i=1To n
①____
Next i
If total<150Then
②____
Else
ans=Fix(total/40)/2
End If
Label2.Caption=Str(total)
③____
=Str(ans)
End Sub.組卷:6引用:1難度:0.1 -
18.如圖1所示程序的功能是把輸入的自然數(shù)分解為三個(gè)互不相同的質(zhì)數(shù)(三個(gè)質(zhì)數(shù)的和等于輸入的自然數(shù)),并把分解產(chǎn)生的質(zhì)數(shù)按升序順序顯示在左邊的列表框中,其中“開(kāi)始處理”按鈕的名稱是“Command1”.例如輸入20,單擊“開(kāi)始處理”按鈕后,則在列表框中會(huì)顯示下列數(shù)據(jù):
2 5 13
2 7 11
(1)程序中函數(shù)f(x)的功能是判斷x是否為質(zhì)數(shù),如果是質(zhì)數(shù)則返回值為True,否則返回False.該函數(shù)的算法流程圖如圖2所示,根據(jù)流程圖,完善程序中Function f(x)部分.
(2)主程序流程圖如圖3所示.其中n為輸入的自然數(shù),a1、a2、a3為分解出的三個(gè)正整數(shù),t為a1、a2、a3是否同時(shí)為素?cái)?shù)且三數(shù)相加是否為n的邏輯值.
則主程序流程圖中①處應(yīng)填寫的內(nèi)容是:
(3)在主程序Private Sub Command1_Click ( ?。┲?,主要采用的算法是:
Dim n As Integer,a1As Integer,a2As Integer,a3As Integer
Dim t As Boolean
Function f(x) As Boolean
End Function
Private Sub Command1_Click
n=Val(Text1.Text)
For a1=2To n
For a2=a1+1To n
For a3=a2+1To n
t=(a1+a2+a3=n) And f(a1)And f(a2)And f(a3)
If t Then
List1.AddItem (Str(a1)+““+Str(a2)+““+Str(a3))
End If
Next a3
Next a2
Next a1
End Sub.組卷:6引用:1難度:0.1