2006年春浙江省高等學(xué)校計(jì)算機(jī)等級(jí)考試試卷（二級(jí)VisualBasic）說明:⑴考生應(yīng)將所有試題的答案填寫在答卷上。其中試題1?試題6,請(qǐng)?jiān)诖鹁砩细餍☆}正確選項(xiàng)的對(duì)應(yīng)位置處填“J、⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫在答卷右下角的指定位置內(nèi);⑶考試時(shí)間為90分鐘;試題1（每小題3分,共15分）閱讀下列程序說明和程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。【程序說明】界面設(shè)計(jì)如上圖所示，程序運(yùn)行時(shí)要求有以下功能:按Commandl(出題)后隨機(jī)生成兩個(gè)兩位正整數(shù)存入模塊級(jí)變量a、b且a>b,并分別在LabelLabe12中顯示,此后Commandl不可用;在Textl中輸入結(jié)果、按回車后,以消息框顯示運(yùn)算正確與否、累計(jì)所完成題數(shù)以及做錯(cuò)的題數(shù),Commandl恢復(fù)為可用;按Command2(退出)后以消息框顯示所完成題數(shù)以及做錯(cuò)的題數(shù),退出。【程序】DimnAsInteger,n_errorAsInteger(1)PrivateSubCommandl_Click()a=10+Rnd*89:b=10+Rnd★89Ifa<bThen￡2)Labell.Caption=a:Label2.Caption=bn=n+1:Textl.Text= Commandl.Enabled=FalseEndSubPrivateSubTextl(3)(KeyAsciiAsInteger)IfKeyAscii<>13Then(4) ,回車鍵的ASCII碼值為13Ifa-b=Vai(Textl.Text)ThenMsgBox("回答正確”)ElseMsgBox("回答不正確")n_error=n_error+1EndIfCommandl.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgBox( (_5J EndEndSub【供選擇的答案】(1)A、’小學(xué)生兩位數(shù)減法訓(xùn)練程序C、n=0:n_error=0B、a=0:b=0:c=0D、DimaAsByte,bAsByte,cAsByte(2)A、b=a:a=bB、c=a:a=b:b=cC、a=b:b=aD、c=a:b=a:a=c(3)A、KeyPress B、ChangeC、KeyDown D、KeyUp(4)A、ExitSub B、KeyAscii=13C、KeyAscii=O D、ExitDo(5)A、”共”&n&”題,錯(cuò)”&n_error8L”題”B、”共n題,錯(cuò)n_error題"C、"共"+n+"題,錯(cuò)"+n_error+"題"D、共&n&"題,錯(cuò)"&n_error&"題"試題2（每小題3分,共12分）閱讀下列程序說明和程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。【程序說明】輸入n后，再輸入n個(gè)數(shù)イ,4,…,ム，按照下列公式計(jì)算S的值并顯示。_ax+a2-\ Fan _(6-v)4-(a2—v)"H F(a〃ーリ)V— 1 s—n n【程序】PrivateFunctionf((6))AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubCommandl_Click()DimnAsIntegerra()AsSingle,iAsIntegerDimvAsSingle,sAsSinglen=エnputBox("輸入數(shù)據(jù)個(gè)數(shù)”) Fori=1Tona(i)=エnputBox(”a("&i&")="，”輸入各數(shù)組元素”)Nextiv=f(a,n)/nFori=1Tons= (8) Nexti EndSub【供選擇的答案】B、x(n)AsSingleAnx()AsSingle,B、x(n)AsSingleC、aAsSingle,nAsIntegerC、aAsSingle,nAsIntegerD>nAsInteger,x()AsSingleA、Dima(n)AsSingleAnA、Dima(n)AsSingleAn(a(i)-v)*(a(i)-v)Ans=sO.5/nBnReDima()Bns+a(i)-v*2BnPrints0.5/nCnDima(n)Cns+(a(i)-v)2CnPrintSqr(s)DnReDima(n)Dn(a(i)-v)2DnSqr(s)/n試題3（每小題3分,共15分）閱讀下列程序說明和程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。【程序說明】?圖片框控件Pl、P2除Name屬性外均取缺省值,將鼠標(biāo)在P1拖動(dòng)繪制矩形框（邊框顏色通過通用對(duì)話框指定）:鼠標(biāo)按下處為矩形左上角，鼠標(biāo)抬起處為矩形右下角;?鼠標(biāo)抬起后,將P1中矩形區(qū)域內(nèi)的圖象在P2中重新繪制，如下圖所示。【程序】PrivateSubPl_MouseDown(ButtonAsIntegerzShiftAsInteger,XAsSingle,YAsSingle)xl=X:yl=YEndSubPrivateSubPl_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingleDim (11) jk=P2.ScaleWidth/(X-xl):ik=P2.ScaleHeight/(Y-yl)Commondialogl.Action=(12)Pl.Line(xl,yl)-(X,Y),Commondialogl.Color,BForj=xlToXFori=ylToYc= (13)，讀取該點(diǎn)處的顏色值[14jNexti,jEndSub【供選擇的答案】BnDimx2AsSingle,y2AsSingleAnDimxAsSingle,yAsSingleBnDimx2AsSingle,y2AsSingleC、C、PublicxlAsSingle,ylAsSingleA、cAsLongB、cAsIntegerA、1 B、2A、Pl.Pset(j,i)B、P2.Pset(j,i)A、P2.PSet((j-xl)*jk,(i-yl)*ik),cCnP2.PSet((i-yl)*ik,(j-xl)*jk),cD、DimxlAsSingle,ylAsSingleC、cAsSingleD、cAsDoubleC、3 D、4C、Pl.Point(j,i)D、Pl.Point(i,j)B、Pl.Pset((j-xl)*jk,(i-yl)*ik),cD、Pl.Pset((i-yl)*ik,(j-xl)*jk),c試題4(每小題3分,共9分)閱讀下列程序并回答問題,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。【程序】PrivateSubForm_Load()Textl.Text=Listl.ClearEndSubPrivateSubTextl_KeyPress(KAsInteger)DimnAsInteger1IfK>=Asc(“〇”)AndK<=Asc(”9”)ThenK=0IfK=13ThenListl.AdditemTextl.Textznn=n+1Textl.Text=””EndIfEndSub(15)運(yùn)行時(shí)在文本框控件Textl中依次輸入3個(gè)以回車結(jié)束的字符串”abc34”、”xyl2$”、”+-*/”,列表框中各表項(xiàng)依次為:A、abc34 B、+-*/ C、abc D、+-*/xyl2$ xyl2$ xy$ xy$+-*/ abc34 +-*/ abc(16)如果將語句DimnAsInteger用StaticnAsInteger替換,運(yùn)行時(shí)在文本框中依次輸入3個(gè)以回車結(jié)束的字符串”abc34”、”xyl2$”、列表框中各表項(xiàng)依次為:A、abc34 B、+-*/ C、abc D、+-*/xyl2$ xyl2$ xy$ xy$+-*/ abc34 +-*/ abc(17)如果將語句DimnAsInteger后一條語句前的注釋符刪除,運(yùn)行時(shí)在文本框中依次輸入3個(gè)以回車結(jié)束的字符串”abc34”、”xyl2$”、”+-*/”,列表框中各表項(xiàng)依次為:A、abc34 B、+-*/ C^abc D、+-*/xyl2$ xyl2$ xy$ xy$+-*/ abc34 +-*/ abc試題5(每小題3分,共12分)閱讀下列程序并回答問題,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。【程序】PrivateSubf(sAsString)DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n\2+1,1)Fori=1ToLen(s)\2c=Mid(s,Len(s)+1-i,1)+c+Mid(szi,1)NextiEndSubPrivateSubCommandl_Click()DimxAsStringx=InputBox(nx=n)Callf(x)PrintxEndSub(18)單擊Commandl后輸入“abc”,窗體上顯示結(jié)果為:A、cba B、bca C、abc D、acb(19)單擊Commandl后輸入“abed”,窗體上顯示結(jié)果為:卜、abdc B、edab C^abed D、bead(20)如果將Sub過程f首句改為PrivateSubf(ByvalsAsString),單擊Commandl后輸入”abed”,窗體上顯示結(jié)果為:Aヽabdc B、edab C、abed D、bead(21)如果將Sub過程f首句改為PrivateSubf(ByrefsAsString)?單擊Commandl后輸入”abed”,窗體上顯示結(jié)果為:A、abdc B、edab C、abed D、bead試題6(每小題3分,共9分)閱讀下列程序并回答問題,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。【程序】PrivateSubCommandl_Click()DimiAsInteger,fnAsBytefn=FreeFileOpen”e:\aaa.txt”ForOutputAs#fnFori=1To20IfSqr(i)=Int(Sqr(i))ThenPrint#fn,iNextiClose#fnEndSub(22)如果文件e:\aaa.txt已存在并已有數(shù)據(jù)1、4(執(zhí)行以上過程后文件中全部數(shù)據(jù)為:A、!,4,1,4,9,16 B、1,4,9,16 C、1,4 D、2,4,6,8,10,12,14,16,18(23)如果文件e:\aaa.txt不存在,執(zhí)行以上過程后文件中全部數(shù)據(jù)為:A、!,4,1,4,9,16 B、1,4,9,16 C、空 D、2,4,6,8,10,12,14,16,18(24)如果文件e:\aaa.txt已存在并已有數(shù)據(jù)1、4,且程序中文件打開方式改為Append,執(zhí)行以上過程后文件中全部數(shù)據(jù)為:A、!,4,1,4,9,16B、1,4,9,16C、1,4D、2,4,6,8,10,12,14,16,18試題7（14分）編寫過程Commandl_Click,用InputBox函數(shù)輸入100個(gè)學(xué)生的成績,統(tǒng)計(jì)后依次用標(biāo)簽控件Labell?Label3顯示優(yōu)秀（85?100）、通過（6〇?84）和未通過（小于60）的人數(shù)。試題8（14分）編寫程序,界面設(shè)計(jì)、運(yùn)行時(shí)狀態(tài)如下圖所示,按照下列要求定義各事件過程:（1）在窗體的Load事件過程中設(shè)置計(jì)時(shí)器控件?imer!的Enable屬性為False、響應(yīng)的時(shí)間間隔為1秒:（2）單擊Commandl后計(jì)時(shí)器開始計(jì)時(shí)，每隔1秒刷新一次控件Label2（〇）?Label2（3）在窗體上所顯示的當(dāng)前時(shí)間以及計(jì)時(shí)開始后所經(jīng)過的時(shí)間。2005年秋浙江省高等學(xué)校計(jì)算機(jī)等級(jí)考試試卷（二級(jí)VisualBASIC）試題三、程序填空題（每空2分，共20分）說明：閱讀下列程序說明和相應(yīng)程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。程序1、【程序說明】用近似公式求自然對(duì)數(shù)的底數(shù)e的值，要求計(jì)算結(jié)果的誤差小于10ゝ,1111

e=1H 1 1 1 F???1! 2! 3! 4!【程序】PrivateSubCommandlClick()DimsAsDouble, (21)DimiAsIntegeri=2(22)t=1DoWhile(23)(24)t=t/ii=i+1LoopPrintsEndSub(21)AntAsSingleBntAsByteCntAsIntegerDntAsDouble(22)AnS二2Bns=1Cns=0Dns=i+1(23)Ant<=le-9Bnt>=ld-9Cnt>=le-9Dnt<0.000000001(24)A、S=s+tBns=s+iCns=t/iD、s=s+t/i程序2、【程序說明】下列過程的功能是為與形參a所對(duì)應(yīng)的n個(gè)元素的實(shí)參數(shù)組送數(shù):第1個(gè)元素賦值n,其他元素為2位隨機(jī)整數(shù),要求這n個(gè)數(shù)各不相同。【程序】PrivateSubcreate(a()AsByte,nAsByte)DimiAsByte,jAsByte,xAsBytea(l)=ni=1DoWhilei<nx= (25)Forj=1To(26)Ifx=a(j)Then(27)NextjIf(28)Theni=i+1:a(i)=xLoopEndSub(25)A、Rnd*99Bn10+rnd，く89CnRnd*100D、Int(rnd*100)(26)A、iBnn-1C、i-1D、n(27)A、BreakBnExitSubc、j二j-1D、ExitFor(28)A、j>iBnj<=iCnx<>a(i)D、j<>i程序3、【程序說明】下列過程在裝入窗體時(shí),清空列表框控件Listl中所有表項(xiàng),并順序、逐行讀入文件e:\aaa.txt中的數(shù)據(jù),顯示在Listl中。【程序】PrivateSubForm_Load()DimsAsStringOpene:\aaa.txt*ForInputAs#1DoWhileNotEOF(l)Listl.AdditemsLoopClose#1EndSubAnListl.List=""B、Listl="" C、Listl.Cis D、Listl.ClearAnLineInput#1,sB、InputLine#1,sC、Input#1,sDnLineinputs試題四、程序閱讀題(每空2分,共20分)說明:閱讀下列程序并根據(jù)各題的要求,在各程序后的若干組選項(xiàng)中選出ー組,寫在答卷紙的相應(yīng)題號(hào)下。程序1、設(shè)TextLText為"abcdef”,運(yùn)行時(shí)連續(xù)單擊3次控件HScrolll右側(cè)箭頭后,組合框控件中的第1項(xiàng)為 控1)、第2項(xiàng)為 控2)、第3項(xiàng)為控3)〇PrivateSubForm_Load()HScrolll.SmallChange=1:HScrolll.Max=5HScrolll.Min=1:HScrolll.Value=1Combo1.ClearEndSubPrivateSubHScrol1l_Change0Combo1.AddIternLeft(Textl.Text,HScrolll.Value),0EndSub(31)A、abcB、abedC、abD、abcde(32)A、aB、abcdeC、abcD、abed(33)A、abcdeB、abedC、abcD、ab程序2、執(zhí)行下列事件過程時(shí),窗體上的顯示結(jié)果依次為2、(34)、(35)ヽ(36)〇PrivateSubCommandl_Click()DimxAsLong,iAsIntegerx=60i=2DoWhilex>1IfxModi=0ThenPrinti;:x=x\iElsei=i+1LoopEndSub(34)A、2B、3C、5D、1(35)A、2B、5C、3D、1(36)A、2B、5C、!D、3程序3、下列過程f的功能是(37) :運(yùn)行時(shí)單擊命令按鈕控件Command1后窗體上的顯示結(jié)果是(38)5如果將其中的語句“t=a(k):a(k)=a(i):a(i)=t”修改為“a(k)=a(i):a(i)=a(k)”,則顯示結(jié)果是(39)〇PrivateSubf(a()AsSingle,nAsInteger)DimiAsInteger,jAsInteger,kAsInteger,tAsSingleFori=1Ton-1k=iForj=i+1Tonifabs(a(j))>abs(a(k))Thenk=jNextjt=a(k):a(k)=a(i):a(i)=tNextiEndSubPrivateSubCommandl_Click()Dimx(5)AsSinglex(l)=5:x(2)=-7:x(3)=5:x(4)=12:x(5)=-3

Callf(x,5)Printx(l);x(2);x(3);x(4);x(5)EndSub（37）A、（37）A、對(duì)相應(yīng)實(shí)參數(shù)組按值從小到大排序C、對(duì)相應(yīng)實(shí)參數(shù)組按值從大到小排序B、對(duì)相應(yīng)實(shí)參數(shù)組按絕對(duì)值從小到大排序D、對(duì)相應(yīng)實(shí)參數(shù)組按絕對(duì)值從大到小排序(38)Aヽー35-712B、12-755-3C、-355-712D、12-75-3(39)A、5-755-3B、12121212-3C、-35-712D、-7555-3程序4、執(zhí)行下列過程時(shí)圖片框控件Piel上圖案的形狀是 （40）PrivateSubCommand1Click()Piel.Width=Piel.HeightPiel.Scale(-8,8)-(8,-8)Piel.FillStyle=1Piel.Circle(0,0),3Piel.FillStyle=0Piel.Circle(0,0),6EndSubC、D、C、D、試題五、程序設(shè)計(jì)題（每題10分,共30分）.編制事件過程Command1_Click計(jì)算ー元二次方程ax+bx+c=0的根:?系數(shù)a、b、c已分別在Textl（〇）、Textl（1）>Textl（2）中輸入;,若方程有實(shí)根則分別通過標(biāo)簽控件Labell、Label2顯示,否則在Labell中顯示文本信息”方程無實(shí)根”。.編制事件過程Form_Click,計(jì)算并顯示下列數(shù)列的前30項(xiàng)。fi=fi_x4-/_2 i>23.文本文件e:\aaa.txt中存放了若干個(gè)數(shù),編制事件過程Form_Click,計(jì)算它們的平均值,然后把其中所有大于平均值的數(shù)寫入到文本文件e:\bbb.txt〇2000年秋浙江省高校計(jì)算機(jī)等級(jí)考試試卷（二級(jí)VisualBASIC）試題三、程序閱讀題（本題共21分）閱讀下列程序,寫出運(yùn)行結(jié)果。.程序1（5分）PrivateStaticSubCommandl_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("請(qǐng)輸入ー個(gè)正整數(shù)メ))Ifx<5ThenS=S*XElseS=S4-XEndIfText1.Text=",s=K+Str(s)EndSub程序運(yùn)行時(shí)連續(xù)三次單擊Command1,且設(shè)輸入的數(shù)是5、2和4時(shí),分別寫出文本框Textl.Texi的值。.程序2(5分)PrivateSubForm_Click()FormLClsw=3Fork=2To6Step2Forml.PrintMw=u;w,Hk=M;kw=w+1NextkFormLPrint”w二“；w,"kゴ;kEndSub寫出程序運(yùn)行時(shí)單擊窗體后,Form!上的輸出結(jié)果。.程序3(5分)PrivateSubForm_Click()DimxAsStringDimiAsInteger,nAsIntegerForml.Clsx二"ABCDEFGHKL”n=Len(x)Fori=nTo1Step-2Forml.PrintTab(20-i);Mid(x,i,1)NextiEndSub寫出程序運(yùn)行時(shí)單擊窗體后,Form!上的輸出結(jié)果。.程序4(6分)Rem在窗體的通用聲明區(qū)聲明兩個(gè)模塊級(jí)變量a和yDimaAsInteger,yAsIntegerPrivateSubForm_Load()Open"cAaLdaCForOutputAs#1Close#1EndSubPrivateSubCommandl_Click()Open"c:\al.daドForAppendAs#1Callaa(5)y=y+aPrint#1,“y二"；y,Ma=M;aClose#1EndSubSubaa(iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSub寫出程序運(yùn)行時(shí)連續(xù)三次單擊Commandl后,al.dat文件的最終結(jié)果。試題四、程序填空題(每空2分,共18分).程序說明:利用ー個(gè)計(jì)時(shí)器、ー個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表,如圖1所示。單擊“開始”命令按鈕,秒表開始計(jì)時(shí),單擊“結(jié)束”命令按鈕,秒表結(jié)束計(jì)時(shí),并在標(biāo)簽框顯示運(yùn)行時(shí)間,如“運(yùn)行了0小時(shí)2分10秒”。(假設(shè)對(duì)象的屬性都在程序代碼中設(shè)定)程序代碼如下:DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption二”動(dòng)態(tài)秒表(小時(shí):分:秒)CommandLCaption二”開始［&S「Command2.Caption二”結(jié)束［&E］”Label1.Alignment二2 ，居中對(duì)齊Label1.Caption二”0:0:〇”Timer1.Interval二⑴Timerl.Enabled二Falsex=0EndSubPrivateSubCommand1_Click()EndSubPrivateSubCommand2_Click()Timer1.Enabled=Falsex= (3)Label1.Caption""運(yùn)行了“+Str(h)+”小時(shí)”+Slr(m)+“分”+Str⑸+“秒”EndSubPrivateSubTimerl_Timer()x=x+1TOC\o"1-5"\h\zh= (4)m=(xMod3600)\60s= ⑸Label1.Option=Str(h)+ +Str(m)+ +Str(s)EndSub.程序說明:已知自然對(duì)數(shù)的底數(shù)e的級(jí)數(shù)表示如下:,111 16=1+—+—+——+ + ——+ 1!2!3! nl本程序利用函數(shù)過程fact。求e,其中絕對(duì)值小于1E-8的項(xiàng)被忽略。程序代碼如下:PrivateFunctionfact(mAsInteger)AsSingle,求m!的函數(shù)DimxAsSingle,iAsIntegerx=1Fori=1Tomx= (6)Nextifact=xEndFunctionPrivateSubForm_Click()DimeAsSingle,itemAsSingleDimnAsIntegere=1:n- (7)Don=n+1item= (8)e=e+itemLoopWhile(9)Form1.Printne=n;eEndSub試題五、程序設(shè)計(jì)題（本題共18分）.隨機(jī)產(chǎn)生n個(gè)兩位正整數(shù)（n由輸入對(duì)話框輸入,且n>0）,求出其中的偶數(shù)之和,并在標(biāo)簽框Labell上顯示。（8分）注:程序?qū)懺诿畎粹oCommandl的Click事件中。

.由輸入對(duì)話框輸入100個(gè)數(shù)值數(shù)據(jù)放入數(shù)組a。將其中的整數(shù)放入數(shù)組b,然后運(yùn)用選擇分類法將數(shù)組b中的數(shù)據(jù)按從大到小的順序排列,并以每行5個(gè)數(shù)據(jù)在窗體上輸出。(10分)注:程序?qū)懺诖绑wForm的Click事件中。200I年秋浙江省高校計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)試題三、程序填空題(每空2分,共20分)仔細(xì)閱讀下列各小題的程序說明和相應(yīng)的程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。L【程序說明】本程序求3.100之間的所有素?cái)?shù)(質(zhì)數(shù))并統(tǒng)計(jì)個(gè)數(shù);同時(shí)將這些素?cái)?shù)從小到大依次寫入順序文件e:\dataout.txt;素?cái)?shù)的個(gè)數(shù)顯示在窗體Form!上。【程序】PrivateSubCommand1_Click()DimcountAsInteger,flagAsBooleanDimtlAsInteger,t2AsInteger⑷)count=0Fortl=3To100flag=TrueFort2=2ToInt(Sqr(tl))If(42)Thenflag=FalseNextt2(43)count=count+1Write#1,tlEndIfNexttl(44)Close#1End(41)End(41)A、Opene:\dataout.txtForOutputAs#1B、Open"e:\dataout.txビForIntputAs#1(42)C>D、A、(42)C>D、A、C、Open"e:\dataout.txt"ForOutputAs#2Open"e:\dataout.txt"ForOutputAs#1t2\tl=0tl\t2=0A、IfflagThenIftl>t2B、tlModt2=0t2Modtl=0B、Ift2>tlThenThenD、Ift2>Int(Sqr(tl))Then(44)A、Form1.Print"素?cái)?shù)個(gè)數(shù):"countB、Print#1”素?cái)?shù)個(gè)數(shù):"；countC、Forml.Print"素?cái)?shù)個(gè)數(shù):"；countD、Forml.Print”素?cái)?shù)個(gè)數(shù):“：count2.【程序說明】由輸入對(duì)話框輸入n(設(shè)n為大于零且小于30的自然數(shù)),計(jì)算下列表達(dá)式的值,并在標(biāo)簽框Label1上顯示。11]]1x22x33x4 〃x(〃+l)【程序】PrivateSubForm_Click()DimnAsInteger,sumAsDouble,kAsIntegern=Val(InputBox("nゴ,"請(qǐng)輸入自然數(shù)n(n>0且n<30)"))Do(45)n=Vai(InputBox("n="，"請(qǐng)重輸”))Loopsum=0(46)Dok=k+1sum= (47)LoopUntilk>=nLabel1.Caption="sum="+Str(sum)EndSub(45)A、Whilen<=0Orn>=30B、Whilen<=0Andn>=30C>Untiln>0Orn<30D、Untiln>=0Andn<=30(46)A、k=2B、k=lC、k=?lD、k=0(47)A、1/(k*(k+1)) B、1/(k-l)*kC>sum+1/(k*(k+1))D、sum+1/k*(k+1)3.【程序說明】本程序用于處理文本框Textl.Text中的內(nèi)容,假設(shè)文本框中有偶數(shù)個(gè)字符。要求將文本框中的內(nèi)容從頭尾至中間依次各取字符,組成一個(gè)新的字符串Str2,并在窗體上輸出。例如: Textl.Text="12345678",則Str2="18273645"【程序】PrivateSubForm_Click()DimStrlAsString,Str2AsStringStrl=Textl.TextStr2=,M,m=0Do(48)Str2=Str2+(49) .

