當(dāng)前位置： 2021年浙江省普通高校高考信息技術(shù)模擬試卷> 試題詳情

請(qǐng)統(tǒng)計(jì)某個(gè)給定范圍[L，R]的所有整數(shù)中，數(shù)字2出現(xiàn)的次數(shù)。比如給定范圍為[2，22]，數(shù)字2在數(shù)2中出現(xiàn)了1次，在數(shù)12中出現(xiàn)1次，在數(shù)20中出現(xiàn)1次，在數(shù)21中出現(xiàn)1次，在數(shù)22中出現(xiàn)2次，所以數(shù)字2在該范圍內(nèi)一共出現(xiàn)了6次。
小明編寫(xiě)如圖所示VB應(yīng)用程序，在文本框Text1中輸入?yún)^(qū)間左邊界，在文本框Text2中輸入?yún)^(qū)間右邊界，單擊“統(tǒng)計(jì)數(shù)字”按鈕Command1后，在標(biāo)簽框Label1中輸出給定區(qū)間內(nèi)所有整數(shù)中出現(xiàn)“2”的次數(shù)。
（1）要使程序運(yùn)行時(shí)，窗體Form1標(biāo)題顯示“統(tǒng)計(jì)數(shù)字”，則需在Form_Load事件過(guò)程中添加語(yǔ)句
B
B
（單選，填字母：A、Form1．Text=“統(tǒng)計(jì)數(shù)字“/B、Form1．Caption=“統(tǒng)計(jì)數(shù)字“/C、Form1．AddItem“統(tǒng)計(jì)數(shù)字“）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼。
Private Sub Command1_Click （　?。?br />Dim left As Integer,right As Integer,s As String
Dim i As Integer,j As Integer,k As Integer,ch As String
left=Val（Text1．Text）
right=Val（Text2．Text）
s=““
k=0
①
i=left
i=left

Do While i＜=right
s=s+Str（i）
i=i+1
Loop
For i=1To Len（s）
ch=Mid（s,i,1）
If ch=“2“Then ②
k=k+1
k=k+1

Next i
Label1．Caption=Str（left）+“到“+Str（right）+“之間出現(xiàn)2的次數(shù)為“+Str（k）
End Sub
（3）若在文本框Text1中輸入300，在Text2中輸入400，單擊“統(tǒng)計(jì)數(shù)字”按鈕后，標(biāo)簽Label1中顯示的內(nèi)容是
20
20
。

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

【答案】B；i=left；k=k+1；20

【解答】

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

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

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

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

相似題

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（　　）
   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．編寫(xiě)Python程序，產(chǎn)生一個(gè)隨機(jī)列表，分別輸出列表中的奇數(shù)和偶數(shù)，并統(tǒng)計(jì)其個(gè)數(shù)，程序如下：

（1）請(qǐng)?jiān)跈M線處填入代碼：①

；②

。
（2）加框處代碼有錯(cuò)，應(yīng)該修改為：

。
發(fā)布：2024/10/30 22:30:2組卷：2引用：4難度：0.3
解析
3．日期判斷：從文本框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 （　　）
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組卷：2引用：1難度：0.5
解析

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