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