Str2=Str2+ (50)m=m+1LoopForm1.PrintStr2EndSub(48)A、(48)A、Whilem<Len(Strl)/2B、Whilem<=Len(Strl)/2C、Untilm>Len(Strl)/2C、Untilm>Len(Strl)/2A、Mid(Strl,m,1)C、Mid(m,Strl,1)A、Mid(Strl,Len(Strl)B、Mid(Strl,m,1)B、Mid(Strl,Len(Strl)-m,1)D、Mid(Strl,m+1,1)m+1,1)C、Mid(Strl,Len(Strl)-叫1)D、Mid(Strl,Len(Strl)-m+1,m)試題四、程序閱讀題(每小題5分,共20分)閱讀下列程序,寫出運(yùn)行結(jié)果。.(5分)PrivateSubCommand1_Click()n=0:x=1:y=0DoWhilex<20n=n+1y=x+yX=X*(x+1)LoopTextl.Text=nn=n&Str(n)Text2.Text=,,x=n&Str(x)Text3.Text=My=n&Str(y)EndSub程序運(yùn)行時(shí)單擊Command1后,分別寫出文本框Textl>Text2和Text3的Text值。.(5分)Functionchg(aAsInteger,bAsInteger)AsIntegerDimnAsIntegerForn=0To2a=a+bNextnchg=aEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=1:b=1Forn=1To3z=chg(a,b)Forml.PrintMn=n;n,Hz=";zNextnEndSub寫出程序運(yùn)行時(shí)單擊窗體后,Forml上的輸出結(jié)果。.(5分)PrivateSubForm_Click()Dimx(5)AsIntegerx(l)=8:x(2)=3:x(3)=1:x(4)=6:x(5)=4Fori=1To4Forj=i+1To5Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=tNextj,iFork=1To5Forml.Printnx(M;k;n)=";x(k)NextkEndSub寫出程序運(yùn)行時(shí)單擊窗體后,Form!上的輸出結(jié)果。.(5分)PrivateSubForm_Click()Dima(2,3)AsIntegerFori=1To2Forj=1To3a(i,j)=2*i-jNextj,iForh=1To3Fork=1To2Forml.Printa(k,h),NextkPrintNexthEndSub寫出程序運(yùn)行時(shí)單擊窗體后,Form!上的輸出結(jié)果。試題五、程序設(shè)計(jì)題(每題10分,共20分).用輸入對(duì)話框輸入x,根據(jù)下式計(jì)算對(duì)應(yīng)的y,并在窗體上輸出y的值。{vx+sinxx>100x=102x3+6 x<10注:程序?qū)懺诿畎粹oCommand1的Click事件中。.用戶界面如圖1所示,用于實(shí)現(xiàn)左右兩個(gè)組合框中數(shù)據(jù)的左移和右移功能。程序開始運(yùn)行時(shí),在左邊組合框中生成10個(gè)由小到大排列的隨機(jī)三位正整數(shù)(假設(shè)在設(shè)計(jì)階段該組合框的Sorted屬性值已設(shè)置為True),現(xiàn)要求完成:(1)單擊“>>”鈕，左邊組合框中的10個(gè)數(shù)全部移到右邊組合框，并由大到小排列，同時(shí)使“〈グ’鈕能響應(yīng),“>>”鈕不能響應(yīng);⑵單擊“〈グ’鈕，右邊組合框中的10個(gè)數(shù)全部移到左邊組合框，并由小到大排列，同時(shí)使“>>”鈕能響應(yīng),“〈ク’鈕不能響應(yīng);(3)單擊“結(jié)束”按鈕，結(jié)束程序運(yùn)行。圖1部分程序代碼如下:PrivateSubForm_Load()DimiAsIntegerLabel1.Caption二”組合框ドLabel2.Caption="組合框2”CmdRight.Caption=H?MCmdRight.Enabled=TrueCmdLeft.Caption=M?"CmdLeft.Enabled=FalseCmdExit.Caption="結(jié)束”ComboLeft.Text二””Fori二1To10ComboLeft.AdditemInt(Rnd*900)+100NextiComboRight.Text二””EndSub請(qǐng)分別編寫三個(gè)命令按鈕的單擊事件。2002年秋浙江省高校非計(jì)算機(jī)專業(yè)學(xué)生

