試卷征集
加入會(huì)員
操作視頻

【加試題】小王同學(xué)為了研究浙江省湖州地區(qū)空氣質(zhì)量與天氣、氣溫、風(fēng)向等的關(guān)聯(lián)性問題,通過網(wǎng)絡(luò)獲取了2016-06-01至2017-05-31這365天的有關(guān)信息,并將數(shù)據(jù)整理至數(shù)據(jù)庫文件data.accdb中,其中huzhou數(shù)據(jù)表視圖及設(shè)計(jì)視圖部分界面如圖所示.
菁優(yōu)網(wǎng)
小王編寫了VB程序,具體功能,點(diǎn)擊“執(zhí)行”按鈕Command1,在文本框Text1中顯示空氣質(zhì)量為優(yōu)(AQI空氣質(zhì)量指數(shù)≤50)的最長持續(xù)天數(shù)(連續(xù)為優(yōu)),并在列表List中依次顯示對應(yīng)天數(shù)的各項(xiàng)數(shù)據(jù).
菁優(yōu)網(wǎng)
實(shí)現(xiàn)上述功能的VB程序如下:
Dim rq(1 To 365)As String'存放日期
Dim aqi(1 To 365)As Integer'存放AQI空氣質(zhì)量指數(shù)
Dim tq(1 To 365)As String'存放天氣
Dim qw(1 To 365)As String'存放氣溫
Dim fxfl(1 To 365)As String'存放風(fēng)向及風(fēng)力
Private Sub Form_Load( ?。?br />'本過程從數(shù)據(jù)庫中按2016-06-01至2017-05-31依次讀取各項(xiàng)數(shù)據(jù),并分別存儲(chǔ)在對應(yīng)的數(shù)組中,代碼略
End Sub
Private Sub Command1_Click(  )
       Dim n As Integer,m As Integer,i As Integer,k As Integer
       Dim s As String
       List1.Clear
       n=0:m=0:k=0
       For i=1 To 365
              If aqi(i)<=50 Then
                     n=n+1
              Else
                     If n>m Then
                           m=n
                           k=i-1
                     End If
                     n=0
       Next i
       If n>m Then
             m=n
k=i-1
k=i-1
'①
       End If
       For i=
k-m+1
k-m+1
 To k'②
              s=rq(i)'日期 長度均為10
              s=s & Space(7-Len(Str(aqi(i)))) & Str(aqi(i))'AQI為1-3個(gè)數(shù)字
              s=s & Space(4)& tq(i)'天氣 為1-4個(gè)中文字符
              s=s & Space(2?(6-Len(tq(i)))) & qw(i)'氣溫 長度均為9
              s=s & Space(4)& fxfl(i)'風(fēng)向及風(fēng)力 長度不等
              List.AddItem s
       Next i
       Text1.Text=Str(m)
End Sub
(1)按照本程序的功能,在列表框List1中輸出數(shù)據(jù),當(dāng)天氣為“陰”時(shí),天氣與氣溫之間將輸出
8
8
(填數(shù)字)個(gè)空格.(說明:表達(dá)式Space(n)表示n個(gè)空格.)
(2)請?jiān)跈M線處填入合適的代碼:
k=i-1
k=i-1

k-m+1
k-m+1

【考點(diǎn)】編輯事件處理過程的代碼
【答案】k=i-1;k-m+1;8;k=i-1;k-m+1
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/4/20 14:35:0組卷:4引用:1難度:0.1
相似題
  • 1.學(xué)校舉辦了“語文作文現(xiàn)場賽”,參賽同學(xué)成績存儲(chǔ)在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學(xué)的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M(jìn)行處理,統(tǒng)計(jì)出各個(gè)分?jǐn)?shù)等級的人數(shù),并輸出結(jié)果。程序運(yùn)行界面如右圖所示。
    菁優(yōu)網(wǎng)
    實(shí)現(xiàn)上述功能的Python程序如下,請?jiān)趧澗€處填入合適的代碼。
    菁優(yōu)網(wǎng)

    發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3
  • 2.有如下Python程序段:
    菁優(yōu)網(wǎng)
    執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是(  )

    發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4
  • 菁優(yōu)網(wǎng)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
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正