资源描述：
《VB实验指导书-测试题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、营销1042VB实验指导书测试题答案第1章测试题答案一、AABD第2章测试题答案一、BCDACACC二、1．Gotfocus2．Lostfocus3．Setfocus4．Style，15．S(165)6．Vbp7.18.ScrollBars三、1．答：PrivateSubForm_Click()Form1.BackColor=vbBlueEndSubPrivateSubForm_DblClick()Form1.BackColor=vbRedEndSub8营销10422．答：（1）若在设计状态完成：在窗体上放一标签框，各对象属性按下表进行设置即可。
2、对象属性属性值Form1Caption示例BackColor白色StartUpPosition2Label1Caption欢迎使用VB6.0！BackColor蓝色ForeColor黄色Font黑体斜体20号（2）若在运行状态完成：编写窗体的Load事件过程如下：PrivateSubForm_Load()Form1.BackColor=vbWhiteLabel1.Caption="欢迎使用VB6.0！"Label1.ForeColor=vbYellowLabel1.BackColor=vbBlueLabel1.FontName="黑体"Label
3、1.FontItalic=TrueLabel1.FontSize=20EndSub第3章测试题答案8营销1042一、BBDBCADA二、1．True”cde”2．”bcd”-123．True”abc123xy”4．A*exp(-2*t)*sin(50*t+3)5．4/3*3.1416*r^36．Long&7．Double#8．关系逻辑8营销1042第4章测试题答案一、BBBABADBDAADBAC8营销1042二、1．判断奇偶数InputBox("输入一个整数")IfaMod2=1ThenElseMsgBoxa&"是偶数"2．计算Y值Val(Te
4、xt1.Text)x>100Thenx>0ThenElse3．购物优惠x8营销1042Is>5000Is>3000Is>2000Is>1000CaseElse4．1+2+。。。+N>1000的最小N值Untils>1000s=s+n5．输出图形i=1To6j=1To2*i-1Print"*";Nextj8营销1042三、1．判断任意一个三位正整数是否为水仙花数。8营销1042PrivateSubCommand1_Click()k=InputBox("输入3位正整数")s1=Val(Mid(k,1,1))s2=Val(Mid(k,2,1))s3=V
5、al(Mid(k,3,1))Ifs1^3+s2^3+s3^3=Val(k)ThenMsgBoxk+"是水仙花数"ElseMsgBoxk+"不是水仙花数"EndIfEndSub8营销10422．找出不大于1000的最大素数。8营销1042PrivateSubCommand1_Click()DimIAsInteger,JAsIntegerForI=1000To1Step-1K="I是素数"'先假设I是素数'以下判断I是否是素数ForJ=2ToI-1IfIModJ=0ThenK="I不是素数"NextJIfK="I是素数"ThenPrintIExitF
6、orNextIEndSub8营销10423．用近似公式计算ex值：8营销1042PrivateSubCommand1_Click()DimxAsInteger,iAsInteger,kAsDoubleDimexAsDouble,tAsDoublex=Val(Text1.Text)ex=1:i=0:k=1:t=1DoWhileAbs(t)>=0.000001i=i+1k=k*it=x^i/kex=ex+tLoopText2.Text=exEndSub8营销10424．求的值。8营销1042PrivateSubForm_Click()DimiAsIn
7、teger,sAsDoubles=0Fori=1To100s=s+(-1)^(i-1)/iNextiPrint"s=";sEndSub8营销10425．求的值。8营销1042PrivateSubCommand1_Click()Dimx,n,s,i,j,k,ms=1x=Val(Text1.Text)n=Val(Text2.Text)m=1Fori=1Tonm=m*x*xk=1Forj=2To2*nk=k*jNextjs=s+(-1)^n*m/kNexti8营销1042Text3.Text=sEndSub8营销1042第5章测试题及答案一、AACBC
8、CCCDBBABCCB二、1．找最大数组元素：8营销1042ExplicitOptionA(4,5)Randomizei=1To4j=1