計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)試題三、程序填空題(本題共10分,每空2分)閱讀下列科序說明和相應(yīng)的程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。

1.【程序說明】本程序運(yùn)行時(shí),無論如何調(diào)整窗體的邊界,單擊窗體后都以窗體的中心位置為圓心、以30毫米為半徑畫出ー個(gè)圓餅圖。PrivateSubFormLoad()FillStyle=0EndSubPrivateSubForm_Click()FillColor=RGB(255,0,0)Circle(0,0),30,,-3.14159*2,-3.14159*2/3FillColor=RGB(0,255,0)Circle(0,0),30,,-3.14159*2/3,-3.14159*4/3Fillcor=RGB(0,0,255)EndSub(36)A、Scalemode=6B、Scale(-scaleWidth/2,-ScaleHight/2)-(ScaleWidth/2,ScaleHeight/2)C、Forml.Scale(-width/2,-Top/2)-(width/2,Top/2)D、Scale(-width/2,-Top/2)-(width/2,Top/2)(37)A、ScaleMode=6B、ScaleMode=lC、Scale(-ScaleWidth/2,-ScaleHeight/2)-(ScaleWidth/2,ScaleHeight/2)D、ScaleMode=2(38)A、Circle(0,0),30,-3.14159*4/3,-3,14159*2B、Circle(0,0),30,,-pl*4/3,3.14159*2C、Circle(0,0),30,,-3.14159*4/3,0D、Circle(0,0),30,,-3.14159*4/3,-3.14159*22.［程序說明］下列程序運(yùn)行時(shí),單擊Commandl(O)后,從外部文件中讀入的數(shù)據(jù)顯示在組合框中，如下圖所示。單擊Commandl(1)后，將組合框中的各表項(xiàng)輸出到外部文件:單擊中選中的表項(xiàng)ヨ.Forml刪除。Commandl(2)后,將組合框中的部分的文本添為組合框的表項(xiàng);單擊Command1(3)后,將組合框中選中的表項(xiàng)ヨ.Forml刪除。気!海987687沈建海886543張?zhí)煜?75677初登平647776

