VisualBasic编程与应用.ppt

Visual Basic编程与应用 形成性考核作业册参考答案 作　业（二） * * ?1、dim y as integer 　 dim f as integer dim k as integer y=txtyear.text f=(y-1)*(1+1/4-1/100+1/400)+1 k=f-int(f/7)*7 txtday.text=k 2、if txtname=”guest and txtpassword=”12345” then print”欢迎使用本系统” else print”对不起，你不是本系统用户” end if 3、Private sub cmdsize_click() tmrsize.interval=vshsize.value End sub Private sub cmdstop_click() Tmrsize.interval=0 End sub Private sub tmrsize_Timer() If imgsize.Width=0 then Imgsize.width=2000 End if Imgsize.width=imgsize.width-50 Imgsize.height=imgsize.height-50 End sub 4、Private sub command1_click(index as integer) Select case index Case 0,1,2,3,4,5,6,7,8,9 Txtphoneno.text=txtphoneno.text index End select End sub 5、(1) A$=”abc” (2) Print “a=”;34+23 (3) x=5:y=6 (4) Print”c=”;5+6 (5) Text1.text=”# # # # # # # #” (6) A=(B+2)/5 6、(1) 25+32 57 (2) x=12.5 (3) 3 (4) ChinaBeijing TianjinShanghai Wuhan NanjingShenyang ChongqingWulumuqi Guangzhou Chengdu (5) 4个空格100　5个空格200 35个空格 9个空格400 23个空格500 5个空格600 7、10 15 20 10 15 20 20 + 25 = 45 8、Private sub Form_Load() dim num1,num2,num3,num4,sum,ave as double num1=val(inputbox(“please input first num”)) num2=val(inputbox(“please input second num”)) num3=val(inputbox(“please input third num”)) num4=val(inputbox(“please input forth num”)) sum=num1+num2+num3+num4 ave=sum/4 print “sum=”:sum print”arv=”:ave end sub 9、Private sub cmddisp_click() txtall.text=”姓名”+txtname.text+”年龄”+txtage.text+ ”通讯地址”+txtadd.text+”邮政编码”+|txtpostcade.text+ ”电话”+txtphone.text