信息技術(shù)程序設(shè)計試卷真題

2021年6月高中信息技術(shù)會考

算法與程序設(shè)計題〔第一套〕四、程序設(shè)計題〔此題有4小題，第1－3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：a=3:b=2:c=3b=a+b*c該程序段運行后，變量b的值為。.有如下VisualBasic程序段：a=39b=93Ifa+b>100Thenpy="太大”Ifa+b=100Thenpy="相等”Ifa+b<100Thenpy="太小”Label1.Caption=py該程序段運行時，在Label1標(biāo)簽上顯示的是。.以下VisualBasic程序的功能是：計算表達(dá)式1+2+4+8+16+32+…+1024的值，并在文本框Text1中輸出結(jié)果。為了實現(xiàn)這一功能，程序中劃線處的表達(dá)式應(yīng)更正為PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0i=1DoWhilei<=1024s=s+2*ii=i*2LoopText1.Text=Str(s)EndSub4．有一道趣味題，張老師問李老師:“你今年幾歲？你愛人今年幾歲？〞李老師笑笑說：“我年齡的平方與我愛人年齡之和恰好等于1053。而我愛人年齡的平方與我的年齡之和卻等于873。你計算一下吧！〞設(shè)李老師年齡為x歲，他愛人年齡為y歲，由題意可得x,y滿足的數(shù)學(xué)式為：{x2+y=1053x+y2=873解決此問題的流程圖如VB-1所示。根據(jù)流程圖VB-1編寫的VisualBasic程序如下，在①和②劃線處，填入適宜的語句或表達(dá)式，把程序補充完整。PrivateSubCommand1_Click()DimxAsInteger,yAsLongx=1y=1053-x*xDoWhile?②y=1053-x*xLoopText1.Text=Str(x)Text2.Text=Str(y)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入2021年6月高中信息技術(shù)會考算法與程序設(shè)計題〔第二套〕四、程序設(shè)計題〔此題有4小題，第1－3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：a="Happy"b="ness"c=a+b該程序段運行后，變量c的值是。.有如下VisualBasic程序段：DimxAsSingle,cAsStringx=Val(Text1.Text)Ifx>12Thenc="PM"Elsec="AM"EndIfLabel1.Caption=c該程序段運行時，在文本框丁0乂9中輸入15.6,Labell標(biāo)簽上將顯示的是。VisualBasic程序的功能是：計算表達(dá)式12+42+72+…+972的值，并在文本框Textl中輸出表達(dá)式的值。為了實現(xiàn)這一目標(biāo)，程序中For語句劃線處的循環(huán)變量步長應(yīng)為PrivateSubCommand1_Click()DimsumAsLongDimiAsIntegersum=0Fori=1To97Stepsum=sum+i*iNextiTextLText=Str(sum)EndSub4.模擬一個簡單計算器，輸入兩個數(shù)和一個運算符〔加、減、乘、除〕，進(jìn)行算術(shù)運算,并輸出運算結(jié)果。程序界面如圖VB-1所示，在文本框Textl中輸入第一個數(shù)a,在文本框Text2中輸入第二個數(shù)b,在文本框Text3中輸入運算符ch,在文本框Text4中輸出運算結(jié)果。圖VB-1當(dāng)輸入的運算符不是加、減、乘、除四種運算符時，那么輸出“運算符不正確〃；當(dāng)進(jìn)行除法運算時，如果除數(shù)為0,提示輸出“除數(shù)不能為零〃。解決上述問題的算法流程圖如圖VB-2所示，相應(yīng)的VisualBasic程序如下，在①和②劃線處，填入適宜的語句或表達(dá)式，把程序補充完整。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,chAsStringa=Val(Textl.Text)b=Val(Text2.Text)①Ifch="+"ThenText4.Text=Str(a+b)Elselfch="*"ThenText4.Text=Str(a*b)Elselfch="-"ThenText4.Text=Str(a-b)Elselfch="/"ThenIf② =Str(a/b)Else二〃除數(shù)不能是零〃Else

Text=〃運算符不正確〃EndIfText=〃運算符不正確〃EndIfEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入，結(jié)束二）圖VB-22021年6月高中信息技術(shù)會考

算法與程序設(shè)計題〔第三套〕共18分〕四、程序設(shè)計題〔此題有4小題，第1—3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：a=3:b=4c=a+bb=c*b該程序段運行后，變量b的值為。.有如下VisualBasic程序段：a=10b=20c=5m=aIfb>mThenm=bIfc>mThenm=c該程序段運行后，變量m的值為。

