1、2016年高中信息技術(shù)學(xué)業(yè)水平考試VB程序復(fù)習(xí)題一、順序結(jié)構(gòu)程序1.啟動(dòng)VB，打開(kāi)工程文件“c:MyExamVB91.vbp”，完成如下算法設(shè)計(jì): 12 分2013年6月，小李同學(xué)參加了一場(chǎng)考試，其中有一道題目是：已知長(zhǎng)方體的長(zhǎng)為8，寬為5，高為23，求長(zhǎng)方體的體積V，小李同學(xué)編寫(xiě)出了如下的不完整程序。請(qǐng)將程序缺失部分“_”補(bǔ)充完整，并將“_”字符刪除，正確運(yùn)行程序后，保存文件并退出VB。Function func( )Dim A As SingleDim B As SingleDim H As SingleDim V As SingleA=8:B=5:H=23V=_func=”長(zhǎng)方體的體積V

2、=” & VEnd Function2. 已知圓柱的底面半徑R為6，高H為11，下列程序的功能是計(jì)算圓柱的體積V（的值取3.14）。請(qǐng)將程序缺失部分“_”補(bǔ)充完整。Function func( )Dim R As Single,H As Single,V As SingleR=6H=11V=_func=”圓柱體的體積V=” & VEnd Function 3.已知圓的半徑r是3，計(jì)算圓的面積s（的值取3.14），小李同學(xué)編寫(xiě)出了如下的不完整程序。請(qǐng)將程序缺失部分“_”補(bǔ)充完整。Function func( )Dim r As SingleDim s As Singler=3s=_func=”圓

3、的面積s=” & sEnd Function4. 2013年6月，小李同學(xué)參加了一場(chǎng)考試，其中有一道題目是：已知變量a的值為1，變量b的值為2，交換變量a、b的值。小李同學(xué)編寫(xiě)出了如下的不完整程序。請(qǐng)將程序缺失部分“_”補(bǔ)充完整。Function func( )Dim a As Integer,b As IntegerDim t As Integera=1:b=2t=a:a=bb=_func=”a=” & a & ” b=” & bEnd Function5. 已知變量x的值是4698，下列程序的功能是求x的各位數(shù)字之和s，其中a存放的是千位數(shù)字，b存放的是百位數(shù)字，c存放的是十位數(shù)字，d存放

4、的是個(gè)位數(shù)字。請(qǐng)將程序缺失部分“_”補(bǔ)充完整。Function func( )Dim x As Integer, s As IntegerDim a As Integer,b As IntegerDim c As Integer,d As Integerx=4698a=_b=x100 mod 10c=x10 mod 10d=x mod 10s=a+b+c+dfunc=”各位數(shù)字之和s=” & sEnd Function二、選擇結(jié)構(gòu)程序 6.已知變量a的值為178，判斷其奇偶性，是偶數(shù)則讓變量x的值為0，是奇數(shù)則讓變量x的值為1。Function func( )Dim a As Integer,

5、x As Integera=178If a/2=Int(a/2) then x=0ELsex=_ End If func=xEnd Function7. 已知變量a的值為178，判斷其奇偶性，是偶數(shù)則讓變量x的值為0，是奇數(shù)則讓變量x的值為1。Function func( )Dim a As Integer,x As Integera=_If a/2=Int(a/2) then x=0ELsex=1 End If func=xEnd Function8. 已知變量a的值為178，判斷其奇偶性，是偶數(shù)則讓變量x的值為0，是奇數(shù)則讓變量x的值為1。Function func( )Dim a As

6、Integer,x As Integer a=178If A MOD 2 0 then x=1ELsex=0_ func=xEnd Function9. 已知變量a的值為178，判斷其奇偶性，是偶數(shù)則讓變量x的值為0，是奇數(shù)則讓變量x的值為1。Function func( )Dim a As Integer,x As Integer a=178If A/2=A2 _ x=1ELsex=0End If func=xEnd Function10. 購(gòu)物計(jì)費(fèi)：某商場(chǎng)為了促銷(xiāo)而實(shí)行購(gòu)物打折，在商場(chǎng)購(gòu)物低于500元（包括500元）不打折，超過(guò)500元的部分實(shí)行八折優(yōu)惠。已知某顧客購(gòu)物按未打折計(jì)共花費(fèi)了8

7、98元，編程計(jì)算顧客實(shí)際應(yīng)付的金額。a表示顧客的購(gòu)物金額，x表示顧客應(yīng)該實(shí)際付給商場(chǎng)的金額。請(qǐng)將程序缺失部分“_”補(bǔ)充完整，并將“_”字符刪除，正確運(yùn)行程序后，保存文件并退出VB。Function func( )Dim a As Single,x As Singlea=_If x=500 then x=aELsex=500+(a-500) * 0.8 End If func=”應(yīng)付金額x=” & xEnd Function 11. 計(jì)算房租費(fèi)，收費(fèi)標(biāo)準(zhǔn)為：面積70平方米以下（包括70）按4元/平方米，超過(guò)70平方米的超過(guò)部分按6元/平方米計(jì)算。m表示租房面積，n表示房租費(fèi)。請(qǐng)將程序缺失部分“_

8、”補(bǔ)充完整。Function func( )Dim m As Single,n As Singlem=128If m=70 then n=_ELsen=4 * 70+6 * (m-70) End Iffunc=”房租費(fèi)n=” & nEnd Function12.雅西高速于2012年4月29日正式修成通車(chē)，假設(shè)該高速公路的收費(fèi)標(biāo)準(zhǔn)是：在該高速路上行駛100公里以上（不包含100公里）的車(chē)輛0.4元/公里，否則0.5元/公里。下列程序的功能是計(jì)算車(chē)輛應(yīng)該交納的費(fèi)用。X表示車(chē)輛在該高速路上行駛的公里數(shù)，y表示應(yīng)收費(fèi)用。 請(qǐng)將程序缺失部分“_”補(bǔ)充完整。Function func( )Dim x As

9、 SingleDim y As SingleX=140If x 3 then y=0.9 * x * 4800ELsey=_ End Iffunc=”顧客應(yīng)付的金額y=” & yEnd Function三、FOR 循環(huán)結(jié)構(gòu)程序13.該程序的功能是求 S=5+10+15+.+100。請(qǐng)將程序缺失部分“_”補(bǔ)充完整Function func( )Dim i As Integer,s As Integer s=0 For i = 5 To 100 Step _ s=s + i Next ifunc=sEnd Function14. 2013年6月，小張參加了一場(chǎng)考試，其中有一道題目是求S=1*2*3

10、*4*5。小張編寫(xiě)出了如下的不完整程序。 請(qǐng)將程序缺失部分“_”補(bǔ)充完整，并將“_”字符刪除，正確運(yùn)行程序后，保存文件并退出VB。Function func( )Dim i As Integer,s As Integer s=_ For i = _ s=s * i Next ifunc=sEnd Function四、閱讀下列程序，寫(xiě)出程序運(yùn)行后的結(jié)果。1.Private Sub Command1_Click()A=Abs(-3)B=Sqr(9)C=Int(-9.5) D =Int(1.09)E=A3 F=E MOD 2S=A+B+C+D+E+FPrint S=;SEnd Sub運(yùn)行結(jié)果：_2.Private Sub Command