《可视化程序设计》作业参考答案学习资料VIP

第1页共1页以上仅为参考答案，简答、论述题均只列及主要的解题知识点，请您结合自我理解和课本内容进行知识掌握和巩固。如对答案等有疑义，请及时登录学院网站“辅导论坛”栏目，与老师交流探讨！《可视化程序设计》作业参考答案一、选择题1．A2．A3．B4．D5．C6．C7．C8．D9．C10．B11．B12．A13．B14．B15．D16．C17．A18．B19．B20．D21．C22．A23．B24．B二．填空题1．92．Picturel.Picture=LoadPicture("picfile.jpg")3．SetFocus4．－35．Resize6．顺序访问方式7．组合框8．（1）毫秒（2）Timer9．强制声明变量10．修改循环条件11．退出（&Q）12．程序中含有不正确的代码13．.ocx14．TrueTrueTrue15．地址16．（1）系统事件（2）鼠标事件（3）键盘事件17．918．additem19．6620．false21．2*3=622．good23．1－51124．Debug.print[表达式列表]25．Load26．（1）单文档窗体（2）单文档窗体27．（1）cls（2）move28．（1）frame控件（2）其它控件29．可查入对象30．函数有返回值31．Action32．Text33．（1）MDIChild、（2）True34．index35．30036．337．过程38．TabStop39．Locked40．：41．Stretch三．判断题1．对2．对3．对4．对5．对6．对7．错8．对9．错10．错11．对12．对13．错14．错15．错16．对17．对18．错19．对20．错21．错22．错23．对24．错四．读程题1．（1）showcolor2．（1）0（2）63．（1）Rnd（2）y=y+1（3）x4．1105．46.（1）x<0（2）x<amin7.（1）Val(Text1.Text)（2）me8．（1）Load（2）End9．310.（1）sum=sum*i（2）nexti11．（1）imod3=0、（2）redimtemp(n)12．913.（1）command1.enabled=true（2）command1.enabled=false五．编程题1．Privatesubform_active()DimtextlineasstringOpen”c:\autoexec.bat”forinputas#1Dowhilenoteof(1)Input#1,textlineText1.text=text1.text+textlineLoopClose#1Endsub2．Subsub1()DimsumAsIntegerDimflagAsBooleanSum=0flag=TrueFori=10To50Forj=2Toi-1IfiModj=0Thenflag=FalseExitForEndIfNextIfflag=TrueThensum=sum+IPrintiEndIfflag=TrueNextPrintsumEndSub3．Functionfunname(nasinteger)ifn=0orn=1thenfunname=1elsefunname=n*funname(n-1)endifendFunctionPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfChr(KeyAscii)=Chr(13)OrChr(KeyAscii)=Chr(10)ThenPrintfunname(text1.text)EndIfEndSub窗体Form1文本框Text14．DimxAsIntegerx=Val(InputBox(""))Ifx