2019年4月浙江省普通高中學(xué)考選考信息技術(shù)模擬試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分.)
-
1.下列關(guān)于信息與信息安全的說法正確的是( ?。?/h2>
組卷:28引用:5難度:0.5 -
2.下列關(guān)于因特網(wǎng)信息表達(dá)與評價的說法正確的是( ?。?/h2>
組卷:43引用:1難度:0.4 -
3.下列關(guān)于字處理的相關(guān)說法正確的是( )
組卷:33引用:1難度:0.5 -
4.某商場將采用“會員管理系統(tǒng)”管理客戶的信息,會員信息表如下
會員編號 姓名 積分 性別 余額 出生日期 V101 張小明 461 男 ¥820.0 1999-12-21 P103 李小紅 5000 女 ¥786.0 2000-01-24 …… …… …… …… …… …… 組卷:21引用:1難度:0.4 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程,則輸出m,n,i的值依次為( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201904/179/850543b3.png" style="vertical-align:middle" />
組卷:6引用:1難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.數(shù)組a中存儲的是一組正整數(shù),特征是:①以三個數(shù)為一組的話,每組中任意一個數(shù)都比前面一組中的任意一個數(shù)要大;②每組中三個數(shù)依次遞減;③數(shù)組中數(shù)的總個數(shù)為3的倍數(shù)。依據(jù)對分查找思想,設(shè)計一個在數(shù)組a中查找數(shù)據(jù)key的程序。實現(xiàn)該功能的VB程序如下,但加框處代碼有錯,請改正。
Private Sub Command1_Click ( ?。?br />Const n=15
Dim a(1 To n) As Integer,search As Integer,key As Integer
Dim i As Integer,j As Integer,m As Integer
'讀取一組正整數(shù),按上述規(guī)則存入數(shù)組a中,代碼略。
key=Val(Text1.Text)
i=1:j=n:search=0
Do While i<=j
m=(i+j)\2
If m Mod 3<>0 Then m='(1)把m調(diào)整到三個一組的最后一個數(shù)的位置
If key=a(m) Then
search=m:Exit Do
ElseIf key<a(m) Then
j=m-3
ElseIf Then'(2)
i=m+1
ElseIf key=a(m-2)Then
search=m-2:Exit Do
ElseIf key=a(m-1)Then
search=m-1:Exit Do
Else
search=0:Exit Do
End If
Loop
If search<>0 Then
Text2.Text=Str(search)
Else
Text2.Text=“找不到“
End IfEnd Sub組卷:5引用:1難度:0.4 -
17.小胡收集了2018屆高三學(xué)生高考成績及相關(guān)的選科情況,存入數(shù)據(jù)庫中,部分界面截圖如圖所示:
程序功能如下:
在窗體加載時,從數(shù)據(jù)庫中讀取學(xué)生總數(shù)N;讀取N名學(xué)生的信息存儲在相關(guān)數(shù)組中。N名學(xué)生的學(xué)號依次存儲在數(shù)組xh(1)~xh(n) 中;學(xué)號為i的學(xué)生的總成績存儲在數(shù)組 zf(i)中,課程選修信息存儲在xk(i)中;
點擊“統(tǒng)計”按鈕后,程序篩選出所有技術(shù)考生的相關(guān)信息,并計算該學(xué)生在所有技術(shù)考生中的排名(總分相同的,排名也相同)。
實現(xiàn)上述功能的VB程序如下,請回答下列問題:
(1)請在橫線處填入合適的代碼。
Dim xh(1 To 1000)As Integer’數(shù)據(jù)庫中讀取時第i為學(xué)生的學(xué)號存儲在xh(i)
Dim zf(1 To 1000)As Integer’學(xué)號為i的考生的總分存儲在zf(i)
Dim xk(1 To 1000)As String’學(xué)號為i的考生的選考課程信息存儲在zf(i)
’數(shù)據(jù)格式**-**-**(如:物理-化學(xué)-生物)
Dim jspm(1 To 1000)As Integer’學(xué)號為i的技術(shù)選考生的總分在所有技術(shù)考生中的
’排名存儲在數(shù)組jspm(i)
Private Sub Form_Load ( ?。?br />Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr as string,sql as string
Constr=“Provider=Microsoft.ace.OLEDB.12.0;“
Constr=constr &“Data Source=“& App.Path+“\data\stu2018.a(chǎn)ccdb“
conn.ConnectionString=constr
conn.open ( ?。?br />rs.Open“select*from 2018cj“,conn
i=0
Do While Not rs.EOF
i=i+1
xh(i)=rs(“xuehao”)
zf(rs(“xuehao”))=rs(“fenshu”)
xk(rs(“xuehao”))=rs(“xkinfo”)
Loop
N=i
End Sub
’判斷選科信息info中是否包含科目km
Function YouKM(ByVal km As String,ByVal Info As String) As Boolean
Dim km1 As String
YouKM=False
For i=1 To 3
If
YouKM=True
Exit For
End If
Next i
End Function
'為技術(shù)學(xué)科考試求名次
Private Sub Command1_Click ( ?。?br />Dim jsinfo(1 To 1000)As Integer’依次存儲每個技術(shù)選考生的學(xué)號和成績
Dim k as integer’存儲找到的技術(shù)選考學(xué)生的數(shù)量
'將所有選考“技術(shù)”的考生學(xué)號、成績依次存入數(shù)組jsinfo中
k=0
For i=1 To n
If
k=k+1
jsinfo(2*k-1)=xh(i)
jsinfo(2*k)=cj(xh(i))
End If
Next i
'學(xué)號為i的學(xué)生在技術(shù)選考生中的排名,存入jspm(i)中
For i=1 To k
mc=0
For j=1 To k
If jsinfo (2*j)>jsinfo (2*i) Then mc=mc+1
Next j
jspm(jsinfo(2*i-1))=
Next i
'輸出所有技術(shù)考試的學(xué)號、成績、技術(shù)排名信息 代碼略
End Sub組卷:6引用:1難度:0.4