PrivateSubCommand1_C1ick(IndexAsInteger)SelectCaseIndexCase0Combo1.ClearOpen"d:\aaa.txt“ForinputAs#1DowhileNotEOF(l)LineInput#1,a$Combol.Additema$LoopClose#1Open"d:\aaa.txt"ForOutputAs#1ForI%=0ToCombi.listCount-1Print#1,Combol.list(1%)Nexti%Close#1,添加Case3,刪除EndSelectEndSubB.Combol.AppendCombol.TextD.Combol.AdditemCombol.List(Listindex)B.Combol.AppendCombol.TextD.Combol.AdditemCombol.List(Listindex)B.Combol.CISCombol.ListindexC.Combol.AddCombol.Text(40)A.Combol.RemoveCombol.ListindexC.Combol.RemoveItern Combo1.ListindexC.Combol.ClearCombol.Listindex試題四、程序閱讀題(本題共20分,每小題5分).程序運(yùn)行時(shí)單擊Command!后,輸入12345678,寫出窗體上的輸出結(jié)果。PrivateSubCommand1ClickODimxAslong,yAsStringx=InputBox("",DoWhileX00y=y&xMod10y=x\10Mod10&yx=x\100printyLoopEndSub.若列表杠控件List1的Sorted屬性為True,寫出下列程序運(yùn)行時(shí)單擊commandl后列表框中的顯示結(jié)果。Dimx(6)AsIntegerPrivateSubCommandl_Click()Listl.ClearFori%=2To5x(i%)=(x(i%)-1)+(i%+1))/3Nexti%Fori%=2To5List1.Additemx(i%)Nexti%EndSubPrivateSubForm_Load()Fori%=lTo6x(i%)=7-i%Nexti%EndSub.依次寫出下列程序運(yùn)行時(shí)四次單擊命令按鈕Commandl后窗體上的輸出結(jié)束。DimxAsInteger,yAsIntegerPrivateSubfl(aAsInteger)a=a/2EndSubPrivateSubf2(ByValbAsInteger)b=b/2EndSubPrivateSubCommand1_C1ick()Callfl(x)Callf2(y)Printx,yEndSubPrivateSubFormLoad()x=64;y=64EndSub.控件Hscrolll的屬性設(shè)置如下Hscrolll.Min=1Hscrolll.Max=9Hscrolll.Value=lHscroll1.SmallChange=2Hscroll1.LargeChange=4下列程序運(yùn)行時(shí),4次單擊滾動(dòng)條右端箭頭,寫出各次單擊時(shí)Text!上的顯示結(jié)果。DimyAsSinglePrivateFunctionfl(x2AsInteger)AsSingleStaticxlAsIntegerfl=0Fori%=xlTox2fl=fl+i%Nexti%xl=i%EndFunctionPrivateSubHscroll1_change()y=y+fl(Hscrolll.Value)Textl.Text=yEndsub試題五、程序設(shè)計(jì)題(本題共25分,第1小題5分,第2、3小題各10分).、編制事件程序CommandLClick,執(zhí)行該過程時(shí)輸入n,并計(jì)算下列表達(dá)式的值,然后將計(jì)算結(jié)果,在文本框控控件Textl中顯示。2 3 4 n1+ + + + +

