2015年浙江省普通高校招生選考信息技術(shù)試卷(9月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.很多用戶(hù)為手機(jī)設(shè)定了屏幕鎖,如密碼、手勢(shì)圖案、指紋等,目的是提升信息的( ?。?/h2>
組卷:10引用:7難度:0.9 -
2.某同學(xué)的電腦系統(tǒng)收到了微軟公司免費(fèi)升級(jí)Windows10系統(tǒng)的通知,其中一個(gè)界面如圖所示:
分析圖中信息可知,對(duì)于“Microsof t Edge”軟件的功能,下列軟件中與其相似的是( ?。?/h2>組卷:8引用:3難度:0.9 -
3.某用戶(hù)撰寫(xiě)電子郵件時(shí),部分界面如圖所示:
單擊“發(fā)送”按鈕,下列說(shuō)法正確的是( ?。?/h2>組卷:9引用:2難度:0.9 -
4.某單位職工基本信息表如下:
職工基本信息表
若用Access數(shù)據(jù)表來(lái)存儲(chǔ)職工信息,下列部分字段設(shè)計(jì)最合理的是( ?。?/h2>編號(hào) 姓名 性別 出生年月 基本工資 是否黨員 S1034 王力鋒 男 1965-3-23 3896.00 否 S1057 張帆 男 1972-5-8 3278.00 是 S2032 孫利群 女 1968-10-12 3628.00 否 … … … … … … 組卷:5引用:1難度:0.7 -
5.對(duì)輸入的二個(gè)整數(shù)a和b,找出其中的較大者賦給c并輸出。解決該問(wèn)題的算法流程圖如圖所示,該流程圖中虛線(xiàn)框部分的內(nèi)容可為( ?。?br />
組卷:4引用:6難度:0.9
【加試題】
-
16.編寫(xiě)VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入一個(gè)整數(shù),單擊“查找刪除”按鈕Command1,采用對(duì)分查找法在數(shù)組A中刪除該數(shù)(該數(shù)后面的數(shù)組元素都前移一位),并在標(biāo)簽Label2中顯示刪除后的結(jié)果(運(yùn)行效果如圖所示);否則,在標(biāo)簽Label2中顯示“該數(shù)沒(méi)有找到”.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Dim A(1To 10)As Integer′用于保存10個(gè)按從小到大順序排列的整數(shù)
′Form-Load事件過(guò)程產(chǎn)生10個(gè)整數(shù),按升序保存在數(shù)組A中,并在標(biāo)簽Label1中顯示
Private Sub Form-Load ( )
′代碼略
End Sub
Private Sub Command1-Click ( ?。?br />Dim I As Integer,j As Integer,m As Integer,k As Integer
Dim x As Integer,f As Boolean′變量f用于標(biāo)記是否在數(shù)組中找到x
x=Val(Text1.Text)
i=1:j=10
f=False
Do While (i<=j)And (f=False)
m=Int((i+j)/2)
If A(m)=x Then f=True
If Then i=m+1Else j=m-1′(1)
Loop
If f=True Then
For k=m To 9
′(2)
Next k
Label2.Caption=””
For k=1to 9
Label2.Caption=Label2.Caption+Str(A(k))+””
Next k
Else
Label2.Caption=”該數(shù)沒(méi)有找到”
End If
End Sub.組卷:3引用:3難度:0.1
【加試題】
-
17.用VB編寫(xiě)一個(gè)字符串分行程序,功能如下:?jiǎn)螕簟胺中小卑粹oCommand1將文本框Text1中的英文文本在列表框List1中分行顯示(分行時(shí)單詞不得跨行,每行字符盡可能多但不超過(guò)40個(gè))并在標(biāo)簽Label1中輸出總行數(shù),運(yùn)行效果如圖所示.分行算法如下:
(1)將文本框中的字符串保存到變量s中;
(2)當(dāng)s中字符個(gè)數(shù)超過(guò)40時(shí),循環(huán)執(zhí)行下列①、②、③步,否則跳轉(zhuǎn)到(3):
①如果第41個(gè)字符不是英文字母,則分行位置p=40;否則,向左逐個(gè)查找,直至找到第一個(gè)非英文字母,將其位置作為分行位置p;
②截取s的前p個(gè)字符,作為新增行顯示在列表框List1中,同時(shí)總行數(shù)加1;
③將s中未分行部分重新賦值給變量s.
(3)將s作為新增行顯示在列表框List1中,同時(shí)總行數(shù)加1.
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)诳崭裉幪钊牒线m代碼.
Private Sub Commandl_Click ( ?。?br />Dim s As String,c As String
Dim r As Integer,total As Integer,p As Integer
total=0
s=①
Do While Len(s)>40
r=41
c=Mid(s,r,1)
If Not((c>=“a“And c<=“z“) Or (c>=“A“Andc<=“Z“)) Then
p=40
Else
’從第41個(gè)字符開(kāi)始向左找到第1個(gè)非英文字母,并將其位置值賦給p
Do While (c>=“a“And c<=“z“) Or (c>=“A“
And c<=“Z“)
r=②
c=Mid(s,r,1)
Loop
p=r
End If
List1.Addltem Mid(s,1,p)
total=total+1
s=③
Loop
List1.AddItem s
total=total+1
Labell.Caption=“共“+Str(total)+“行“
End Sub.組卷:8引用:3難度:0.1