菁于教,優(yōu)于學(xué)
旗下產(chǎn)品
校本題庫
菁優(yōu)備課
開放平臺
菁優(yōu)測評
菁優(yōu)公式
小優(yōu)同學(xué)
菁優(yōu)App
數(shù)字備考
充值服務(wù)
試卷征集
申請校本題庫
智能組卷
錯題庫
五大核心功能
組卷功能
資源共享
在線作業(yè)
在線測評
試卷加工
游客模式
登錄
試題
試題
試卷
課件
試卷征集
加入會員
操作視頻
高中信息
小學(xué)
數(shù)學(xué)
語文
英語
奧數(shù)
科學(xué)
道德與法治
初中
數(shù)學(xué)
物理
化學(xué)
生物
地理
語文
英語
道德與法治
歷史
科學(xué)
信息技術(shù)
高中
數(shù)學(xué)
物理
化學(xué)
生物
地理
語文
英語
政治
歷史
信息
通用
中職
數(shù)學(xué)
語文
英語
推薦
章節(jié)挑題
知識點(diǎn)挑題
智能挑題
收藏挑題
試卷中心
匯編專輯
細(xì)目表組卷
組卷圈
當(dāng)前位置:
2016年10月浙江省普通高校招生選考信息技術(shù)試卷
>
試題詳情
小吳為了研究冒泡排序過程中數(shù)據(jù)的“移動”情況,編寫了一個VB程序,功能如下:在列表框list1中顯示排序前數(shù)據(jù)(存儲在數(shù)組a中),在文本框text1中輸入初始位置(即下標(biāo)值),單擊“排序”按鈕command1后,在標(biāo)簽label1中顯示指定初始位置的數(shù)據(jù)在排序過程中的位置變化情況,排序后的數(shù)據(jù)顯示在列表框list2中。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。
Dim a(1To 8)As Integer
Dim n As Integer
Private Sub Form_Load ( ?。?br />a(1)=30:a(2)=47:a(3)=30:a(4)=72
a(5)=70:a(6)=23:a(7)=99:a(8)=24
n=8
For i=1To 8
List1.AddItem a(i)
Next i
End Sub
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,k As Integer
Dim posAs Integer
Dim s As String
s=Text1.Text
pos=Val(Text1.Text)
For i=1To n-1
For j=n To i+1Step-1
If a(j)<a(j-1)Then
a(j-1)=a(j)
a(j)=k
'如果pos位置的數(shù)據(jù)參與交換,則更新pos值,記錄pos變化位置
If pos=j Then
pos=j-1
s=s+“→“+Str(pos)
pos=j
s=s+“→“+Str(pos)
End If
End If
Next j
Next i
Label1.Caption=“位置變化情況:“+s
For i=1To n
List2.AddItem Str(a(i))
Next i
End Sub。
【考點(diǎn)】
編輯事件處理過程的代碼
.
【答案】
見試題解答內(nèi)容
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
當(dāng)前模式為游客模式,
立即登錄
查看試卷全部內(nèi)容及下載
發(fā)布:2024/6/27 10:35:59
組卷:2
引用:1
難度:0.5
相似題
1.
日期判斷
從文本框Text1輸入一個8位數(shù)字表示的日期,其中第1到4位表示年(第1為確定不為零),第5到6位表示月,第7到8位表示日.單擊“判斷”按鈕,判斷該日期是否合法,將結(jié)果依次輸出到列表框List1.程序界面如圖所示:
提示:年份值符合下列兩種情況之一的是閏年.
1.年份是4的倍數(shù),但不是100的倍數(shù);
2.年份是400的倍數(shù).
(1)觀察程序代碼,可知“判斷”按鈕的對象名為
.(單選,填字母:A.Text1/B.List1/C.Command1/D.Judge/E.判斷)
(2)為實(shí)現(xiàn)上述功能,請?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'與下一行語句同行
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)'與下一行語句同行
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.
編寫Python程序,產(chǎn)生一個隨機(jī)列表,分別輸出列表中的奇數(shù)和偶數(shù),并統(tǒng)計(jì)其個數(shù),程序如下:
(1)請?jiān)跈M線處填入代碼:①
;②
。
(2)加框處代碼有錯,應(yīng)該修改為:
。
發(fā)布:2024/10/30 22:30:2
組卷:2
引用:4
難度:0.3
解析
3.
日期判斷:從文本框Text1輸入一個8位數(shù)字表示的日期,其中第1到4位表示年(第1位確定不為零),第5到6位表示月,第7到8位表示日。單擊“判斷”按鈕,判斷該日期是否合法,將結(jié)果依次輸出到列表框List1.程序界面如圖所示:
提示:年份值符合下列兩種情況之一的是閏年。
1.年份是4的倍數(shù),但不是100的倍數(shù);
2.年份是400的倍數(shù)。
(1)觀察程序代碼,可知“判斷”按鈕的對象名為
。(單選,填字母:A.Text1/B.List1/C.Command1/D.Judge/E.判斷)
(2)為實(shí)現(xiàn)上述功能,請?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’與下一行語句同行
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)’與下一行語句同行
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
解析
把好題分享給你的好友吧~~
商務(wù)合作
服務(wù)條款
走進(jìn)菁優(yōu)
幫助中心
兼職招聘
意見反饋
深圳市菁優(yōu)智慧教育股份有限公司
粵ICP備10006842號
公網(wǎng)安備44030502001846號
?2010-2024 jyeoo.com 版權(quán)所有
深圳市市場監(jiān)管
主體身份認(rèn)證
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司 | 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:4.8.2 |
隱私協(xié)議
第三方SDK
用戶服務(wù)條款
廣播電視節(jié)目制作經(jīng)營許可證
出版物經(jīng)營許可證
網(wǎng)站地圖
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正