2023年程序设计复习题及参考答案

中南大学网络教育课程（专科）考试复习题及答案《VisualＢasiｃ程序设计与应用》一、选择题:在每小题给出的四个选项中，只有一项是符合题目规定的,请把所选项前的字母填在题后的括号内。1.ＶisualBaｓiｃ程序中分隔一行中各语句的字符是()。[]‘:\_2.下列可作为VisuaｌＢａsiｃ的变量名的是（）。 ﻩ ﻩﻩ[]A：ＦilenameB:Ａ(A＋Ｂ)C:A%DD:Pｒint3.[] A.VisibleB．ＥｎabledC．Moveaｂle D．Chｅｃｋed４.以下过程是()事件。ＰｒvｉaｔeSｕｂFoｒm_Load()……EｎdSuｂ []A：命令按钮的单击ﻩB：命令按钮的装载C；窗体的装载 ﻩﻩD:窗体的单击５.Vb中描述文献扩展名的是(）属性。 ﻩﻩ［]A：Dｒｉve ﻩB：PatｔernC:FｉleName ﻩﻩD:Paｔh6.关于VisualＢasic中事件的说法中，不对的的为（)。[]事件是由VisuaｌBaｓiｃ预先定义好的，可以被对象辨认的动作 DblＣｌiｃk(双击)是VｉｓuaｌBａsic中的一种事件一个对象可以辨认一个或多个事件对于一个系统提供的对象可以辨认哪些事件,需要程序员自己定义7．下列控件中可设立滚动条是(）。ﻩ ﻩ[]A．检查框(复选框) ﻩ B.框架ﻩC.文本框Ｄ.标签框8.在VｉsｕalＢaｓｉｃ中建立一个空窗体，(）不会是其默认名。ﻩﻩﻩﻩ[]A.Form1B.Ｆｏrm2C．FoｒmxＤ.9.ＣonｓtOｎe&=1，则One为(）类型的常数。[]整型 字节型长整型单精度型1０.关于逻辑型数据，下列说法错误的是（)。ﻩ ﻩﻩ[］A．逻辑型数据只有两种也许值:Tｒｕe或者ＦaｌseB.当把逻辑值转换为数值时Ｆａlsｅ转为0，True转为１Ｃ．当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为FalseD.逻辑型数据以2个字节存储１1．以下(）不是VisｕalBasiｃ的特点。 ﻩ ［]A：结构化程序设计ﻩﻩB:集成可视化程序开发环境ﻩﻩC:事件驱动编程机制 ﻩD：可将用户的编程思想自动转换成程序代码12．窗体的loａd事件可以被用来实现的功能为(）。［］A:拟定窗体的位置Ｂ:从内存中清楚一个窗体Ｃ:在程序启动时对属性和变量初始化ﻩD:重画窗体13．单复选框的控件名称为()。[]A.ＯｐtionＢotｔonﻩＢ.ＣheｃkBoxC．PictｕrｅBoｘD.Imａgｅ14.若要严禁窗体被移动,可设立窗体的（)属性为Ｆalse。A.MoｖeabｌeB:MoveＣ:ＭｉｎBｕtｔonﻩ D：CｏntｒoｌBox15．若要设立定期器的定期间隔设为１0秒，应将（)属性值设为10000。[］A．InｔervalＢ.ValｕeC.EnａbledD.Texｔ16.以下（)是文献夹列表框。A.DirListBｏｘB.DｒｉveLｉstＢｏxC．FｉｌeListBｏｘD.ＣomboBox17．以下（)可从通用对话框的“字体”对话框中返回用户选择的字体名。Ａ.FilｅNameB.PathC.FｏnｔNameD.Ｃolor1８.下列哪个操作可以清除文本框对象Ｔexｔ1的内容(）。A.Texｔ1．Tｅxｔ=""B.Tｅxt１.clsC.Ｔexｔ="＂D.cls１9．要想通过单击Ｃomｍａｎd1弹出Form2窗体，则可在Coｍmａnｄ1的单击事件中，使用（）命令。A.LoadFoｒm2Ｂ.Fｏrm2.ShｏwC.Form２．ＳeｔFocusD.Ｆｏｒm2.PoｐuｐＭeｎｕ20．以下属性中只在运营时起作用的为（）。A.Cａption属性B.Visiblｅ属性C.ＢordeｒStｙｌe属性D.Pｉcturｅ属性21．在运营时,若要使文本框获得输入焦点，可调用文本框对象的(）方法来实现。A.RefｒeｓhB.GｅtＦocusC.SetFoｃusD.Ｔab22．在窗体中运用Prinｔ方法输出文本信息时,信息的输出位置由(）属性设立。Ａ.LeｆtB．TｏpＣ.x,ｙD.CurrentＸ,CurreｎtY23.语句：Dimstudeｎt(10,5ｔo１0０)定义的是一个(）维数组。A.2B.3C.2４.默认情况下，语句：Ｄimstudeｎｔ(10ｔo１1,４)定义的数组有(）个元素。A.２0Ｂ.22C.1０Ｄ.1１25．已知Ｅng（1)=9０，Math（1)=８0，Coｍp(1)=95Ｔotal(1)=Eｎｇ(1)＋Math(１）＋Cｏｍp（１）,则Ｔｏｔal（1)=（)。A．26５B.90C.８0D.9526.已知在“通用”代码有以下语句：DｉmA（)AsInｔeger则,在某一事件代码中使用()是对的的。A.ＲeDimA(30,4)B.ReＤimＡ(４)AsＣ.ＲｅDｉｍA(1０0) D.ＲeDｉmＡ()27．Ｉnt（-２3.512)的值为（)。A．-２3Ｂ.－２４C.24D．23２8.将ASCII码转换成字符串的函数是（)。Ａ．Chr$B．Ｓtｒ$Ｃ.AscD.Ｖal29.表达式Miｄ("Ｂeijinｇ2０23",4,4)的值是（)。A.ＢｅiｊB.ｊiｎgＣ.ｉｎｊ2Ｄ.20２３3０.Ａ$="+3.１４＋2＂，则Vａl(A＄）的值为（)。A.+3．14+2Ｂ.+5.1４C.3.14Ｄ．二、填空题:请把答案填在题中横线上。ＶisuａlＢasic中有一种控件组合了文本框和列表框的特性，这种控件是_____＿_。VisuａlBaｓic提供的对数据文献的三种访问方式为随机访问方式,＿_＿____＿＿_和二进制访问方式。为了能在运营时把d:\ｐｉｃ文献夹下的图形a.jpg装入图片框Picture1,所使用的语句为__＿_______＿。计时器控件能有规律的以一定期间间隔触发_______事件，并执行该事件过程中的程序代码。ViｓualBasic应用程序中标准模块文献的扩展名是_＿＿______＿__。与数学表达式cos2(a+b）÷(3+x)+5相应的VisualBａｓiｃ表达式是____＿________．要同时选定窗体上的多个控件,可以按住______或_____＿＿键,然后依次单击窗体上的各控件.在ViｓuaｌBａsｉc中最基本的对象是_＿_＿______.要在VisuａｌBasｉｃ工程中添加一个新的窗体,可以在主窗口的工具栏中选择＿______按钮.在代码窗口中,输入某行代码并按回车键之后,假如代码变成______颜色,说明该行代码有语法错误.三、程序改错:程序功能:已知2４有8个正整数因子(即：1,2,3，4,６,8,12,２4)，而24正好被其因子个数8整除。问[100，3００]之间有多少个这样的数。程序中有两行有错误。改正错误,使它能输出对的的结果。PrivａｔeSubComｍand1_Click()Ｄｉｍn1AsＩnteger,n2AsIntegｅｒＤimxＡsIntegeｒDimiAsInteｇern2=0Forx＝10０To300ｎ２=0Forｉ＝1To100ＩｆxMoｄi=0Tｈenｎ1＝n1＋1ＥndIfNexｔiIｆxMoｄn1=0Tｈenn2=n２+1EnｄIfNextxPｒｉntｎ2Endsｕb2.程序功能:运用函数pd计算1~500０之间能被17和３7整除的数的个数。程序中有错误,改正错误，使程序能输出对的的结果。PrivateSubCommanｄ1_Clｉck（)DimiAsInｔeｇerDｉmｓAsIｎtegeｒs=0Forｉ＝1Tｏ500０Ｉfpd(ｉ)Thens＝s＋1ＮextiPrintsEｎdSubＰrivateFｕnｃtｉonpd(ｘＡsInｔeger)ＡsBooleａｎＩfxMod17=0OrxＭod3７＝0Thenpｄ=TruｅElｓｅpd=FａlseEndIfEndＦucｔｉoｎ3.程序功能：根据整型参数m，计算10０－999的平方根的倒数之和。程序的函数fun()中有一行有错误,改正错误，使它能输出对的的结果。PriｖateSubＣoｍmand１_Ｃｌiｃｋ(）PｒintFormat(fｕn(100,９99）,"#．#＃＃###"）ＥnｄＳuｂＰｒivateFｕncｔionfｕn(ｍAｓＩnteger，nＡｓＩｎteｇer)AsＳiｎgley＝0Foｒｉ=mTont=1／Sｑr(ｉ)y=y+tNextifｕn=ｔEndFunctiｏn四、程序填空题。１．士兵在演练过程中，队伍变换成10、21、35、60行时，队形都能成为矩形。问参与演练的士兵最少有多少人？ＰｒｉvateSubForm＿Ｃlick()Dima％,ｂ％,c%，d%，n%ａ=10b＝2１c=35ｄ＝６０n=６０ＤｏＷhile_＿_＿＿＿___＿__＿＿＿_＿___＿____＿＿_____n＝n+1ＬoｏpPｒiｎtnＥndSub２．用cos(x)≈1-x＾2/2!+x＾４/4!－……＋(-１)^（n)*（x^（2n)）／(２ｎ）!的公式求近似值,直到最后一项绝对值小于0.00０01为止。设x＝７。PrｉvatｅSｕbＦoｒm＿cliｃｋ()DimxAsＩnｔｅgｅr,ｉＡｓIｎtｅgerDimxpowｅrAｓSiｎglｅDimｙAｓSiｎｇlex=Vaｌ(ＩnputBox("请输入x:"))i=0ｚ=１y=1DoWhileAbｓ（z）＞0．０0０01factor=1i＝i+1Forj＝1To2＊ifactoｒ＝faｃtｏr＊jＮｅxtjxpoｗｅr=x＾(２＊i）__＿_＿__＿＿_＿___＿_____＿____＿__＿_＿_y＝ｙ＋zLｏｏｐPrintｆormaｔ（ｙ,"０.##＃＃##"）EnｄＳub3．已知一个数列的前3项为０，0，１，从第4项开始,每项为前3项的和，编程求此数列的第39个数。ＰrivaｔeＳubＦorm_Clicｋ(）Dimｉ％,ｆ０&,f１&,f２＆,ｆ3＆FｏｎｔSｉze=14:FontBold=Ｔrｕef０=0f1=0f２=1Fori=４to39_＿__＿___＿_______f０=ｆ1ｆ1=f2ｆ2=ｆ３NextiPrinｔf3ＥndSub五、编程题:1、编写程序，验证输入的3位正整数是否为同构数。Ｘ若出现在自己的平方数的末3位，则X是同构数。如6２5的平方是3９0６25，则625为同构数。2.设有如下两组数据:Ａ:1，２,3，4,５，6，7，8,9,1０B:１00,99,98,97,９６,95,94，９3，92,91,编写一个程序,把上面两级数据分别读入两个数组中，然后把两个数组中相应的元素相加,即1+100……10＋9１。并把相应的结果放入三个数组中,最后输出第3个数组的值。3.用Ｃircｌe方法画圆弧和椭圆弧。如下图所示。规定：中心点相同,圆弧长度和角度随机，颜色随机，圆弧数为２０。4．在图片框中用PSet方法随机地产生若干个彩色的点。窗体上有3个命令按钮：“画点”、“清除”、和“退出”。如下图所示。PSｅｔ方法：[对象名.］Pseｔ［Step](ｘ,y）[,颜色］六、问答题(１5分）简述多文档及其特性。简述对话框的分类和特点。《VB程序设计与应用》答案一、选择题：在每小题给出的四个选项中，只有一项是符合题目规定的,请把所选项前的字母填在题后的括号内。1234５BABＣB６789１0ＤCCCD1１1２１３1４１５DＣAＡＡ1６1７１819２0AＣAAB２１22232４2５CＤACA262７28２930CBABC二、填空题：请把答案填在题中横线上。组合框顺序访问方式Piｃｔｕre1.pｉcture=ＬoadPｉcture(“ｄ:\pic\ａ．jpｇ”)Tiｍｅr．bas(ｃos(a＋b))^2/（３＊x）+５SｈiftCtrｌ窗体添加窗体红色三、程序改错题第七行n2=0改成n1＝0ﻩ 第八行Fori＝1Ｔo100改成Foｒi=１Tox第十一行Orﻩ改成And第十行ｆｕｎ＝ｔ改成fｕn=y四、程序填空题ﻩ(ａ*10０0＋ｂ*100＋c*１0+d)＊e=b＊１0００+c＊10０+d＊10+e100-i-j=(100-5＊ｉ-j)*2c=（iMod100）＼1０

五、编程题：1.编程代码为：ＰrivａtｅSｕbCommａnｄ1＿Clｉｃｋ()Dｉmｉ,ｍＡsIntegerＦorｉ＝1０0Tｏ9９9m=(i*i）Moｄ１00０Ifi=mThenＰriｎtｉEndIfNｅxtiＥndSub２.编程代码PriｖateSｕbComｍａnｄ1_Clｉｃｋ()Dima(10)，ｂ()，c（１0）AｓIntegｅrFori＝1Tｏ10ａ(i)=iＮeｘtib=Aｒｒay(１00,99,９8,９7,9６,95，94,93,92，91）Foｒｉ=１Tｏ1０c(ｉ)=ａ(ｉ)+b(i－1)Priｎtc(i)NｅxtｉEｎｄＳuｂ3．用Ｃiｒcle方法画圆弧和椭圆弧。如下图所示。规定：中心点相同,圆弧长度和角度随机,颜色随机,圆弧数为２０。PrｉvaｔeSuｂCommand2_Cliｃｋ()pｉ=3．1415926a１＝０c＝1DrawＷidｔｈ＝1Ｆｏrｒ＝1０0To2０23Ｓtep１０0a2=(a2＋(ｐi/２))Mｏｄ(２*pi)Cｉrcｌe(1800,1２00)，ｒ,ＱBCｏlor(c）,ａ1,a２a１=a1＋(pi/4)ｃ=c+1DrawWiｄth＝ＤrawWｉdtｈ+1ＮextrEndSｕbPｒivateSｕbCoｍmaｎd３＿Click()ＣlｓEnｄＳub4.编程代码为:PｒiｖatｅＳｕbＣoｍmaｎd1_Ｃlick()Piｃｔｕrｅ1.DrａｗＷiｄth=10Fori＝1Ｔo100r=Int（256*Rnd)g＝Ｉnt(25６*Rnｄ)b=Ｉnt(２5６*Rｎd）ｘ=Ｒnd*Wｉdｔhy＝Ｒnd*HeiｇｈtPicture1.PＳet(x,y),RＧB（r,g，b)ＮexｔiEndSuｂPｒivateSubCoｍmand2_Cｌiｃk(）Picｔure１．ClsEｎdSubPrivateSubＣomｍanｄ３_Clicｋ()EndEndＳub六、问答题简述多文档及其特性。答：定义：多文档界面