3X44X55X6(n+1)(n+2)3X44X55X6(n+1)(n+2)2、xkyl己聲明為模塊級(jí)變量,鼠標(biāo)按下的事件過程如下:PrivateSubPicl_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)xl=x:yl=yEndSub編制事件過程PielMouseup,使得在圖片框控件Piel上拖動(dòng)鼠標(biāo)后,繪制出ー個(gè)矩形.鼠標(biāo)按下?抬起的位置分別為矩形斜對(duì)角線的頂點(diǎn),矩形輪廓線為紅色,矩形內(nèi)部填充已為綠色3.編程,界面設(shè)計(jì)如下:刪除文本文件中的空格aaa.txt

bbb.txt

djkvb.docdjkvb_da.dochts.zip全國汁置機(jī)考試報(bào)名卡.do王明.doc要求:通過驅(qū)動(dòng)器、目錄、文件列表框打開任何ー個(gè)文本(文件如E:\aaa.txt),該文件中有若干行字符,將每行中的字符(除空格符外)復(fù)制到另外一個(gè)通過通用對(duì)話框控件打開的文件(如e:\bbb.txt)中。程序如下,請(qǐng)將其中的事件過程Filel_Click補(bǔ)充完整。PrivateSubDriveIChange(IndexAsInteger)Dirl.Path=Drivel.DriveEndSubPrivateSubDirlClick()Dirl.Path=Dirl.List(Dirl.listindex)FileLPath=Dirl.PathEndSubPrivateSubFilel-Click()Dirl.Path=Dit1.List(Dirl.Listindex)Filel.path=DirLPathEndSubPrivateSubFilel_Click()，注意,要將結(jié)果填寫在答卷紙上。EndSub2003年秋浙江省高校非計(jì)算機(jī)專業(yè)學(xué)生

