資源描述：
《vb過程程序練習(xí)及部分答案》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、過程程序部分習(xí)題：1.編寫程序，輸出下列方陣2.上海政府2011年發(fā)布房產(chǎn)稅政策的規(guī)定，木市居民家庭在本帀新購且屬于該家庭第二套及以上住房的，合并計算的家庭全部住房面積人均超過60n?的，對屬新購住房超出部分的面積，按如下公式計算：應(yīng)稅面積*單價*70%*0.4%3.酒會上，要求每人少其他少會者只碰杯一次，一直碰杯聲為903次，編寫程序計算出席酒會的人數(shù)。PrivateSubForm_Click()Dimn%,k%n=0k=0DoWhilen<903k=k+1n=n+k-1LoopPrintkEndSub4.將止整數(shù)分解成質(zhì)因數(shù)的乘積Private
2、SubForm_Click()Dimn%,s$n=Val(InputBox("請輸入一個口然數(shù)n：”))nl=nk=2s=,H,DoWhilen<>1IfnModk=0Thens=s&“x”&kn=nkElsek=k+1
3、EndIfLoopPrintn1&&Mid(s,2)EndSub1.根據(jù)2011年1月媒體發(fā)布信息，北京市商品房平均價格為30479元/n?。假定一位剛在北京參加工作的年輕人，起點工資為5000元，每年工資增長5%,房價每年增長3%,計算在忽略所有開支的情況下，這位年輕人需要多少年買下一套70m2的住房。PrivateSubFo
4、rm_Click()Dimnpay#,hpay#,i%i=1npay=5*12s=nhpay=30.479*70DoWhiles<=hpayi=i+1npay=npay*1.05s=s+npayhpay=hpay*1.03LoopPrintiEndSub2.一張試卷共25題，評分規(guī)定答對一題得4分，答錯或不答均倒扣一分。己知一同學(xué)答卷得分60分，計算該同學(xué)答對■多少題。3.在文本框輸入一串字符，統(tǒng)計其中大寫和小寫字符數(shù)。4.讓算足球上黑皮和白皮數(shù)冃PrivateSubForm_Click()Dimb%?w%Forb=1To32Forw=1To32I
5、fbMod3=0AndwMod5=0_AndbMod6=0Andb+w=32ThenPrintMblack=M&bPrint"white=M&wEndIfNextwNextbEndSub9?實現(xiàn)字符串逆序輸出?如下界面可參考10.輸入一個數(shù)，判斷是否為回文數(shù)。（即正讀反讀相同的數(shù)，如:123454321）11.輸出九九乘法表12.在文本框text1,text?輸入任意正整數(shù),單擊"計算累加和”按鈕Command1,兩個是之間所有整數(shù)（包括輸入兩個數(shù)值）的累加和，將結(jié)果顯示在Label1中。13.輸出100以內(nèi)索數(shù)，統(tǒng)計個數(shù)，并計算和值?Foral
6、JY100以內(nèi)奈數(shù)39319312—67717^135131689731971357813193;12—-□9100內(nèi)索數(shù)共21個.Jtfilffl為：1058O""I14.計算兩數(shù)最人公約數(shù)，最小公倍數(shù)（自然數(shù)）如下界面可作參考15.輸出如下圖形PrivateSubCommandl_Click()Picture1.Cisn=Val(Tcxtl.Text)Fori=-nTonPicture1.PrintTab(n+Abs(i));number1=2*(n-Abs(i))+1string1=Trim(Str(Abs⑴))Picture1.PrintS
7、tring(numbcrl,string1)NextiEndSub數(shù)組16.p!247題17.楊輝三角p31518.查找文本框中最長單詞PrivateSubCommand1_Click()stext=Text1.Texta=Split(stext,””)ma=Lcn(a(0))slong=a(0)Fori=1ToUBound(a)IfLcn(a(i))>maThenma=Len(a(i))slong=a(i)EndIfNextiLabel1.Caption=slongEndSub16.生成一個不重復(fù)的2位隨機數(shù)序列PrivateSubForm_Cl
8、ick()CisDima(lTo10)AsInteger,rAsBoolean,i%?j%i=1DoWhilei<=10a(i)=Int(Rnd*90)+10r=TrueForj=1Toi-1Ifa(j)=a(i)Thenr=FalseNextjIfr=TrueThenPrinta(i);i=i+1EndIfLoopEndSub2().統(tǒng)計序列屮峰值，及其個數(shù)21.序列中最大值最小值，及其位置22.大于平均數(shù)的數(shù)，及其個數(shù)23.—家冇80間客房的旅館，若每LI定價160元，貝I」客滿；每將租金上漲20元，就會失去3位客人。入住了的客歷每FI所需服務(wù)
9、，維修等支出共計40元。編程計算應(yīng)該如何定價才能賺最多的錢。PrivateSubForm_Click()Dims%(80)
