2011年浙江省高中信息技術(shù)會(huì)考試卷(13)
發(fā)布:2024/12/18 9:30:3
一、選題題(算法)
-
1.將數(shù)學(xué)表達(dá)式
sinxcosx(x的單位:弧度)寫成Visual Basic表達(dá)式,正確的是( ?。?/h2>12組卷:7引用:2難度:0.9 -
2.在Visual Basic中,下列能作為變量名的是( ?。?/h2>
組卷:2引用:2難度:0.9 -
3.在Visual Basic中,用變量存儲(chǔ)560位學(xué)生的身高數(shù)據(jù)(如:1.76),下列最合適的變量說(shuō)明是( )
組卷:8引用:3難度:0.9
二、填空部分
-
10.角谷猜想。對(duì)任意一個(gè)大于1的正整數(shù)n,進(jìn)行如下運(yùn)算:若n是奇數(shù)時(shí),n的值替換為3n+1,若n是偶數(shù)時(shí),n的值替換為n/2;重復(fù)以上運(yùn)算,n最終變?yōu)?.
下面程序用于驗(yàn)證角谷猜想,程序運(yùn)行界面如圖1所示。在文本框Text1中輸入一個(gè)正整數(shù),單擊“驗(yàn)證”按鈕Command1,在列表框List1中輸出每一步的運(yùn)算過(guò)程。
解決此問(wèn)題的算法流程圖如圖2所示:
程序代碼如下:
Private Sub Command1_Click ( )
Dim n As Single,i As Integer
n=Val(Text1.Text)
List1.Clear'清除列表框List1中的內(nèi)容
If Int(n)<>n Or n<=1Then
List1.AddItem“請(qǐng)輸入大于1的正整數(shù)!“
Else
i=0
Do While
If n Mod 2=0Then
n=
Else
n=n*3+1
End If
i=i+1
List1.AddItem Str(i)+““+Str(n)
Loop
End If
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程序的功能是:?jiǎn)螕簟伴_始”按鈕Command1,小熊開始“滑冰”;單擊“停止”按鈕Command2,“滑冰”動(dòng)作停止;單擊“結(jié)束”按鈕Command3,結(jié)束并退出程序。程序運(yùn)行界面如圖所示:
完成以下操作:
(1)將命令按鈕Command3的Caption屬性值設(shè)置為“結(jié)束”;
(2)為“停止”按鈕Command2添加Click事件過(guò)程,并將“VB”文件夾下“code.jye.ai”文件中的所有代碼復(fù)制到該事件過(guò)程中。調(diào)試程序正確,并保存窗體文件test。frm和工程文件test。vbp。組卷:0引用:1難度:0.6