2016-2017學(xué)年浙江省稽陽聯(lián)誼學(xué)校高三（上）月考信息技術(shù)試卷（10月份）
發(fā)布：2024/12/11 1:30:2
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．下列有關(guān)信息的說法，不正確的是（ ?。?/h2>
組卷：10引用：3難度：0.9 -
2．以下做法中，有助于提高信息安全等級(jí)的措施是（ ?。?/h2>
組卷：14引用：3難度：0.9 -
3．下列應(yīng)用中，肯定沒有使用到語音識(shí)別技術(shù)的是（ ?。?/h2>
組卷：3引用：1難度：0.9 -
4．下列關(guān)于Access數(shù)據(jù)表的敘述中，錯(cuò)誤的是（ ?。?/h2>
組卷：3引用：1難度：0.7 -
5．某算法流程圖如圖所示，執(zhí)行這部分流程后，變量s的值及x←x+1執(zhí)行的次數(shù)分別為（ ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201710/7/ce7ea1d3.png" style="vertical-align:middle" />
組卷：4引用：1難度：0.7
二、解答題（共5小題，滿分26分）
-
16．數(shù)組a中有50個(gè)正整數(shù)，已按升序排列．在文本框Text1中輸入一個(gè)正整數(shù)m,尋找數(shù)組a中是否有一對(duì)數(shù)的和等于給定的數(shù)m.若存在和為m的數(shù)對(duì)，輸出該數(shù)對(duì)包含的兩個(gè)整數(shù)，小的在前，大的在后．若有多個(gè)數(shù)對(duì)滿足條件，則輸出最先找到的數(shù)對(duì)．若找不到符合要求的數(shù)對(duì)，則輸出“沒有符合條件的數(shù)對(duì)”．小吳為此編寫了VB程序，代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim a（1 To 50）As Integer
Const n=50
Private Sub Command1_Click（ ?。?br /> Dim m As Integer,left As Integer,right As Interger,mid As Integer
Dim flag As Boolean
flag=False：m=Val（Text1．Text）
For i=1 To n-1
（1）
right=n
Do While
（2）
mid=（left+right）\2
If a（i）+a（mid）＜m Then
left=mid+1
ElseIf a（i）+a（mid）＞m Then
right=mid-1
Else
List1．AddItem Str（a（i）） &““&Str（a（mid））
flag=True
End If
Loop
Next i
If Not flag Then List1．AddItem“沒有符合條件的數(shù)對(duì)“
End Sub.組卷：0引用：1難度：0.3 -
17．正整數(shù)n的階乘，在數(shù)學(xué)中定義為：n!=1×2×3×…×n,如：3!=1×2×3，現(xiàn)在輸入一個(gè)正整數(shù)n（n＜=30），計(jì)算出1～n中的每一個(gè)整數(shù)的階乘的精確結(jié)果．小北按照上述要求，設(shè)計(jì)一個(gè)求前n個(gè)正整數(shù)的階乘問題的VB程序，功能如下：在程序中他采用加法代替乘法的方法來計(jì)算階乘，如：3!=2!×3=2!+2!+2!．程序啟動(dòng)后在文本框Text1中輸入n的值，單擊“計(jì)算”按鈕Command1，在列表框List1中輸出前n個(gè)數(shù)的階乘．當(dāng)n=10時(shí)，程序運(yùn)行效果如圖所示：
實(shí)現(xiàn)上述功能的VB程序如下請(qǐng)?jiān)跈M線處填入合適的代碼．
Const maxn=80
Dim i As Integer,j As Integer,k As Integer,n As Interger,r As Interger
Dim a（1 To maxn）As Integer,b（1 To maxn）As Integer,s As String
Private Sub Form_Load（ ?。?br /> List1．Clear
For i=1 To maxn
a（i）=0
Next i
End Sub
Sub array_sum（j As Integer）'該過程用于計(jì)算 j!，并將j!的精確值按位保存在數(shù)組a中
For k=1 To j-1
For i=1 To maxn
r=
If r＞=10 Then=a（i+1）+1
a（i）=r Mod 10
Next i
Next k
End Sub
Private Sub Command1_Click（ ?。?br /> n=Val（Text1．Text）
a（1）=1
List1．AddItem“1!=“&Str（a（1））
For j=2 To n
For i=1 To maxn
b（i）=a（i）
Next i
s=““
Call array_sum（j）'該語句用于調(diào)用自定義過程 array_sum
s=s+Str（j）+“!=“
k=maxn
Do While a（k）=0
Loop
For i=k To 1 step-1
s=s+Str（a（i））
Next i
List1．AddItem s
Next j
End Sub.組卷：2引用：1難度：0.1