試卷征集
加入會員
操作視頻

菁優(yōu)網(wǎng)某校學(xué)生會選舉需要從學(xué)校數(shù)據(jù)庫中隨機抽取若干名學(xué)生作為監(jiān)票人。該數(shù)據(jù)庫文件名為school。mdb,其中數(shù)據(jù)表student存儲有關(guān)學(xué)生學(xué)號(xuehao)、姓名(xingming)相關(guān)信息,括號內(nèi)的內(nèi)容為對應(yīng)字段名。該程序編輯界面如圖所示,相關(guān)對象名可參考標(biāo)識圖。
cqxhxm
xskcqxhxm
當(dāng)主持人點擊按鈕“生成抽號”后,下方的標(biāo)簽會顯示可抽取的學(xué)號姓名,一定時間后顯示被抽取作為監(jiān)票人的學(xué)號姓名。
cz
cq
'xxxss:學(xué)校學(xué)生數(shù),kcq:可抽取
'xhxm:學(xué)號姓名,kcq:可抽取
Dim xxxss As Integer
xhxmbq
Dim xhxm(3000)As String
Dim kcq(3000)As Boolean

'cq_Click:啟用兩個定時器
Private Sub cq_Click ( ?。?br />cqxhxm.Enabled=True
xskcqxhxm.Enabled=True
End Sub

Private Sub cz_Click'初始化數(shù)組kcq,使每個元素數(shù)據(jù)都處于可顯示狀態(tài)
For i=0To xxxss-1
kcq(i)=True
kcq(i)=True

Next i
End Sub

Private Sub xskcqxhxm_Timer'若數(shù)組kcq第x個元素處于可抽取狀態(tài),則顯示數(shù)組xhxm第x個元素
x=Int(Rnd*xxxss)
If kcq(x) Then xhxmbq.text=kcq(x)'②
xhxmbq.Caption=xhxm(x)
xhxmbq.Caption=xhxm(x)

End Sub

Private Sub Form_Load ( ?。?從數(shù)據(jù)庫中提取需要的學(xué)號姓名相關(guān)數(shù)據(jù)并初始化數(shù)組kcq
Randomize
xxxss=0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn=“driver=Microsoft access driver(*.mdb);DBQ=“&app.path&“\school.mdb“;
conn.open str_conn
str_sql=“select*from students“
rs.open str_sql
Do While Not rs.eof
xxxss=xxxss+1
xhxm(xxxss)=rs.fields(“xuehao“)&rs.fields(“xingming“)
rs.movenext
Loop
For i=0To xxxss-1
kcq(i)=True
Next i
End Sub

Private Sub cqxhxm_Timer'決定抽取的學(xué)號姓名作為監(jiān)票人
xskcqxhxm.Enabled=False
For i=0To xxxss-1
If xhxmbq.Caption=xhxm(i) Then kcq(i)=False
Next i
cqxhxm.Enabled=False
End Sub。

【答案】kcq(i)=True;xhxmbq.Caption=xhxm(x)
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:3引用:1難度:0.1
相似題
  • 1.小華開發(fā)了一個自動改卷系統(tǒng),但是由于科目不同,沒有固定的題號模板,于是小華又編寫了python程序,能根據(jù)試卷答案自動輸出題號。如圖1為答案模板文件,小華在模板文件中錄入答案后保存為“卷3.txt”,如圖2所示,每一行是一題或者一題中的一小題的答案,題號之間沒有跳躍。例如:圖2中【1】和【5】之間有4行,A、B、C、D為第1到4題的答案。程序運行結(jié)果如圖3所示。
    菁優(yōu)網(wǎng)?
    (1)實現(xiàn)上述功能的Python程序如下,若刪除圖 13-2 最后一行(【7】所在的行),對程序運行結(jié)果
     
    影響(填:有/沒有)。
    (2)請在劃線處填入合適的代碼。
    菁優(yōu)網(wǎng)?

    發(fā)布:2024/11/13 8:0:1組卷:0引用:1難度:0.3
  • 2.(郊游活動)有 n 名同學(xué)參加學(xué)校組織的郊游活動,已知學(xué)校提供給這 n 名同學(xué)的郊游總經(jīng)費為 cnt 元,與此同時每位同學(xué)都自帶了部分錢。為了方便郊游,活動地點提供 m(n<=m<=100)輛自行車供人租用,租用每輛自行車也需要花費錢,每位同學(xué)可以使用自己攜帶的錢或者學(xué)校的郊游經(jīng)費,為了方便賬務(wù)管理,每位同學(xué)只能為自己租用自行車,且不會借錢給他人,他們想知道最多有多少位同學(xué)能夠租用到自行車。
    租車原則是首先考慮自帶經(jīng)費少的部分同學(xué)優(yōu)先租相對花費少的自行車,盡量少花學(xué)校經(jīng)費以達到最多同學(xué)租車的結(jié)果。比如學(xué)生帶的錢為 9,3,6,7,5,租車的錢分別需要 15,8,12,6,9,11,如果 5 個人都能租車,至少需要學(xué)校提供經(jīng)費為(6-3)+(8-5)+(9-6)+(11-7)+(12-9)=16,如果學(xué)校經(jīng)費只有 10 元,則自帶錢最少的同學(xué)不租車,這時所需學(xué)校經(jīng)費為(6-5)+(8-6)+(9-7)+(11-9)=7。計算過程中采用二分查找法來判斷租用自行車的人數(shù)能否達到最大值。
    (1)若 7 位學(xué)生自帶經(jīng)費分別為 5,17,15,12,10,9,14,自行車租車費用分別為 27,14,27,25,17,18,23,21,學(xué)校提供經(jīng)費為 25 元,則最多有
     
    位同學(xué)能夠租用到自行車。
    (2)VB程序代碼如下,請在橫線處填入合適的代碼。
    菁優(yōu)網(wǎng)
    菁優(yōu)網(wǎng)

    發(fā)布:2024/11/14 11:30:2組卷:0引用:1難度:0.3
  • 3.某次模擬考試成績存儲在“Scores.jye.ai”數(shù)據(jù)文件中(如圖a所示),現(xiàn)利用Excel軟件與Python程序?qū)@些數(shù)據(jù)進行統(tǒng)計分析并可視化,請根據(jù)要求回答下列問題。
    (1)在Excel軟件中計算每位學(xué)生的成績總分。選擇M2單元格輸入公式,然后利用自動填充功能完成區(qū)域M3:M651的計算,則M2單元格的公式為=SUM(
     
    )。
    菁優(yōu)網(wǎng)
    (2)利用Pandas模塊讀取數(shù)據(jù),統(tǒng)計出各選科組合的選擇人數(shù),部分程序代碼如下,請在橫線處填入合適的代碼。
    菁優(yōu)網(wǎng)
    (3)為了獲取選科人數(shù)最多的前8個組合,結(jié)果如圖b所示,部分程序代碼如下,則程序橫線處的代碼可行的是
     
    (多選)。
    A.df3=df2.sort_values(“人數(shù)“).tail(8)
    B.df3=df2.sort_values(“人數(shù)“).head(8)
    C.df3=df2.sort_values(“人數(shù)“,ascending=Flase)[0:8]
    D.df3=df2.sort_values(“人數(shù)“,ascending=Flase).head(8)
    菁優(yōu)網(wǎng)
    (4)對處理后的數(shù)據(jù)進行可視化操作,結(jié)果如圖c所示,部分程序代碼如下,請在橫線處填入合適的代碼。
    菁優(yōu)網(wǎng)

    發(fā)布:2024/11/12 15:0:1組卷:7引用:2難度:0.3
小程序二維碼
把好題分享給你的好友吧~~
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)改正