2017-2018學(xué)年浙江省金華一中高二（上）第二次段考信息技術(shù)試卷
發(fā)布：2024/11/9 20:0:2
一、選擇題（本大題共有10題，每題2分，共20分．選出各題中一個符合題意的正確選項，不選、漏選、多選、錯選均不給分）
-
1．若要在列表框lst_MC中顯示文本“金華一中”，下列語句正確的是（ ?。?/h2>
組卷：9引用：2難度：0.9 -
2．能正確判斷三個整數(shù)型變量a、b、c值相等的VB表達式是（ ?。?/h2>
組卷：7引用：2難度：0.7 -
3．下列Visual Basic表達式中，能產(chǎn)生80到100之間（包括80和100）隨機整數(shù)的是（ ?。?/h2>
組卷：27引用：2難度：0.9 -
4．VB程序中表達式 33mod 17\3*2的值為（ ?。?/h2>
組卷：5引用：1難度：0.9 -
5．某算法的部分流程如圖所示，執(zhí)行這部分流程，結(jié)束時n的值為（ ）
組卷：0引用：2難度：0.7
二、綜合題（本大題共有5題，共30分．）
-
14．小明用 VB編寫了一個連續(xù)高溫天數(shù)的統(tǒng)計軟件。小明采集了金華市 7-8 月的每日最高氣溫，并存放在 ACCESS數(shù)據(jù)庫中。程序運行時，讀取日期和最高氣溫并顯示在列表框 List1 中，在文本框 Text1 中輸入溫度值，單擊“統(tǒng)計”按鈕 Command1，程序自動統(tǒng)計運行在該溫度值及以上的最長連續(xù)天數(shù)，并顯示在 Text3 中，同時在 Text2 中顯示日期區(qū)間，運行界面如圖所示。
實現(xiàn)上述功能的 VB 代碼如 下，在橫線處填入合適代碼。
Dim rq（1To 100）As String‘存放日期
Dim qw（1To 100）As Integer‘存放最高氣溫值
Dim n As Integer'總天數(shù)
Private Sub Form_Load
'讀取數(shù)據(jù)庫內(nèi)容，其中日期數(shù)據(jù)存放在數(shù)組 rq 中，最高氣溫數(shù)據(jù)存放在 qw 中，第 i 個日期保存在 rq（i）中，對應(yīng)的氣溫保存在 qw（i）中，并顯示在列表框 List1 中，代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim ntempend As Integer‘記錄當前結(jié)束日期的下標
Dim max As Integer‘記錄最大連續(xù)天數(shù)
Dim nend As Integer‘記錄最大連續(xù)天數(shù)下的結(jié)束日期的下標
Dim ncount As Integer‘統(tǒng)計連續(xù)天數(shù)
Dim tjqw As Integer‘存放輸入的溫度
tjqw=Val（Text1．Text）
ncount=0
max=0
For i=1To n
If ①Then
ncount=ncount+1
ntempend=i
Else
ncount=0
End If
If max＜ncount Then
max=ncount
②
End If
Next
If max＜＞0Then Text2．Text=③&“-“& rq（nend）組卷：3引用：1難度：0.5 -
15．編碼工作常被運用于密文或壓縮傳輸。有一種最簡單的編碼方式，把一些有規(guī)律的單詞編成數(shù)字。編碼方法如下：
字母表中共有26個字母{a,b,…，z}，把符合“長度不超過6”的所有字符組合升序排列，一個單詞的編碼就對應(yīng)著它排序后的位置。例如：
a→1 b→2 z→26 aa→27 ab→28 az→52 ba→53 bb→54…
小何為此編寫了VB程序，將該編碼理解為26進制數(shù)值，求該編碼對應(yīng)的數(shù)值。程序運行，從文本框Text1輸入要查詢的單詞，單擊按鈕Command1，如果輸入的單詞符合編碼條件，則在Label3上顯示對應(yīng)的編碼值否則在Label3中顯示“不符合編碼條件”。
實現(xiàn)上述功能的VB程序和程序運行界面如下所示，請補充完善代碼。
Function c（n As Long,r As Long） As Long
Dim i As Long,cc As Long
cc=1
For i=1To r
cc=cc*n
Next i
①
End Function
Private Sub Command1_Click
Dim s As String,ch As String
Dim bm As Long,qz As Long
Dim xh As Integer
s=Text1．Text
bm=0
flag=True
For i=1To Len（s）
ch=Mid（s,i,1）
If ②Then
flag=False
Exit For
End If
xh=Asc（ch）-Asc（“a“）+1
③
bm=bm+xh*qz
Next i
If flag Then
Text2．Text=s+“的編碼值為：“+④
Else
Text2．Text=“輸入內(nèi)容不符合編碼規(guī)則“
End If
End Sub。組卷：2引用：1難度：0.4