vb編程題經(jīng)典案例

1、VB經(jīng)典案例1輸入3個(gè)數(shù)，輸出最大的數(shù)X=val(text1)y=val(text2)z=val(text3)ifx=ythenifx=zthenprintxelseprintzendifelseify=zthenprintyendif2有一元二次方程：aX2bXc=0，依次輸入a，b，c，判斷此方程是否有實(shí)根a=val(text1)b=val(text2)c=val(text3)Ifbb4ac=0thenprint“有實(shí)根”elsep

2、rint“無實(shí)根”endif3輸入一個(gè)成績，若大于等于60，則用消息框顯示“恭喜！成績通過！”，若小于60，則彈出消息框顯示“抱歉！成績沒有通過！”N=val(text1)ifn=60thenmsgbox”恭喜！成績通過!”elsemsgbox“抱歉！成績沒有通過！”endif4輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息(判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）y=val(text1)ifymod4=0

3、ymod100=0thenprint“y是閏年”elseprinty“不是閏年’”endif5輸入學(xué)生的百分制成績，轉(zhuǎn)換輸出為五級制成績，90～100分轉(zhuǎn)換為優(yōu)秀，80～89轉(zhuǎn)換為良好，70～79轉(zhuǎn)換為中等，60～69轉(zhuǎn)換為及格，0～60轉(zhuǎn)換為不及格。Ifmark=90thengrade=‘優(yōu)’elseIfmark=80thengrade=‘良’elseIfmark=70thengrade=‘中’elseIfmark=60thengra

4、de=‘及格’elsegrade=”不及格”6隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。例如，產(chǎn)生246，輸出是642。n=int(rnd900100)dimx%a%b%c%a=xmod10b=int((xmod100)10)c=int(x100)printxa100b10c7輸入兩個(gè)整數(shù)，求它們的最大公約數(shù)。Functiongcd%(byvalm%byvaln%)ifmmthenm=int(m)1printm14

5、小猴有桃若干，第一天吃掉一半多一個(gè)；第二天吃剩下桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天只剩一個(gè)，問小猴原有桃多少Dimn%i%x=1fi=6to1step1x=2(x1)printxnexti15求100以內(nèi)的素?cái)?shù)Dimm%i%tagasbooleanfm=3to100step2tag=truefi=2tom1ifmmodi=0Thentag=falsenextiIftag=truethenprintm&”是素?cái)?shù)”

6、elseprintm&”不是素?cái)?shù)”Endifnextm16百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞案。Dimx%，y%z%n%n=0print“母雞”，”公雞”，”小雞’fx=0to33fy=0to50Z=100xyn=n1if3x2y0.5z=100thenprintxyznextynextx17編程求斐波那契數(shù)列前11項(xiàng)。（斐波那契數(shù)列：F(0)=f(1)=1F(n)=F(n1)F(n2)n=2）D