擠牛奶問題:如有三個(gè)農(nóng)民每天清晨5點(diǎn)起床,然后去牛棚分別給3頭牛擠 奶。第一個(gè)農(nóng)民在300時(shí)刻(從5點(diǎn)開始計(jì)時(shí),秒為單位)給他的牛擠奶,一直到1000時(shí)刻(總共擠了700個(gè)時(shí)刻),第二個(gè)農(nóng)民在700時(shí)刻開始,在1200時(shí)刻結(jié)束(總共擠了500個(gè)時(shí)刻)。第三個(gè)農(nóng)民在1500時(shí)刻開始2100時(shí)刻結(jié)束(總共擠了600個(gè)時(shí)刻)。期間最長擠奶的連續(xù)時(shí)間為900秒(從300時(shí)刻到1200時(shí)刻),而最長的無人擠奶的連續(xù)時(shí)間為300時(shí)刻(因第二個(gè)農(nóng)民在1200時(shí)刻已結(jié)束,而第三個(gè)農(nóng)民從1500時(shí)刻才開始,中間有300時(shí)刻沒有人在擠牛奶)。相應(yīng)時(shí)刻如圖所示:
下面提供的程序是,從N個(gè)農(nóng)民(1<N<=5000)擠N頭牛的工作時(shí)間列表,計(jì)算出最長有人在擠牛奶的時(shí)間段與最長的無人擠牛奶的時(shí)間段。
如圖為兩組不同數(shù)據(jù)程序運(yùn)行后界面;
請?jiān)跈M線處填入相應(yīng)的代碼,使程序功能 完善。
Dim a(1 To 100)As Integer'存放農(nóng)民 擠牛奶開始時(shí)刻
Dim b(1 To 100)As Integer'存放農(nóng)民擠牛奶結(jié)束時(shí)刻
Dim n As Integer'存放農(nóng)民人數(shù)
Private Sub Form_Load ( )
‘獲取農(nóng)民的人數(shù)與各個(gè)農(nóng)民開始擠牛奶與結(jié)束擠牛奶的時(shí)間,并在list1中輸出‘相應(yīng)的代碼略
End Sub
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer
Dim t As Integer,ymax As Integer,nmax As Integer
Dim btime As Integer,etime As Integer,flag As Boolean
flag=True:i=1
Do While i<= 1 And flag
flag=False
For j=1 To n-i
If a(j)>a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j)=b(j+1):b(j+1)=t
flag=True
End If
Next j
i=i+1
Loop
btime=a(1):etime=b(1)
ymax=etime-btime:nmax=0
For i=2 To n
If 2 Then
etime=b(i)
If etime-btime>ymax Then ymax=etime-btime
ElseIf etime<a(i) Then
If a(i)-etime>nmax Then nmax=a(i)-etime
btime=a(i):etime=b(i)
End If
Next i
Label2.Caption=“最長擠牛奶時(shí)間為:“+Str(ymax)+“時(shí)刻“
Label3.Caption=“最長無人擠牛奶時(shí)間為:“+Str(nmax)+“時(shí)刻“
End Sub
【考點(diǎn)】編輯事件處理過程的代碼.
【答案】見試題解答內(nèi)容
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:2引用:1難度:0.5
相似題
-
1.學(xué)校舉辦了“語文作文現(xiàn)場賽”,參賽同學(xué)成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學(xué)的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M(jìn)行處理,統(tǒng)計(jì)出各個(gè)分?jǐn)?shù)等級的人數(shù),并輸出結(jié)果。程序運(yùn)行界面如右圖所示。
實(shí)現(xiàn)上述功能的Python程序如下,請?jiān)趧澗€處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是( ?。?/h2>發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內(nèi)容:
一個(gè)單窗體VB程序的運(yùn)行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內(nèi)有1個(gè)按鈕
(2)窗體內(nèi)有2個(gè)文本框
(3)窗體內(nèi)有3個(gè)標(biāo)簽
(4)該窗體的標(biāo)題(Caption)屬性值是“加法計(jì)算器”發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~