計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)試題三、程序填空題(每空2分,共10分)說明:閱讀下列程序說明和相應(yīng)程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。程序1、【程序說明】本程序是將列表框Listl與List2中各表項(xiàng)合并到List3：Listl與List2中原有各表項(xiàng)已按ASCII碼從大到小排列。要求合并后List3中各表項(xiàng)也要從大到小排列。【程序】PrivateSubCommand1Click()List3.ClearDoIf (36) ThenExitDoIf (37) ThenList3.AdditemListl.List(0):Listl.Removeitem(0)ElseList3.AdditemList2.List(0):List2.Removeitem(0)EndIfLoopFori%=0ToListl.ListCount-1List3.AdditemListl.List(i%)Nexti%Fori%=0ToList2.ListCount-1List3.AdditemList2.List(i%)Nexti%Listl.Clear:List2.ClearEndSub

A、Listl.ListCount+List2.ListCount=0B、Listl.ListCount=0C、Listl.ListCount*List2.ListCount=0D、List2.ListCount=0AnListl.Selected(0)>List2.Selected(0)B、Listl.List(0)>List2.List(0)CnListl.Listindex>List2.ListindexDnListl.List>List2.List程序2、【程序說明】程序完成兩個(gè)功能:點(diǎn)到點(diǎn)的圖片復(fù)制與圖片的“灰度化”處理。單擊“復(fù)制”按鈕(Commandl)把Picturel中的彩色圖片復(fù)制到Picture2中;單擊“灰度化”按鈕(Command2)把Picture2中的彩色圖片中的每個(gè)彩色點(diǎn)變成灰度值。每個(gè)彩色點(diǎn)的顏色值為Rgb(r,g,b),轉(zhuǎn)換為灰度值Grey=0.299*r+0.587*g+0.114*bo【程序】PrivateSubCommandl_Click()DimiAsSingle,jAsSingle,xAsSingle,yAsSingle,bAsLongFori=0ToPicturel.ScaleWidthForj=0ToPicturel.Scalelleightx=i*Picture2.ScaleWidth/Picturel.ScaleWidthy=j*Picture2.ScaleHeight/Picturel.ScaleHeightPicture2.PSet(x,y),bNextj,iEndSubPrivateSubCommand2Click()DimiAsSingle,jAsSingle,cAsLong,GreyAsLong,rAsLong,gAsLong,bAsLongFori=0ToPicture2.ScaleWidthForj=0ToPicture2.ScaleHeightc=Picture2.Point(i,j)b=Int(c/256/256)g=Int((c-b*256*256)/256)r= (39)Grey=0.299*r+0.587*g+0.114*bPicture2.PSet(i,j),Rgb(Grey,Grey,Grey)(40)EndSubAnb=Anb=Picturel.Point(X,Y)C^b=Point(i,j)AnvbRedBnInt(c)Mod256BnPicturel.Point(X,Y)D、b=Picturel.Point(i,j)CncMod256D、Rgb(255,0,0)(40)A、Nexti,j(40)A、Nexti,jB、NextiC、Nextj,iD、Loop試題四、程序閱讀題(每小題5分,共20分)說明:閱讀下列程序,將運(yùn)行時(shí)的輸出結(jié)果寫在答卷紙的相應(yīng)題號(hào)下。程序1、運(yùn)行時(shí),單擊窗體后依次輸入10、37、50、55、56、64、20、28、19、T9、0,寫出運(yùn)行結(jié)果。PrivateSubForm_Click()DimyAsIntegerDoy=InputBox(Hy=M)If(yMod10)+Int(y/10)=10ThenPrintyLoopUntily=0EndSub程序2、寫出運(yùn)行時(shí)兩次單擊窗體后屏幕上的顯示結(jié)果。DimxAsBytePrivateStaticSubFormClickODimyAsByte,zAsByteCallInit(y,z)CallOP(x,y,z)Printx,y,zEndSubPrivateSubInit(aAsByte,bAsByte)a=a+1:b=b+2:x=a+bEndSubPrivateSub0P(ByValuAsByte,vAsByte,ByRefwAsByte)u=u+1:v=v+u:w=u+v+wEndSub程序3、寫出下列程序運(yùn)行后窗體上的輸出結(jié)果。Dima(100)AsInteger,tAsBytePrivateSubForm_Load()Timer1.Interval=256t=0EndSubPrivateSubTimerl_Timer()t=t+1a(t)=a(t-1)+tTimerl.Interval=Timerl.Interval/4Printt,a(t)EndSub

