2017-2018學年浙江省金華十校高二(下)期末信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共有12題,每題2分,共24分.選出各題中一個符合題意的正確選項,不選、漏選、多選、錯選均不給分)
-
1.下列說法正確的是( )
組卷:12引用:1難度:0.2 -
2.下列說法錯誤的是( ?。?/h2>
組卷:15引用:1難度:0.3 -
3.下列關于漢字識別的說法錯誤的是( ?。?/h2>
組卷:6引用:1難度:0.8 -
4.下列關于數(shù)據(jù)庫說法正確的是( ?。?/h2>
組卷:4引用:1難度:0.5 -
5.某算法的部分流程如圖所示。進入流程前b的初值為0,流程執(zhí)行后,依次輸入3,-2,1,4,則輸出的值是( ?。?/h2>
組卷:1引用:1難度:0.5
二、主觀題(本大題共有5大題,其中第13題4分,第14題5分,第15題8分,第16題3分,第17題6分,共26分.)
-
16.使用VB程序研究“回文素數(shù)在素數(shù)表中的位置”,程序運行界面如下圖所示。程序?qū)?0000以內(nèi)的全部素數(shù)按順序保存到數(shù)組a中,在文本框中輸入需要查找的回文數(shù),單擊“查找”按鈕command1,在標簽label1中顯示該回文素數(shù)在全部素數(shù)中的位置。
實現(xiàn)上述功能的程序如下,加框處的代碼有錯,請改正。
Dim a(1To 10000)As Integer
Dim n As Integer
Private Sub Form_Load ( )
‘將1000以內(nèi)的素數(shù)從小到大依次存入數(shù)組a中
‘將素數(shù)的個數(shù)存入變量n中
End Sub
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,mid As Integer
Dim key As Integer,flag As Boolean
key=Val(Text1.Text)
If key>10000Or Not hws(key) Then
MsgBox“輸入的數(shù)據(jù)不是10000以內(nèi)的回文數(shù)“
Else
i=1:j=n
flag=False
Do While
mid=(i+j)\2
If key>a(mid) Then
i=mid+1
ElseIf key<a(mid) Then
j=mid-1
Else
flag=True
End If
Loop
If Not flag Then
Label1.Caption=“該回文數(shù)不是素數(shù)“
Else
Label1.Caption=“回文素數(shù)“+Str(key)+“是第“+Str(mid)+“個素數(shù)“
End If
End If
End Sub
‘自定義函數(shù) hws(y)用于判斷y是否是回文數(shù)
Function hws(y As Integer) As Boolean
Dim x As Integer,k As Integer
x=0:k=y
hws=True
Do While k>0
k=k\10
Loop
If x<>y Then hws=False
End Function。組卷:2引用:1難度:0.5 -
17.火柴棒等式。用火柴棒可以擺出0-9的數(shù)字,擺放規(guī)則如下圖所示:
有一種火柴棒游戲,將火柴棒擺成形如“A+B=C”的火柴棒等式。用n根火柴棒擺放數(shù)學等式的規(guī)則約定如下:
(1)A、B都是不大于1000的正整數(shù),若數(shù)值非零,則最高位不能是0
(2)擺放“+”與“=”各使用兩根火柴棒
(3)A+B=C 與 B+A=C 視為相同的等式
(4)n根火柴棒必須全部用上
小明依據(jù)上述規(guī)則使用VB編寫程序,研究“使用n根火柴棒,可以擺放出哪些不同的等式”,代碼如下所示。請回答下列問題。
(1)請在橫線處填入合適的代碼。
(2)某次運行程序時,顯示的等式中包含“7+17=24”,根據(jù)程序分析,輸入的n的值為:
Dim sz(0To 9)As Integer’數(shù)組元素sz(i)用于存儲數(shù)字i所使用的火柴棒的數(shù)量
Private Sub Form_Load ( )
sz(0)=6:sz(1)=2:sz(2)=5:sz(3)=5:sz(4)=4
sz(5)=5:sz(6)=6:sz(7)=3:sz(8)=7:sz(9)=6
End Sub
‘自定義函數(shù)hcs用于求解擺放數(shù)字x需要使用的火柴棒數(shù)量
Function hcs(ByVal x As Integer) As Integer
Dim s As Integer,k as integer
s=0
Do While ①
k=x Mod 10
s=s+sz(k)
x=x\10
Loop
hcs=s+sz(x)
End Function
Private Sub Command1_Click ( ?。?br />Dim n As Integer
Dim a As Integer,b As Integer,c As Integer
n=Val(Text1.Text)
ans=0
List1.Clear
For a=0To 999
For b=②
c=a+b
If ③
List1.AddItem (Str(a)+“+“+Str(b)+“=“+Str(c))
ans=ans+1
End If
Next b
Next a
List1.AddItem (“共有“+Str(ans)+“種等式“)
End Sub組卷:5引用:1難度:0.3