.以下VisualBasic程序的功能是：計算表達(dá)式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Textl中輸出結(jié)果。為了實現(xiàn)這一功能，程序中劃線處的語句應(yīng)更正為PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0k=2Fori=1To10s=s+kk=k*2NextiTextl.Text=Str(s)EndSub.某市近期向市民投放帶2B開頭尾數(shù)為001至999的機(jī)動車牌號，經(jīng)過競投有200個牌號被首批車主投中。下面VisualBasic程序段的功能是根據(jù)車牌號查找相應(yīng)的車主身份證號碼，其中車牌號按尾數(shù)從小到大的順序存儲在cno數(shù)組中，身份證號碼存儲在cnum數(shù)組中。界面如圖VB-1所示，在文本框Textl中輸入一個車牌號，單擊“開始查找〃按鈕后，在文本框Text2中輸出結(jié)果。如果查找成功，那么輸出對應(yīng)的車主身份證號碼，否那么輸出“找不到〃。相應(yīng)的VisualBasic程序段如下，在①和圖VB-1解決查找問題的算法流程圖如圖相應(yīng)的VisualBasic程序段如下，在①和圖VB-1PrivateSubCommand1_Click()DimkeyAsString,iAsIntegerDimjAsInteger,foundAsBooleani=1:j=200:found=False①DoWhilei<=jAndNotfoundm=Int((i+j)/2)Ifcno(m)=keyThenfound=TrueElseElsej=m-1If②Theni=m+1EndIfElsej=m-1LoopIfNotfoundThenText2.Text="找不至U"ElseText2.Text=cnum(m)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2021年6月高中信息技術(shù)會考

算法與程序設(shè)計題〔第四套〕四、程序設(shè)計題〔此題共4小題，第1—3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：a=3:b=2b=a*ba=a+b該程序段運行后，變量a的值為。.有如下VisualBasic程序段：a=30:b=20:c=5m=aIfb<mThenm=bIfc<mThenm=c該程序段運行后，變量m的值為。.有如下VisualBasic程序段：s=0Fori=0To4s=s+2"iNexti該程序段運行后，變量s的值為。4.某班級45名學(xué)生，每位學(xué)生中文姓名均不相同，并且都有一個英文名。下面程序的功能

是根據(jù)學(xué)生的中文姓名查找相應(yīng)的英文名，其中學(xué)號存儲在數(shù)組sn。中，英文名存儲在數(shù)組sname中，中文姓名存儲在數(shù)組ch中。程序界面如圖VB-1所示，在文本框textl中輸入要查找的中文姓名，單擊”開始查找〃按鈕，如果查找成功，那么在文本框Text2中輸出該學(xué)生的學(xué)號、中文姓名和英文名，否那么在文本框Text2中輸出“查無此人！〃。解決查找問題的算法流程圖如圖VB-2所示，相應(yīng)的VisualBasic程序段如下，在①和②劃線處，填入適宜的語句或表達(dá)式，把程序段補充完整。時查找英文名 時查找英文名 HE?根據(jù)學(xué)生中文名查找相應(yīng)的英文名輸入查找的中文名王小明根據(jù)學(xué)生中文名查找相應(yīng)的英文名輸入查找的中文名王小明[5號:王小明英文吝是Jack誑髓我]①DoWhilei<=45AndNotfoundIfch(i)=keyThenn=i:found=Truei=i+1LoopIf②ThenText2.Text="查無此人！” 圖VB-1ElseText2.Text=Str(sno(n))+”號："+ch(n)+”的英文名是"+sname(n)EndIfEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入圖VB-2圖VB-22021年6月高中信息技術(shù)會考

