2020年浙江省普通高校招生選考信息技術模擬試卷（一）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息和信息技術的說法，不正確的是（ ?。?/h2>
組卷：1引用：1難度：0.4 -
2．下列有關網頁與瀏覽器的說法，不正確的是（ ?。?/h2>
組卷：1引用：1難度：0.6 -
3．使用Word軟件編輯某文檔，部分界面如圖所示：下列說法正確的是（ ?。?br />
組卷：2引用：1難度：0.5 -
4．某Access數(shù)據(jù)表的數(shù)據(jù)表視圖與設計視圖部分截圖如圖所示，下列描述正確的是（ ）
組卷：1引用：1難度：0.6 -
5．使用GoldWave軟件打開某音頻文件，其部分編輯界面如圖所示。
下列說法正確的是（ ）組卷：1引用：1難度：0.2
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小林編寫了一個用于1至9之間整數(shù)加減乘除運算的小程序，具體功能如下：在文本框Text1中輸入一個算術表達式（該表達式僅包含1至9之間的整數(shù)和加減乘除運算符，其中最后一個運算符肯定是乘或除，且乘或除運算符的前和后一個運算符僅可能為加減或沒有），單擊“計算”按鈕Command1，將運算結果顯示在Label2中。程序運行界面如圖所示，實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）將窗體標題更改為“簡單算術運算”，應修改窗體的屬性的屬性值。
（2）請在橫線處填入合適的代碼。
（3）加框處的代碼有錯誤，請改正。
PrivateSubCommandl_Click （ ?。?br />DimsAsString,cAsString,iAsInteger
DimsumAsSingle,sumlAsSingle,sum2AsSingle,kAsInteger,jAsInteger
s=Text1．Text：sum2=0：k=1
Fori=IToLen（s）
c=
Ifc=“*”O(jiān)rc=“/”Then
Ifc=“*”Then
sum=Val（Mid（s,i+1.1））*Val（Mid（s,i-1，1））
Else
sum=Val（Mid（s,i-1，1））/Val（Mid（s,i+1，1））
EndIf
j=i-2
DoWhile
c=Mid（s,j,D）
Ifc=“+”Thensuml-Val（Mid（s,j-1，1））+sum
Ifc=“-”Thensuml-Val（Mid（s,j-1，i））-sum
sum=sum1
j=j-1
Loop
Ifk=1Then
sum2=sum2+sum
Else
c=Mid（s,k,1）
Ifc=“+”Thensum2=sum2+sum
Ifc=“-”Thensum2=sum2-sum
EndIf
k=
EndIf
sum=0
Nexti
Label2．Caption=sum2
EndSub組卷：0引用：1難度：0.5 -
16．小楊同學編寫了一個VB程序用于學校里7選3選課情況統(tǒng)計。該程序主要功能有：1．點擊“生成選課組合”按鈕Commandl,生成35種選課組合；2．點擊“統(tǒng)計選課情況”按鈕Command2，統(tǒng)計出各種組合的選課人數(shù)；運行界面如圖。實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）分析程序代碼，如圖里“選課組合”序號為30的組合名稱為：。
（2）請在橫線處填入合適的代碼。請回答下列問題：
Dimzh（1To16）AsString,zrsAsInteger
Dimxk（1To1000）AsString'存放同學的選課科目組合，已知學生人數(shù)少于1000人
Dimzh2（1To35）AsString'存放35種選課科目組合
Dimrstj（1To35）AsInteger'存放各種選課組合選課人數(shù)
PrivateSubForm_Load （ ）
‘本過程從數(shù)據(jù)庫中讀取學生的選課情況數(shù)據(jù)，存放在數(shù)組xk中，學生的總人數(shù)存放在變量zrs。’代碼略
EndSub
PrivateSubCommandl_Click （ ?。?br />DimiAsInteger,jAsInteger,mAsInteger,nAsInteger,kAsInteger
Dimkm（1To7）AsString
Listl.Clear
List1．AddIton“序號”+“”+“組合名稱”
km（1）=“物”：km（2）=“化”：km（3）=“生”km（4）=“政”
km（5）=“史”km（6）=“地”：km（7）=“技”
m=1
Fori=1To5
Fork=i+1To6
zh（m）=km（i）+km（k）
m=m+1
Nextk
Nexti
j=3：n=1：y=j
Fori=1Tom
Fork=yTo7
zh2（n）=
Ifn＜=9Then
Listl.AddItemn&″″&″″&zh2（n）
Else
Listl.AddItemn&″″&zh2（n）
EndIf
n=n+1
Nextk
y=y+1
Ify=8Then
j=：y=j
EndIf
Nexti
Endsub
PrivateSubCommand2_Click （ ?。?br />DimiAsInteger
List2．Clear
List2，Additon″組合名稱″+″″+″選課人數(shù)″
Fori=1To35
rstj（i）=
List2AddItemzh2（i）+““+Str（rstj（i））
Nexti
EndSub
Functiontj（zhmcAsString）AsInteger'統(tǒng)計某種選課組合的選課人數(shù)
DimiAsInteger,rsAsInteger
rs=0
Fori=ITozrs
Ifzhmc=xk（i）Then
rs=rs+1
EndIf
Nexti
tj=rs
EndFunction組卷：0引用：1難度：0.6