2017-2018學(xué)年浙江省“超級(jí)全能生”高三(下)聯(lián)考信息技術(shù)試卷(3月份)
發(fā)布:2024/11/7 10:0:3
一、選擇題本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.下列關(guān)于信息和信息技術(shù)的說法正確的是( )
組卷:2引用:1難度:0.6 -
2.下列選項(xiàng)中,不屬于人工智能技術(shù)的是( ?。?/h2>
組卷:2引用:1難度:0.6 -
3.可以解釋執(zhí)行下面代碼的軟件是( )
<html>
<head>
<meta http-equiv=“Content-type“content=“text/html;charsel=gb2312“>
<title>無標(biāo)題文檔(/title)
<style type=“text/css“>
<1-
body{
margin-top:0px;
background-image:url( ?。?br />)組卷:6引用:1難度:0.5 -
4.關(guān)于下面這個(gè)Access數(shù)據(jù)表,以下說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201710/220/7956e8e7.png" style="vertical-align:middle" />
組卷:3引用:2難度:0.7 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量x,y的值分別變?yōu)椋ā 。?/h2>
組卷:0引用:1難度:0.5
二、非選擇題(本大題共5小題,其中第13小題↓分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分
-
16.活動(dòng)課上,n個(gè)學(xué)生要兩兩組隊(duì)進(jìn)行拔河比賽,要求每個(gè)小組總體重不超過120kg,小林想知道最多可以組多少個(gè)隊(duì)伍,并希望得到一組可行的組隊(duì)方案。于是設(shè)計(jì)如下界面的程序,在文本框Text1中輸入n個(gè)學(xué)生的體重(數(shù)字之間用逗號(hào)隔開),單擊“隊(duì)伍”按鈕( Command1)后,標(biāo)簽( Labell)顯示最多可組隊(duì)伍數(shù)量,同時(shí)在列表框(List1)輸出方案。
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)诋嬀€處填入合適代碼。
Dim n As Integer'n用于記錄數(shù)字個(gè)數(shù)
Dm a( 1 To 50)As Integer
Private sub Cortmandl_Click( )
Dim s As String
Dim i As Integer,j As Integer,t As Integer
Dim cnt As Integer
Dim st As Integer,ed As Integer
s=Text1.Text
makedata(s)'將輸入的體重分別存入數(shù)組a中,過程代碼略!
For i=I To n-1
For j=n To i+1 Step-1
If(1)Then'從大到小排序
1=a(j):a (j)=a(j-1):a(j-1)=t
End If
Next j
Next i
'下列程序段實(shí)現(xiàn)計(jì)算最多可組隊(duì)伍
cnt=0
st=1:ed=n
Do While st<ed
If a(st)+a(ed)<=120 Then
List1.Additem str(a(st))+″和″+Str(a(ed))+″組隊(duì)″
cnt=cnt+1
st=st+1
(2)
Else
st=st+1
End If
Loop
Labell.Caption=″最多可以組″+Str(cnt)+″組隊(duì)伍″
End sub組卷:0引用:1難度:0.5 -
17.設(shè)計(jì)VB應(yīng)用程序,輸入一段英文,統(tǒng)計(jì)單詞個(gè)數(shù)和單詞平均長(zhǎng)度,該段英文中可能出現(xiàn)符包括大小寫英文字母、數(shù)字、特殊字符,標(biāo)點(diǎn)符號(hào)(逗號(hào),句號(hào),空格,感嘆號(hào),問號(hào),分號(hào),雙引號(hào)),大小寫字母和數(shù)字算單詞組成部分,其他都不計(jì)算,程序界面如下。
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)邳c(diǎn)線處填入合適代碼。
Private Sub Command Click( ?。?br />Dim s As String
Dim n As Integer
Dim cnt As Integer,i As Integer
Dim num As Single,ch As Single,ave As single
s=Text1.Text
n=Len(s)
num=0
ch=0
cnt=0
ave=0
For i=1 To n
c=Mid(s,i,1)
If(1)Then
cnt=cnt+1
Elself c>=″A″And e<=″Z″Then
cnt=cnt+1
EiseIf c>=″0″And c<=″9″Then
cnt=cnt+l
Else
If cnt>0 Then
num=num+1
ch=ch+cnt
(2)
End If
End If
Next i
If cnt>1 Then
nun=nun+1
ch=ch+cnt
End If
Label1.Caption=″總共有″+Str(num)+″個(gè)單詞,平均長(zhǎng)度為″+Str(ave)
End Sub組卷:0引用:1難度:0.5