算法與程序設(shè)計題〔第五套〕四、程序設(shè)計題〔此題有4小題，第1－3小題，每題4分，第4小題6分，共18分〕.有如下程序段：a=3b=4c=a*b-2該程序段運行后，變量c的值為。.有如下VisualBasic程序段：IfxThenLabel1.Caption="Pass"ElseLabel1.Caption="Fail"EndIf該程序段運行后，Label1標(biāo)簽上顯示為。.以下VisualBasic程序的功能是：計算表達(dá)式1+2+4+8+16+32+…+1024的值，并在文本框Textl中輸出結(jié)果。為了實現(xiàn)這一功能，程序中劃線處的語句應(yīng)更正為。PrivateSubCommand1_Click()DimaAsInteger,sAsLongs=0a=1DoWhilea<=1024s=s+aa-a+2LoopText1.Text=Str(s)EndSub.?浙江省電網(wǎng)銷售電價表?中規(guī)定，不滿1千伏“一戶一表〞居民用電價格，按以下標(biāo)準(zhǔn)計算：月用電量在50千瓦時及以下局部，每千瓦時以0.538元計算；51?200千瓦時局部，那么每千瓦時按0.568元計算；200千瓦時以上局部,每千瓦時按0.638元計算。設(shè)計一個程序，根據(jù)用戶的月用電量分段計算電費。設(shè)某用戶的當(dāng)月用電量是x千瓦時，當(dāng)xW50時，電費為Xx元；當(dāng)xW200時，電費為XX50元；當(dāng)x>200時，電費為XX150X50元；在文本框Text1輸入x,在文本框Text2中輸出相應(yīng)的電費。根據(jù)上述分析，解決此問題的算法流程圖如圖VB-1所示，相應(yīng)的VisualBasic程序如下，在①和②劃線處，填入適宜的語句或表達(dá)式，把程序補充完整。PrivateSubCommand1_Click()DimxAsInteger①Ifx<0ThenText2.Text="用電量不能是負(fù)的！"

Elselfx<=50ThenText2.Text=Str(0.538*x)ElselfThThenText2.Text=Str(0.568*(x-50)+0.538*50)ElseText2.Text=Str(0.638*(x-200)+0.568*150+0.538*50)EndIfEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入2021年6月高中信息技術(shù)會考算法與程序設(shè)計題〔第六套〕共18分〕四、程序設(shè)計題〔此題有4小題，第1—3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：a=15b=3c=a/b+2該程序段運行后，變量c的值為。.有如下VisualBasic程序段：Ifx>0ThenLabel1.Caption="Positive”Ifx=0ThenLabel1.Caption="Zero"Ifx<0ThenLabel1.Caption="Negative"該程序段運行后，Label1標(biāo)簽上顯示為。.有如下VisualBasic程序段：

Fori=1To10IfiMod3=0Thenk=k+1Nexti該程序段運行后，變量k的值為o.模擬兩人擲骰子游戲。由電腦隨機(jī)產(chǎn)生兩個1到6之間的整數(shù)，表示甲乙兩人所擲的骰子數(shù)，根據(jù)這兩個數(shù)字之和是偶數(shù)還是奇數(shù)，判定哪一方贏了？偶數(shù)表示甲贏了，奇數(shù)表示乙贏了。擲了假設(shè)千次后，分別統(tǒng)計甲乙各贏了幾次？程序界面如圖VB-1所示，在文本框Textl中輸入總次數(shù)n,單擊“開始〃按鈕，在文本框Text2中輸出甲贏的次數(shù)，在文本框Text3中輸出乙贏的次數(shù)。在列表框Listl中輸出游戲次數(shù)和判斷結(jié)果。算法流程圖如圖VB-2所示，相應(yīng)的VisualBasic程序如下，其中變量a、b分別存儲甲、乙兩人所擲的骰子數(shù)，變量n存儲游戲總次數(shù)，變量k、j分別存儲甲、乙各自贏的次數(shù)。在①和②劃線處，填入適宜的語句或表達(dá)式，把程序補充完整。L￡345E7PrivateSubCommand1_Click()L￡345E7DimaAsInteger,bAsInteger,nAsIntegerDimjAsInteger,kAsInteger,iAsIntegerk=0J=0①Fori=1Tona=Int(Rnd()*6+1)b=Int(Rnd()*6+1)If②Then 圖VB-1Listl.AddItemStr(i)+”甲贏了！”k=k+1ElseList1.AddItemStr(i)+”乙贏了！"j=j+1EndIfText2.Text=Str(k)Text3.Text=Str(j)NextiEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入圖VB-22021年6月高中信息技術(shù)會考算法與程序設(shè)計題〔第七套〕四、程序設(shè)計題〔此題有4小題，第1—3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：i=6i=i+1j=2*i-1該程序段運行后，變量j的值為。.有如下VisualBasic程序段：Ifx>0Thenx=x+2Elsex=x-2EndIf該程序段運行后，變量x的值為。.有如下VisualBasic程序段：s=0Fori=1To10IfiMod3=0Thens=s+iNexti該程序段運行后，變量s的值為。4.某學(xué)生說他的年齡不低于10歲，且他的年齡減去10,平方以后得到的一個數(shù)，恰好是他的年齡加上10,問他的年齡多大?設(shè)這位學(xué)生年齡為y,他年齡減去10的平方為r,那么r=〔y-10〕2,那么y滿足的表達(dá)式為: 〔y-10〕2=y+10解決此問題的算法流程圖如圖VB-1所示，相應(yīng)的VisualBasic程序如下，在①和②劃線處,填入適宜的語句或表達(dá)式,把程序補充完整。PrivateSubCommand1_Click()DimyAsInteger,rAsIntegery=10r=(y-10)-2DoWhile?②r=(y-10)-2LoopText1.Text=Str(y)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入圖VB—12021年6月高中信息技術(shù)會考

