vb程序改錯和程序設(shè)計

【程序改錯】'題目：該程序的功能是求出100到200之間的全部素數(shù)，并且按每行4個、每個數(shù)據(jù)之間有10個空格的格式輸出。'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)'PrivateSubForm_Click()dimkasinteger,iasinteger,jasintegerk=0Fori=100To200'**********FOUND**********Forj=1Toi-1IfiModj=0ThenExitForNextjIfj=iThen'**********FOUND**********Printi;Tab(10);k=k+1'**********FOUND**********IfkMod5=0ThenPrint;EndIfNextiEndSub答案：1).Forj=2Toi-1或Forj=2To-1+i2).Printi;Space(10);3).IfkMod4=0ThenPrint━━━━━━━━━━━━━━━━'【程序設(shè)計】''題目：(事件)單擊窗體。(響應(yīng))求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中答案：26__________________________________DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum'【程序改錯】'------------------------------------------------'題目：在下面的程序段中過程pd可以判斷任意三個數(shù)能'否構(gòu)成三角形的三邊，利用該過程的判定結(jié)果，對能構(gòu)成三角形的計算其面積，構(gòu)不成的顯示"不能構(gòu)成三角形OptionExplicitPrivateSubForm_Click()'**********FOUND**********Dimx%,y%,z%,s%,bAsBoolean,hasSinglex=InputBox("請輸入三角形的邊長")y=InputBox("請輸入三角形的邊長")z=InputBox("請輸入三角形的邊長")=InputBox("請輸入三角形的邊長")b=pd(x,y,z)h=(x+y+z)/2'**********FOUND**********IfnotbThens=Sqr(h*(h-x)*(h-y)*(h-z))Print"三角形面積是";sElsePrint"不能構(gòu)成三角形"EndIfEndSub'**********FOUND**********PublicFunctionpd()AsBooleanIfx>0Andy>0Andz>0Andx+y>0Andx+z>yAndy+z>xThenpd=TrueElsepd=FalseEndIfEndFunction答案：1).Dim★x%★,★y%★,★z%★,★s!★,★b★AsBoolean★,★hAsSingle2).IfbThen3).PublicFunctionpd(x%,y%,z%)AsBoolean━━━━━━━━━━━━━━━━三、程序設(shè)計共1題（共計15分)'題目：(事件)雙擊窗體。'(響應(yīng))編寫代碼功能如(圖1)。將結(jié)果存入變量S中答案：12___________________________________DimiAsIntegers=1Fori=1To10s=s*i*iNextPrint(CStr(s))'------------------------------------------------'【程序改錯】'------------------------------------------------'題目：下面的程序段用于刪除數(shù)組中指定位置的數(shù)字，'如果位置錯誤給出提示，否則分別顯示刪除前'后的數(shù)組元素'------------------------------------------------'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)'------------------------------------------------PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerDimiasinteger,kasintegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("請輸入要刪除第幾位數(shù)字")'**********FOUND**********Ifx<0Then'**********FOUND**********Fork=xTo10'**********FOUND**********a(k+1)=a(k)NextkPrint"刪除后的數(shù)組:"Fori=1To9Printa(i);NextiElsePrint"刪除位置錯誤"EndIfEndSub答案：1).Ifx>0Then或If0<xThen2).fork=xto93).a(k)=a(★k★+★1★)'【程序設(shè)計】'-------------------------------------------------'題目：(事件)雙擊窗體。'(響應(yīng))編寫代碼功能如(圖1)。'將結(jié)果存入變量S中答案：12___________________________________DimiAsIntegers=1Fori=1To10s=s*i*iNextPrint(CStr(s))【程序改錯】'------------------------------------------------'題目：一個兩位的正整數(shù)，如果將它的個位數(shù)與十位數(shù)對調(diào)，則產(chǎn)生另一個正整數(shù)，我們把后者叫做前者的對調(diào)數(shù)，現(xiàn)給定一個兩位的正數(shù)，請找到另一個兩位的正整數(shù)，使得這兩個兩位正整數(shù)之和等于它們各自的對調(diào)數(shù)之和。例如；12+32=23+21。下面程序把具有這種特征的一對對兩位正整數(shù)都找出來。OptionExplicitPrivateSubForm_Click()dimkasInteger,gasInteger,hasInteger,masIntegerdimnasInteger,iasInteger,tasInteger,sasInteger,jasIntegerk=InputBox("請輸入一個兩位數(shù)")k=Val(k)g=Int(k/10)'**********FOUND**********h=k-g*10m=h*10+gPrintPrint"輸入的兩位數(shù)是";kPrint'**********FOUND**********Forn=1To99i=Int(n/10)j=n-i*10t=i*10+js=j*10+iIfk+n=m+sThenPrint"";k;"+(";t;")=(";s;")+";m'**********FOUND**********EndNextnEndSub【程序設(shè)計】'題目：(事件)雙擊窗體。(響應(yīng))求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中答案：25__________________________________DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum【程序改錯】'題目：以下程序段用于輸出100-300的所有素數(shù)PrivateSubForm_Click()dimnasInteger,kasInteger,iasInteger,switasIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********FOUND**********swit=1'**********FOUND**********Whileswit=0IfnModi=0Thenswit=1else'**********FOUND**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub答案：1).swit=02).While★i<=k★And★swit=0★或While★k>=i★And★swit=0★3).i=★i★+★1━━━━━━━━━━━━━━━━'【程序改錯】'題目：程序功能根據(jù)輸入的學(xué)習(xí)成績,分別顯示優(yōu)秀(90分以上),良好(75分以上),及格(60分以上不及格幾個等級.'------------------------------------------------PrivateSubForm_Click()ClsDimiAsIntegeri=InputBox("請輸入學(xué)習(xí)成績")SelectCaseI'**********FOUND**********Case0<I<100MsgBox"成績應(yīng)該在0--100之間"'**********FOUND**********Case90Print"優(yōu)秀"Case75To90Print"良好"Case60To75Print"及格"'**********FOUND**********CaseMsgBox"不及格",vbCriticalEndSelectEndSub答案：：1).Case★i>100★or★i<0或Case★100<i★or★i<0或Case★i>100...2).Case90To1003).Caseelse'【程序設(shè)計】'-------------------------------------------------'題目：(事件)雙擊窗體。(響應(yīng))求1+5+10+15+……+500的和，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。答案：27DimiAsIntegerFori=1To500IfiMod5=0Thensum=sum+iEndIfNextPrintsum'------------------------------------------------'【程序改錯】'題目：以下程序段用于打印如下圖形式的九九乘法表：'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)'------------------------------------------------PrivateSubForm_Click()dimiasInteger,jasInteger,kasIntegerPrintTab(30);"9*9table"Print:PrintPrint"*";Fori=1To9'**********FOUND**********PrintTab(i*6);INextiPrintForj=1To9Printj;"";'**********FOUND**********Fork=1To9'**********FOUND**********PrintTab(j*6);j*k;"";NextkprintNextjEndSub答案：1).PrintTab(★i★*★6★);★I;2).Fork=1Toj3).PrintTab(★k*★6★);★j★*★k★;″″;'【程序設(shè)計】'題目：(事件)單擊窗體。'(響應(yīng))求1+2+3+……+100的值，并把結(jié)果輸出在窗體上。結(jié)果存入變量SUM中。答案：23_________________________________DimiAsIntegerFori=1To100sum=sum+iNextPrintsum_________________________【程序改錯】'------------------------------------------------'題目：求s=72+102+132+……832的值。'------------------------------------------------'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)'------------------------------------------------PrivateSubForm_Click()ClsDimsAsLongDimiAsInteger'**********FOUND**********s=1'**********FOUND**********Fori=7To832s=s+I'**********FOUND**********Next30PrintsEndSub答案：1).s=02).Fori=7To832step303).Nexti'【程序設(shè)計】'-------------------------------------------------'題目：(事件)雙擊窗體。(響應(yīng))求出50以內(nèi)所有奇數(shù)的和。將結(jié)果存入變量SUM中。'注意：請在指定的事件內(nèi)編寫代碼。答案：19____________________________________DimiAsIntegerFori=1To50IfiMod2=1Thensum=sum+iEndIfNextPrintsum'【程序改錯】'------------------------------------------------'題目：以下程序段用于計算貨物運費。設(shè)貨物運費每噸單價p元與運輸距離s公里之間有如下關(guān)系：'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)'------------------------------------------------PrivateSubForm_Click()Dimw!,s!DimpAsCurrency,tAsCurrencyw=InputBox("請輸入貨物重量")s=InputBox("請輸入托運距離")SelectCasesCaseIs<100p=30'**********FOUND**********CaseIs<=200andIs>=100p=27.5CaseIs<300p=25CaseIs<400p=32.5'**********FOUND**********CaseOtherp=20'**********FOUND**********EndIft=p*w*sPrint"總運費:";t;"元"EndSub答案：1).CaseIs<2002).CaseElse3).EndSelect━━━━━━━━━━━━━━━━'【程序設(shè)計】'-------------------------------------------------'題目：(事件)雙擊窗體。(響應(yīng))求1+5+10+15+……+500的和，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。答案：27____________________________________DimiAsIntegerFori=1To500IfiMod5=0Thensum=sum+iEndIfNextPrintsum'【程序設(shè)計】'-------------------------------------------------'題目：(事件)單擊窗體。(響應(yīng))求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中。答案：26DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum【程序改錯】'------------------------------------------------'題目：程序功能為打印下列圖形：'*'**'***'****'*****PrivateSubForm_Click()ClsDimiAsIntegerDimjAsInteger'**********FOUND**********Fori=1To7'**********FOUND**********Forj=1To5'(3)Print"*";'**********FOUND**********NextI'(5)PrintNextiEndSub答案：1).Fori=1To52).Forj=1Toi3).Nextj'題目：(事件)雙擊窗體。(響應(yīng))s=20+21+22+…+263，求s的值，并將結(jié)果存儲到變量S中。答案：06____________