程序4、運(yùn)行時(shí),若Textl.Text為空,在Text1獲得輸入焦點(diǎn)后,依次按下列按鍵:“ド、”2“、”+“、“3“、”4”、“5“、”6“、ソ“、“ド、“4“、回車鍵請(qǐng)寫出窗體上的輸出結(jié)果。PrivateSubTextIKeyPress(kAsInteger)Ifk<Asc(”〇”)Ork>Asc("9")Thenk=0PrintTextl.TextEndIfEndSub試題五、程序設(shè)計(jì)題(第1小題7分,第2小題8分,第3小題10分,共25分)1、編制事件過程Commandl/lick,調(diào)用該過程后輸入x,計(jì)算并顯示下列分段函數(shù)的值?xV(x+1) x<-2Y="Sin(x),Cos(x)-2<xW2Logiox x>22、編制事件過程Form_Click,完成下列操作:將圖片框控件的寬度設(shè)置為與高度相同(正方形);將圖片框坐標(biāo)系的原點(diǎn)設(shè)置到圖片框的中心位置:在圖片框中繪制10個(gè)同心圓,第1個(gè)半徑為r、第2個(gè)半徑為2r,...,第10個(gè)半徑為10r,第10個(gè)圓也是圖片框的內(nèi)接圓。3、編制單擊窗體的事件過程，作如下處理:輸入文件C:\A.DAT格式"02010101",78,89,90,67"02010102",83,79,72,85從文件C:\A.DAT中依次讀取輸入文件C:\A.DAT格式"02010101",78,89,90,67"02010102",83,79,72,85輸出文件“C:\B.DAT”格式02010109 90 92 91 95 36802010105 89 90 93 88 3602004年秋浙江省高等學(xué)校計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)試題三、程序填空題(每空2分，共10分)說明:閱讀下列程序說明和相應(yīng)程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。程序1、

