當(dāng)前位置： 2022年浙江省紹興市諸暨市高考信息技術(shù)模擬試卷（5月份）> 試題詳情

自行車賽是大眾非常喜歡的一項(xiàng)運(yùn)動(dòng)，一個(gè)完整的自行車賽由若干個(gè)賽段組成。某一賽段為山路賽段，為測(cè)試該賽段的各項(xiàng)指標(biāo)，賽事組織方在賽道上每隔一段距離設(shè)置一根海拔標(biāo)志桿，兩根標(biāo)志桿之間的賽道稱為賽段的一個(gè)路段。某賽道共設(shè)置了20根標(biāo)志桿，測(cè)得每根標(biāo)志桿的海拔數(shù)據(jù)如表。

標(biāo)志桿 1 2 3 4 5 6 7 8 9 10

海拔 89 128 159 245 326 316 380 569 674 774

標(biāo)志桿 11 12 13 14 15 16 17 18 19 20

海拔 701 709 608 600 610 605 622 670 689 710

某比賽將線路平坦定義如下：線路的最高海拔和最低海拔差距小于等于10米。
爬坡點(diǎn)定義如下：連續(xù)至少三個(gè)路段海拔提升均不少于10米稱為一個(gè)爬坡點(diǎn)。為了計(jì)算某一賽段最長(zhǎng)的平坦線路的起始及結(jié)束標(biāo)志桿的位置及統(tǒng)計(jì)共有爬坡點(diǎn)個(gè)數(shù)，小李編寫了如VB程序，運(yùn)行結(jié)果如圖所示。

請(qǐng)回答下列問題：
（1）若某賽段共設(shè)有10根標(biāo)志桿，其海拔如表：

標(biāo)志桿 1 2 3 4 5 6 7 8 9 10

海拔 115 180 190 200 198 305 360 468 457 555

該賽段的爬坡點(diǎn)個(gè)數(shù)為
2
2

（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)诋嬀€處填入合適的代碼。

【考點(diǎn)】編輯事件處理過程的代碼．

【答案】2

【解答】

【點(diǎn)評(píng)】

聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。

當(dāng)前模式為游客模式，立即登錄查看試卷全部?jī)?nèi)容及下載

發(fā)布：2024/4/20 14:35:0組卷：0引用：1難度：0.3

相似題

1．日期判斷
從文本框Text1輸入一個(gè)8位數(shù)字表示的日期，其中第1到4位表示年（第1為確定不為零），第5到6位表示月，第7到8位表示日．單擊“判斷”按鈕，判斷該日期是否合法，將結(jié)果依次輸出到列表框List1．程序界面如圖所示：

提示：年份值符合下列兩種情況之一的是閏年．
1．年份是4的倍數(shù)，但不是100的倍數(shù)；
2．年份是400的倍數(shù)．
（1）觀察程序代碼，可知“判斷”按鈕的對(duì)象名為

．（單選，填字母：A．Text1/B．List1/C．Command1/D．Judge/E．判斷）
（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)跈M線處填入合適的代碼．
Private Sub Judge_Click（　?。?br />   Dim riqi As String,st As String
   Dim year As Integer,month As Integer,day As Integer
   Dim rn As Boolean,hefa As Boolean
   riqi=Text1．Text
   year=Val（Mid（riqi,1，4））
   month=Val（Mid（riqi,5，2））
   day=

'第①處
   st=Str（year）+“年“+Str（month）+“月“+Str（day）+“日“
   rn=False'用于判斷是否為閏年
   If

Then rn=True'第②處
   If year Mod 4=0 And year Mod 100＜＞0 Then rn=True
   hefa=True'用于判斷是否為合法日期
   If month=0 Or month＞12 Then hefa=False
   If day=0 Then hefa=False
   If （month=1 Or month=3 Or month=5 Or month=7 Or'與下一行語(yǔ)句同行
      month=8 Or month=10 Or month=12）And day＞31 Then hefa=False
   If （month=4 Or month=6 Or month=9 Or month=11）'與下一行語(yǔ)句同行
      And day＞30 Then hefa=False
   If

Then hefa=False
'第③處，判斷閏年2月的天數(shù)是否合法
   If month=2 And Rn=False And day＞28 Then hefa=False
   If hefa=True Then st=st+“合法日期“Else st=st+“非法日期“
   List1．AddItem st
End Sub
第①處代碼為

第②處代碼為

第③處代碼為

．
發(fā)布：2024/10/31 8:0:1組卷：4引用：1難度：0.1
解析
2．水往低處流，下雨時(shí)道路上的低洼地總會(huì)有積水?，F(xiàn)利用一組數(shù)據(jù)表示某地面的高度變化，高度值為正整數(shù)，相鄰高度用直線連接，請(qǐng)?jiān)O(shè)計(jì)程序統(tǒng)計(jì)出該地面有多少處低洼地。

（1）用計(jì)算機(jī)編程解決問題的一般過程包括：①編寫程序②抽象與建模③設(shè)計(jì)算法④調(diào)試運(yùn)行程序正確的順序應(yīng)該是

。
（2）算法實(shí)現(xiàn)中會(huì)遍歷每一個(gè)地面高度數(shù)據(jù)，合適的算法控制結(jié)構(gòu)是

。
A.順序結(jié)構(gòu)
B.分支結(jié)構(gòu)
C.循環(huán)結(jié)構(gòu)
D.樹形結(jié)構(gòu)
（3）若地面高度數(shù)據(jù)為[0，1，0，2，1，2，0，0，2，0]，則該地面有

處低洼地。
（4）實(shí)現(xiàn)上述功能的代碼如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（5）在程序代碼中，加框處代碼存在錯(cuò)誤，請(qǐng)改正。
發(fā)布：2024/10/31 20:0:1組卷：8引用：2難度：0.3
解析
3．根據(jù)程序來回答問題
sum=0
for i in range（1，10，3）：
sum+=i
print（“sum=”，sum）
（1）循環(huán)變量i的初始值為

，終止值為

，步長(zhǎng)值

。
（2）該程序段執(zhí)行后，輸出的結(jié)果為

。
（3）該程序循環(huán)語(yǔ)句sum+=i共執(zhí)行了

次。
發(fā)布：2024/11/1 19:30:1組卷：4引用：1難度：0.4
解析

把好題分享給你的好友吧~~

標(biāo)志桿	1	2	3	4	5	6	7	8	9	10
海拔	89	128	159	245	326	316	380	569	674	774
標(biāo)志桿	11	12	13	14	15	16	17	18	19	20
海拔	701	709	608	600	610	605	622	670	689	710