2011年浙江省高中信息技術(shù)會(huì)考試卷(18)
發(fā)布:2024/4/20 14:35:0
一、選題題(算法)
-
1.將數(shù)學(xué)表達(dá)式
寫(xiě)成Visual Basic表達(dá)式,正確的是( ?。?/h2>v12+v22組卷:6引用:2難度:0.9 -
2.用變量存儲(chǔ)詩(shī)朗誦比賽中選手的平均得分(保留2位小數(shù)),則變量的數(shù)據(jù)類(lèi)型應(yīng)說(shuō)明為( ?。?/h2>
組卷:2引用:1難度:0.9 -
3.在Visual Basic中,語(yǔ)句List1.AddItem Str(n)中的“List1”是( ?。?/h2>
組卷:1引用:1難度:0.7
二、填空題(共3小題,每小題0分,滿(mǎn)分0分)
-
10.李強(qiáng)設(shè)計(jì)了一個(gè)求一元三次方程x3+2x2-5x+2=0的近似實(shí)數(shù)根的Visual Basic程序.單擊“求解”按鈕Command1,程序在[-4,4]范圍內(nèi)求解,并將所有實(shí)數(shù)根顯示在列表框List1中.程序運(yùn)行界面如圖所示:
李強(qiáng)的方法是:設(shè)f(x)=x3+2x2-5x+2,從-4開(kāi)始到4為止,每隔一個(gè)求解精度e取一個(gè)x值,并求出f(x)和f(x+e)的值.若f(x)×f(x+e)≤0,則表示x和x+e的中點(diǎn)就是方程的一個(gè)近似解.
程序代碼如下:
Private Sub Command1_Click ( ?。?br />Const e As Double=0.00001'e為求解精度
Dim s(1To 3)As String
Dim x As Double
Dim m As Double,k As Integer'm為實(shí)數(shù)解
s(1)=“x1“:s(2)=“x2“:s(3)=“x3“
k=0
For x=-4To 4-e Step e
If ①Or f(x+e)=0Then
k=k+1
If f(x+e)=0Then m=x+e Else m=x+e/2
m=Fix(m*10000+0.5)/10000'保留四位小數(shù)
List1.AddItem s(k)+“=“+②
End If
Next x
End Sub
'以下的自定義函數(shù),用于求f(x)的值
Private Function f(x As Double) As Double
f=x*x*x+2*x*x-5*x+2
End Function
(1)解決此問(wèn)題主要采用的算法是
(2)在程序①和②,填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式,把程序補(bǔ)充完整:
程序中①應(yīng)填入組卷:20引用:2難度:0.1
三、操作題
-
11.打開(kāi)考生文件夾下“VB”文件夾中的“test.jye.ai”,該VB程序的功能是:模擬一個(gè)簡(jiǎn)單電路的工作過(guò)程。程序啟動(dòng)時(shí)小燈泡沒(méi)有點(diǎn)亮,單擊命令按鈕“開(kāi)關(guān)”Command1,改變電路狀態(tài)為閉合,小燈泡變?yōu)辄S色(表示點(diǎn)亮);再次單擊“開(kāi)關(guān)”按鈕,改變電路狀態(tài)為斷開(kāi),小燈泡又變?yōu)椴涣?。每次單擊“開(kāi)關(guān)”使電路在閉合狀態(tài)和斷開(kāi)狀態(tài)之間進(jìn)行轉(zhuǎn)換。程序運(yùn)行界面如圖所示:
完成以下操作:
(1)將文本框Command1的Caption屬性值設(shè)置為“開(kāi)關(guān)”。
(2)打開(kāi)“VB”文件夾下“code.jye.ai”文件,將文件中所有代碼復(fù)制到Command1對(duì)象的Click事件處理過(guò)程中的指定位置。調(diào)試程序正確,保存窗體文件test。frm與工程文件test。vbp。組卷:0引用:1難度:0.9