2011年浙江省高中信息技術(shù)會(huì)考試卷(14)
發(fā)布:2024/4/20 14:35:0
一、選題題(算法)
-
1.計(jì)算圓錐體體積的算法如下:
①輸入底面半徑r、高h(yuǎn)
②pi=3.1416
③計(jì)算底面積s=pi?r2
④計(jì)算體積v=s?h/3
⑤輸出體積v
上述算法屬于( ?。?/h2>組卷:16引用:2難度:0.9 -
2.下列Visual Basic表達(dá)式的值等于127的是( )
組卷:8引用:4難度:0.9 -
3.在Visual Basic中,用變量存儲(chǔ)120位員工工號(hào) (如“A01036”),下列最合適的變量說(shuō)明是( )
組卷:6引用:1難度:0.5
二、填空部分
-
10.小黃編制了一個(gè)Visual Basic程序,能根據(jù)輸入的城市名查找并顯示該城市的日照時(shí)間。程序運(yùn)行界面如圖所示,左邊列表框List1中顯示各城市的日照時(shí)間和相應(yīng)的城市名,在文本框Text1中輸入查找的城市名,單擊“查找”按鈕Command1,若找到,則在文本框Text2中顯示該城市的日照時(shí)間。程序中數(shù)組a和數(shù)組b分別存儲(chǔ)城市名和對(duì)應(yīng)的日照時(shí)間。
程序代碼如下:
Const n As Integer=10'n為城市數(shù)
Dim a(1To n) As String'數(shù)組a存儲(chǔ)城市名
Dim b(1To n) As Single'數(shù)組b存儲(chǔ)日照時(shí)間
Private Sub Command1_Click ( )
Dim i As Integer,s As String's用于存儲(chǔ)輸入的城市名稱
Dim f As Boolean'f用于表示是否找到,當(dāng)f=True時(shí),表示未找到
s=Text1.Text
f=True
i=1
Do While i<=n And f
If
Text2.Text=Str(b(i))
f=False
End If
Loop
If f Then
Text2.Text=“沒(méi)有該城市數(shù)據(jù)“
End If
End Sub
Private Sub Form_Load ( ?。?br />'此過(guò)程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行賦值,并顯示在List1中,代碼略
End Sub
(1)解決此問(wèn)題的算法是
(2)在程序①和②橫線處,填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式,把程序補(bǔ)充完整:
程序中①橫線處應(yīng)填入
程序中②橫線處應(yīng)填入組卷:0引用:1難度:0.1
三、操作題
-
11.打開考生文件夾下“VB”文件夾中的“test.jye.ai”,該VB程序的功能是:在列表框List1中顯示10位同學(xué)的身高,單擊“計(jì)算”按鈕Command1,計(jì)算平均身高,并顯示在文本框Text1中。程序運(yùn)行界面如圖所示:
完成以下操作:
(1)將Label2標(biāo)簽的Caption屬性值設(shè)置為“平均身高”。
(2)運(yùn)行程序,發(fā)現(xiàn)統(tǒng)計(jì)出的平均身高值沒(méi)有顯示在Text1中,修改程序中的一處代碼修正此問(wèn)題。調(diào)試程序正確,并保存窗體文件test。frm與工程文件test。vbp。組卷:1引用:1難度:0.6