算法與程序設(shè)計題〔第八套〕四、程序設(shè)計題〔此題有4小題,第1—3小題,每題4分,第4小題6分,共18分〕.有如下VisualBasic程序段：a=4b=3b=a+ba=a+b該程序段運行后，變量a的值為。.有如下VisualBasic程序段：a=120Ifa>100thenLabel1.Caption="超重"ElseLabel1.Caption="正常"EndIf該程序段運行后，Labell標(biāo)簽上顯示為。.有如下VisualBasic程序段：s=0=3DoWhiles<=10s=s+ii=i+3Loop該程序段運行后，變量s的值為。4．用50元錢兌換面值為1元、2元、5元的紙幣共25張。每種紙幣不少于1張，求出有多少種兌換方案？每種兌換方案中1元、2元、5元的紙幣各有多少張？假設(shè)面值為1元、2元、5元的紙幣分別是x、y、z張，兌換方案有k種，從題意可得出x、y、z滿足的表達(dá)式為{x+y+z=25x+2y+5z=50解決此問題的算法流程圖如圖VB-1所示，相應(yīng)的VisualBasic程序如下，在①和②劃線處，填入適宜的語句或表達(dá)式，把程序補充完整。PrivateSubCommand1_Click()DimkAsIntegerDimxAsInteger,yAsInteger,zAsIntegerk=0Fory=1To22Forz=1To9x=25-y-zIf①ThenListLAddItem"1元"+Str(x)+”張2元"+Str(y)+”張5元"+Str(z)+"張"②EndIfNextzNextyLabel1.Caption="共有"+Str(k)+"種兌換方案"EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入變量賦初值： k-*— k-*—25-y-z方案數(shù)k增加L2021年6月高中信息技術(shù)會考算法與程序設(shè)計題〔第九套〕共18分〕四、程序設(shè)計題〔此題有4小題，第1—3小題，每題4分，第4小題6分，共18分〕.有如下VisualBasic程序段：k=10k=k-1t=2*k+1該程序段運行后，變量t的值為。.有如下VisualBasic程序段：x=1000Ifx>1024Thensize="大了"Elsesize="剛好”EndIfLabel1.Caption=size該程序段運行后，Label1標(biāo)簽上顯示為。.以下VisualBasic程序的功能是：找出自然數(shù)1-100之間被3整除的數(shù)，并在文本框Text1中輸出這些數(shù)的累加和。為了實現(xiàn)這一功能，程序中劃線處的語句應(yīng)更正為PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=1to100IfiMod3=0Thensum=sum+3NextiText1.Text=Str(sum)EndSub4．下面的算式表示一個四位數(shù)乘以9，積還是一個四位數(shù)。算式中相同的字母表示相同的數(shù)字，不同的字母表示不同的數(shù)字。那么算式中的a、b、c、d各代表什么數(shù)字？abcd* 9dcba從算式分析可知，第一式上最高位a*9沒有產(chǎn)生進(jìn)位，可得a=1,再由d*9結(jié)果的個位數(shù)是a，即1,可得d=9，b、c滿足的表達(dá)式為(1000+100b+10c+9)*9=9000+100c+10b+1解決此問題的算法流程圖如圖VB-1所示，相應(yīng)的VisualBasic程序如下，在①和②劃線處，填入適宜的語句或表達(dá)式，把程序補充完整。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsInteger,dAsIntegera=1①Forb=0To9Forc=0To9If( ②)*9=9001+100*c+10*bThenTextLText=Str(a)Text2.Text=Str(b)Text3.Text=Str(c)Text4.Text=Str(d)EndIfNextcNextbEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2021年6月高中信息技術(shù)會考

算法與程序設(shè)計題〔第十套）四、程序設(shè)計題〔此題有4小題，第1—3小題，每題4分