資源描述：
《專(zhuān)升本VB上機(jī)編程作業(yè)1_題解》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、專(zhuān)升本VisualBasic上機(jī)編程作業(yè)（一）及題解一、循環(huán)結(jié)構(gòu)程序設(shè)計(jì)：1、編程找滿(mǎn)足條件的值。例1：編程求解百錢(qián)買(mǎi)百雞問(wèn)題。公雞每只5元，母雞每只3元，小雞三只1元，百元錢(qián)買(mǎi)百只雞，問(wèn)公雞、母雞、小雞各若干？程序代碼如下：1Dimx%,y%,z%Forx=1To20Fory=1To33Z=100-x-yIf5*x+3*y+z/3=100ThenPrint”公雞：”;x，”母雞：”;y，”小雞：”;zNextyNextx請(qǐng)參考以上程序，完成下列編程。1.1、（09專(zhuān)升本編程題）雞免同籠問(wèn)題：已
2、知籠中雞和免共36只，它們的腳共有100只，編程計(jì)算雞和免分別有多少只。DimxAsInteger,y%Forx=1To35y=36-xIf2*x+4*y=100ThenPrint"雞：";x;"免：";yNextx1.2、已知兩個(gè)三位數(shù)相加之和abc+cba=1333，編程計(jì)算并輸出能滿(mǎn)足這個(gè)條件的所有a、b、c的值。Dima%,b%,c%Fora=1To9Forb=0To9Forc=1To9If(a+c)*100+2*b*10+c+a=1333ThenPrint"a=";a,"b=";b,"
3、c=";cNextcNextbNexta1.3、有一籃雞蛋（總數(shù)小于500），二個(gè)一數(shù)多一個(gè)，三個(gè)一數(shù)多二個(gè)，四個(gè)一數(shù)多三個(gè)，五個(gè)一數(shù)多四個(gè)，六個(gè)一數(shù)多五個(gè)，七個(gè)一數(shù)正好，編程求雞蛋的數(shù)量。Dimi%Fori=1To499IfiMod2=1AndiMod3=2AndiMod4=3AndiMod5=4AndiMod6=5AndiMod7=0ThenPrint"雞蛋的只數(shù)=:";I：exitforNextiDimi%i=0DoUntili>=500i=i+18IfiMod2=1AndiMod3=2A
4、ndiMod4=3AndiMod5=4AndiMod6=5AndiMod7=0ThenPrint"雞蛋的只數(shù)=:";iLoop1.4、馬克思曾經(jīng)做過(guò)這樣一道趣味數(shù)學(xué)題：有30個(gè)人在一家小飯館里用餐，其中有男人、女人和小孩。每個(gè)男人花了3先令，每個(gè)女人花了2個(gè)先令，每個(gè)小孩花了1個(gè)先令，一共花了50先令。問(wèn)男人、女人及小孩各有幾個(gè)？試編程求解。Dimx%,y%,z%Forx=1To16Fory=1To25z=30-x-yIf3*x+2*y+z=50ThenPrintx,y,zNexty,x1.5、
5、編程實(shí)現(xiàn)搬磚問(wèn)題：有36塊磚，36人搬，男人搬4塊，女人搬3塊，2個(gè)小孩抬1塊，要求一次搬完，問(wèn)需要男人、女人、小孩各多少人？1.6、編寫(xiě)程序找出100到1000之間所有能被3整除且不能被5整除的整數(shù)，計(jì)算和并在窗體中輸出滿(mǎn)足此條件的所有整數(shù)及其和。Dimi%,s&,k%s=0k=0Fori=100To1000IfiMod3=0AndiMod5<>0ThenPrinti;k=k+1IfkMod10=0ThenPrints=s+iEndIfNextiPrintPrint"s=";s1.7、打印九九
6、乘法表參考P97例4.19方法一：Dimi%,j%PrintPrintSpace(50);"九九乘法表"PrintFori=1To9Forj=1ToiPrintTab(10*j);i&"×"&j&"="&i*j;NextjPrintNexti8方法二：DimsAsString'打印標(biāo)題PrintChr(10);Tab(30);"九九乘法表"PrintTab(29);"------------"'打印乘法表Fori=1To9Forj=1Tois=i&"×"&j&"="&i*jPrintTab((j
7、-1)*9+3);s;NextjForm1.PrintNexti若想輸出下列樣式，如何改程序？1.8、有一堆蘋(píng)果，個(gè)數(shù)在50至500之間，按5個(gè)人均分余4個(gè)，按6個(gè)人均分余3個(gè)，按7個(gè)人均分余2個(gè)，設(shè)計(jì)程序，計(jì)算輸出蘋(píng)果有多少個(gè)？2、求和、求階乘等問(wèn)題：例2：編寫(xiě)程序，計(jì)算自然對(duì)數(shù)度數(shù)e的值，并將結(jié)果顯示在窗體中(直到最后一項(xiàng)小于10-7為止)。e≈Dimi%,t#,e#e=0:i=0t=1DoUntilt<10^(-7)i=i+1t=t/ie=e+tLoopPrint“e≈=”;e例：編寫(xiě)程序
8、計(jì)算公式的值。DimI%,j%,n%,p#,s#8n=inputbox(“輸入n的值：”)s=1Fori=1tonstep2p=1Forj=1to2*i-1p=p*jNexts=s+1/pNextPrints例3：某員工的年工資為15萬(wàn)元人民幣，員工工資每年漲9.8%，多少年后該員工工資翻一番。Dima%,i%a=15：I=0DoWhilea<30a=a*(1+0.098)：i=i+1LoopPrinti;”年后該員工工資翻一番”2.1、請(qǐng)參考該程序，完成P108編程第（6）題、第（8）題編程（
