2011年浙江省高中信息技術(shù)會(huì)考試卷（20）
發(fā)布：2024/4/20 14:35:0
一、選題題（算法）
-
1．在Visual Basic中，用變量name存儲(chǔ)學(xué)生的姓名，則變量name的數(shù)據(jù)類型應(yīng)說明為（ ?。?/h2>
組卷：6引用：2難度：0.9 -
2．在Visual Basic中，表達(dá)式Mid（“20110617“，4，3）的值是（ ?。?/h2>
組卷：7引用：6難度：0.9 -
3．下列Visual Basic表達(dá)式中，與表達(dá)式Not x＞1功能相同的是（ ?。?/h2>
組卷：1引用：1難度：0.7
二、填空部分
-
10．小明家的汽車當(dāng)車速每小時(shí)在60至140公里時(shí)，每100公里油耗與車速的關(guān)系滿足：L=0.005V 2-V+60．小明編寫了一個(gè)Visual Basic程序，用逐個(gè)試探的方法求最小油耗時(shí)的速度。程序運(yùn)行界面如圖所示，在文本框Text1中輸入一個(gè)試探的下限速度，在文本框Text2中輸入一個(gè)試探的上限速度，單擊“計(jì)算”按鈕，程序?qū)⑶蟪龅淖钚∮秃臅r(shí)的速度顯示在文本框Text3中，同時(shí)將最小油耗顯示在文本框Text4中。
程序代碼如下：
Private Sub Command1_Click（ ?。?br />Dim min As Integer,max As Integer'保存檢測速度范圍
Dim v As Single,vmin As Single'油耗和最小油耗
Dim s As Integer,smin As Integer'速度和最小油耗速度
Dim Flag As Boolean
min=Val（Text1．Text）
max=Val（Text2．Text）
Flag=sw（min,max）
smin=60：vmin=30'初始化
If Flag Then'如果發(fā)生交換則顯示交換后的結(jié)果
Text1．Text=Str（min）
Text2．Text=Str（max）
End If
If min＞=60And max＜=140Then
For s=min To max Step 1
v=0.005*s^2-s+60
IfThen
vmin=v'最小油耗改為v
smin=s'最小油耗時(shí)的速度改為s
End If
Next
Text3．Text=smin
Text4．Text=vmin
Else
Label5．Caption=“超出規(guī)定范圍“
End If
End Sub
'判斷二個(gè)變量的值，將數(shù)值小的存儲(chǔ)在變量min中，將數(shù)值大的存儲(chǔ)在變量max中
Private Function sw（min As Integer,max As Integer） As Boolean
Dim t As Integer
sw=False
If min＞max Then
t=min
min=max
sw=True
End If
End Function
（1）解決此問題主要采用的算法是。（填：遞歸算法/枚舉算法）
（2）在程序①和②橫線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整：
程序中①橫線處應(yīng)填入。
程序中②橫線處應(yīng)填入。組卷：0引用：1難度：0.3
三、操作題
-
11．打開考生文件夾下“VB”文件夾中的“test.jye.ai”，該VB程序的功能是：在左邊列表框List1中顯示10位工人的產(chǎn)品合格率，單擊“計(jì)算”按鈕Command1，將合格率數(shù)據(jù)按等第標(biāo)準(zhǔn)進(jìn)行評(píng)定，并在右邊列表框List2中顯示。程序運(yùn)行界面如圖所示：
完成以下操作：
（1）將命令按鈕Command1的Caption屬性值設(shè)置為“計(jì)算”。
（2）運(yùn)行程序，發(fā)現(xiàn)單擊“計(jì)算”按鈕Command1后列表框List2中顯示的數(shù)據(jù)有誤，修改程序中的一處代碼修正此問題。調(diào)試程序正確，并保存窗體文件test。frm與工程文件test。vbp。組卷：0引用：1難度：0.5