2020年浙江省普通高校招生選考信息技術(shù)模擬試卷(一)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.下列有關(guān)信息和信息技術(shù)的說法,不正確的是( ?。?/h2>
組卷:1引用:1難度:0.4 -
2.下列有關(guān)網(wǎng)頁與瀏覽器的說法,不正確的是( ?。?/h2>
組卷:1引用:1難度:0.6 -
3.使用Word軟件編輯某文檔,部分界面如圖所示:下列說法正確的是( ?。?br />
組卷:2引用:1難度:0.5 -
4.某Access數(shù)據(jù)表的數(shù)據(jù)表視圖與設(shè)計(jì)視圖部分截圖如圖所示,下列描述正確的是( ?。?br />
組卷:1引用:1難度:0.6 -
5.使用GoldWave軟件打開某音頻文件,其部分編輯界面如圖所示。
下列說法正確的是( )組卷:1引用:1難度:0.2
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.小林編寫了一個(gè)用于1至9之間整數(shù)加減乘除運(yùn)算的小程序,具體功能如下:在文本框Text1中輸入一個(gè)算術(shù)表達(dá)式(該表達(dá)式僅包含1至9之間的整數(shù)和加減乘除運(yùn)算符,其中最后一個(gè)運(yùn)算符肯定是乘或除,且乘或除運(yùn)算符的前和后一個(gè)運(yùn)算符僅可能為加減或沒有),單擊“計(jì)算”按鈕Command1,將運(yùn)算結(jié)果顯示在Label2中。程序運(yùn)行界面如圖所示,實(shí)現(xiàn)上述功能的VB程序如下,請回答下列問題:
(1)將窗體標(biāo)題更改為“簡單算術(shù)運(yùn)算”,應(yīng)修改窗體的
(2)請?jiān)跈M線處填入合適的代碼。
(3)加框處的代碼有錯(cuò)誤,請改正。
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.小楊同學(xué)編寫了一個(gè)VB程序用于學(xué)校里7選3選課情況統(tǒng)計(jì)。該程序主要功能有:1.點(diǎn)擊“生成選課組合”按鈕Commandl,生成35種選課組合;2.點(diǎn)擊“統(tǒng)計(jì)選課情況”按鈕Command2,統(tǒng)計(jì)出各種組合的選課人數(shù);運(yùn)行界面如圖。實(shí)現(xiàn)上述功能的VB程序如下,請回答下列問題:
(1)分析程序代碼,如圖里“選課組合”序號為30的組合名稱為:
(2)請?jiān)跈M線處填入合適的代碼。請回答下列問題:
Dimzh(1To16)AsString,zrsAsInteger
Dimxk(1To1000)AsString'存放同學(xué)的選課科目組合,已知學(xué)生人數(shù)少于1000人
Dimzh2(1To35)AsString'存放35種選課科目組合
Dimrstj(1To35)AsInteger'存放各種選課組合選課人數(shù)
PrivateSubForm_Load ( ?。?br />‘本過程從數(shù)據(jù)庫中讀取學(xué)生的選課情況數(shù)據(jù),存放在數(shù)組xk中,學(xué)生的總?cè)藬?shù)存放在變量zrs?!a略
EndSub
PrivateSubCommandl_Click ( )
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=
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)計(jì)某種選課組合的選課人數(shù)
DimiAsInteger,rsAsInteger
rs=0
Fori=ITozrs
Ifzhmc=xk(i)Then
rs=rs+1
EndIf
Nexti
tj=rs
EndFunction組卷:0引用:1難度:0.6