第二章第一节VB语言及程序开发环境.pptVIP

2.1 VB语言及程序开发环境 鸡兔同笼 Private sub command1_click() a=inputbox(“a=”,”输入头数”) b=inputbox(“b=“,”输入脚数”) x=2*a-b/2 y=b/2-a print “鸡数x=”;x, “兔数y=”;y End sub 求100以内能被3整除的数 Private sub command1_click() i=1 do if i mod 3=0 then print i i=i+1 loop while i=100 End sub 求最大公约数 Private sub command1_click() m=9147485 n=5147480 r=m mod n do while r0 m=n n=r r=m mod n loop print “最大公约数=”;n End sub 求半径为R的圆的面积 Private sub command1_click() Const pi as single=3.14 dim r as single,s as single r=inputbox(“r=”, “输入半径”）