VB实验指导与练习题实验部分的参考答案.doc

《VB实验指导与练习题实验部分的参考答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB实验指导与练习题实验部分的参考答案：实验44-1：2*pi*rPi*r*r4-3:chr(64+n)4-4:xmod10x10mod10x1004-5:mid(s,i,1)=Lcase(t)实验55-1：a+b+c+dSum/45-2:(4*h-f)/2(f-2*h)/25-4:sec360024Secmod(1&24*3600)mod3600mod605-5:0.5*g*t*t+v0*t实验66-1:left(text1,text1.selstart)&text2&right(text1,len(text1)–text1.selstart)6-2:tim

2、er1.enabled=trueTimer1.enabled=false6-3:shape2.left=shape2.left+d*506-5:a&check2.caption6-6:list1.listcount-16-7:1000List1.list(i)6-8:text1实验77-1:n=n-3500n-ytext1.setfocus7-2:a=a&c7-3:sum+jSum=12507-4:m=nn=rr=mmodn7-5:ifamodi=0thenexitfor7-6:text1S2&mid(s1,k,1)S2=””7-7:2nfactorfactor+1

3、7-8:n7-9:sum=0s&i&“+”list1.clear7-10:mid(text1,i,1)实验88-1：a(i)=a(16-i)a(16-i)=temp8-2:a(i-2)+a(i+1)+1Text2&vbcrlf8-3:picture1.printi=1to5sum=sum+a(I,j)nextisum+a(i,j)+a(i,6-i)not(i>1andi<5orj>1andj<5)8-4:text1&str(a(i))Ifa(i)

4、i,4)A(i,4)=t8-8:picture1.printa(i,j);Sum=sum+a(k,k)8-9:exitfornum=a(i)8-10:i+1to10a(i)>a(j)