【程序說明】單擊命令按鈕Commandl后,輸入平面上凸10邊形各頂點(diǎn)的坐標(biāo),然后計(jì)算各點(diǎn)之間連線的總長。【程序】optionbase1PrivateFunctionfl(xlAsSingle,ylAsSingle,x2AsSingle,y2AsSingle)AsSinglefl=sqr((x2-xl)*(x2-xl)+(y2-y1)*(y2-yl))EndFunctionPrivateSubCommandl_Click()DimiAsInteger,jAsInteger,sAsSingleDim(36) Fori=0To9x(i)=InputBox(Mx(H&i&")=")y(i)=InputBox(ny("&i&M)=M)NextiFori=0To8Forj=(37)s=s+ (38) NextjNextiLabel1.Caption=sEndSubA、x(9)AsSingle,y(9)AsSingleB、x(0To9)AsSingle,y(0To9)AsSingleC、x(9),y(9)AsSingleD、x(10)AsSingle,y(10)AsSingleA、i+1To9 B、iTo9D、iTo10BD、iTo10B、fl(xl,yl,x2,y2)D、fl(xi,yi,xj,yj)A、fl(x(i),x(j),y(i),y(j))C、fl(x(i),y(i),x(j),y(j))程序2、【程序說明】下列程序運(yùn)行時(shí),單擊Commandl(0)后,圖片每十分之一秒自動(dòng)左移1毫米,單擊Commandl(1)停止移動(dòng)(當(dāng)圖片尾部移出窗體后,圖片從窗體右端進(jìn)入窗體)。界面設(shè)計(jì)如圖1所示圖1程序2的界面設(shè)計(jì)【程序】PrivateSubCommand1Click(IndexAsInteger)IfIndex=0ThenTimerl.Enabled=TrueElseTimer1.Enabled=FalseEndSubPrivateSubForm_Load()Timerl.Interval= (39)Forml.SealeMode=6Timerl.Enabled=FalseEndSubPrivateSubTimerl_Timer()Picturel.Left=Picturel.Left-1IfPicturel.Left+Picturel.Width<=Forml.ScaleLeftThenPicturel.Left= (40)EndSubA、0.1 B、1 C、100 D、0.6A、Forml.ScaleRightB、Forml.Left+Forml.WidthC、Forml.ScaleLeft+Forml.ScaleWidthD、Forml.Width試題四、程序閱讀題(每小題5分,共20分)說明:閱讀下列程序,將運(yùn)行時(shí)的輸出結(jié)果寫在答卷紙的相應(yīng)題號(hào)下。程序1、順序?qū)懗鲞\(yùn)行時(shí)在文本框控件Textl中輸入abed后,列表框控件List!中的各表項(xiàng)。DimsAsStringPrivateSubForm_Load()Listl.ClearTextl.Text=H"EndSubPrivateSubTextl_Change()s=s+Textl.TextListl.AdditemsEndSub程序2、寫出下列程序運(yùn)行時(shí)四次單擊復(fù)選框控件checkl后窗體上的顯示結(jié)果。PublicsAsLong,nAsIntegerPrivateSubf2(ByRefnAsInteger)DoWhilen>0s=s+nn=n-1LoopEndSubPrivateSubFormLoad()n=5Checkl.Value=0EndSubPrivateSubcheckl_Click()StaticssAsLongCallf2(n)ss=ss+sPrintss;s;nEndSub程序3、寫出下列程序運(yùn)行時(shí),單擊窗體后窗體上的顯示結(jié)果。PrivateSubForm_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerFori=1To4Forj=1To4a(i,j)=Trim(Str(i))+Trim(Str(j))NextjNextiFori=1To4Forj=1To4PrintTab((j-1)?4+1);a(i,j);NextjPrintNextiEndSub程序4、依次畫出下列程序運(yùn)行時(shí)單擊命令按鈕Commandl后四個(gè)圖片框上圖案的形狀。PrivateSubForm_LoadODimiAsByteFori=0To3Picturel(i).FillStyle=(i+1)Mod2Picturel(i).CisNextiEndSubPrivateSubCommandl_Click()DimiAsByteFori=0To3Picturel(i).Scale(-10,10)-(10,-10)NextiPicturel(0).Line(TO,10)-(0,0)Picturel(0).Line一(TO,TO)Picturel(1).Circle(0,0),5Picturel(2).Circle(0,0),5,,0,3.14159Picturel(3).Circle(0,0),5,,,,2EndSub試題五、程序設(shè)計(jì)題(第1、3小題各10分,第2小題5分,共25分)1、編制事件過程CommandLClick,執(zhí)行該過程時(shí)輸入n以及n個(gè)數(shù)，計(jì)算這n個(gè)數(shù)的和并在文本框控件Text1中顯示。2、編制事件過程Picl_MouseMove,使得當(dāng)鼠標(biāo)在圖片框控件Piel上移動(dòng)時(shí)的坐標(biāo)值能夠適時(shí)通過標(biāo)簽控件Label1、Label2顯示。【提示】事件過程Picl_MouseMove的首句如下:PrivateSubPicl_MouseMove(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)3、文本文件d:\aaa.txt中存放了若干個(gè)數(shù),編制事件過程Form_Load順序讀這些數(shù)并在組合框控件Combol中逐行顯示。2005年春浙江省高等學(xué)校計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)試題三、程序填空題(每空2分,共20分)說明:閱讀下列程序說明和相應(yīng)程序,在每小題提供的若干可選答案中,挑選ー個(gè)正確答案。程序1、【程序說明】單擊窗體后，用輸入對(duì)話框輸入x、n,按下式計(jì)算結(jié)果。要求:將計(jì)算結(jié)果以標(biāo)簽控件顯示,且每秒鐘隨機(jī)變換ー次顏色。Xス2ス3 >n2i+T+￥+，"+(^7iji【程序】PrivateSubForm_Load()Timeri.Interval=1000:Timeri.Enabled=FalseEndSubPrivateSubForm_Click()DimxAsSingle,nAsInteger,iAsInteger,tAsSingles=0:x=lnputBox(“x=")：n=lnputBox(“n=")

Fori=(23)t=t*x/i:s=s+tNextiEndSubPrivateSubTimeri_Timer()Label1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Label1.Caption=sEndSubA、A、StaticsAsSingleC、OptionBase1A、t=?1B、t=0A、2Ton+1B、1TonA、Timeri.Enabled=FalseC、Label!.Enabled=FalseB、DimsAsSingleD、ConstsAsSingleC、t=2 D>t=1C>2TonD>1Ton+1B、Timeri.Enabled=TrueD、LabeH.Enabled=True程序2、【程序說明】下列程序運(yùn)行時(shí),先輸入各公司月銷售額,然后單擊命令按鈕,圖片框中將顯示各公司銷售額的圓餅圖（如圖1所示）。要求:在文本框中只能輸入數(shù)字字符:在圓餅圖中分別用紅、綠、藍(lán)色顯示A、B、C公司的扇區(qū)填充色。圖1程序2的界面設(shè)計(jì)【程序】PrivateSubCommand1_Click() ’繪制圓餅圖ConstPI=3.141593DimaAsSingle,bAsSingle,cAsSingle,xAsSinglePicturel.Scale(-8,-8)-(8,8)a=Text1(0).Text:b=Text1(1).Textc=Text1(2).Textx=2*PI/(a+b+c) ’計(jì)算每個(gè)單位在圓餅圖中所占圓心角的弧度值Picture!.FillColor=RGB(255,0,0)Picturel.Circle(0,0),6,0,(26)

Picturel.FillColor=RGB(0,255,0)Picturel.Circle(0,0),6,0,-a*x,-(a+b)*xPicturel.FillColor= (27)Picturel.Circle(0,0),6,0,-(a+b)*x,-(a+b+c)*xEndSubPrivateSubForm_Load()Picturel.Width=Picturel.HeightEndSubPrivateSubTextl_KeyPress(IndexAsInteger,KAsInteger)If(28) .ThenK=0EndSubB、Picturel.DrawStyle=0DB、Picturel.DrawStyle=0D、Picturel.FillStyle=0C>-2*PI,-a*xD、2*PI,a*xC、Blue D、RGB(0,255,0)B、Kv”0”O(jiān)rK>”9”D、K<0OrK>9C、Picturel.DrawStyle=1A、2*PI,-a*x B、-2*PI,a*xA、RGB(255,0,0)B、vbBlueA、KvAsc(“〇”)OrK>Asc("9")C、K<Asc(0)OrK>Asc(9)程序3、【程序說明】Form2的過程Command1_Cli