VB期末考试样卷

浙江师范大学《大学计算机基础—理二（VB程序设计）》期终考试一试卷(样卷)说明:(1）考试时间120分钟（2）题型分为两大类，第一类为选择题，共35题，每题2分，第二类为程序设计题，共3题30分。试题一（每题2分,共10分)阅读以下程序说明和程序，在每题供给的若干可选答案中,精选一个正确答案.【程序说明】过程JiSuan用于计算S=1+1/2!—1/3!+1/4!+-1/9!+1/10！的值，并用信息框显示结果.【程序】OptionExplicitPrivateSubJiSuan（)DimkAsInteger，fAsLong,fhAsInteger，(1）s=1:（2):fh=1Fork=2To10s=s+fh/f：(3）:f=(4）Nextk（5）EndSub【供选择的答案】（1）A、sasintegerB、dimsasintegerC、dimsassingleD、sassingle（2）A、f=1B、f=2C、f=—1D、f=-2（3）A、fh=1B、fh=—1C、fh=—fhD、fh=（-1)^k（4）A、f＊kB、f＊（k+1）C、f*3D、f＊(k+2)（5）A、Msgbox“1+1/2!—1/3！+1/4！+—1/9!+1/10！的和为：”&fB、Msgbox“1+1/2!—1/3！+1/4！+—1/9!+1/10！的和为:”+fC、msgbox“1+1/2!-1/3！+1/4！+—1/9！+1/10!的和为："+sD、msgbox“1+1/2!—1/3!+1/4！+-1/9!+1/10！的和为:”＆s试题二（每题2分，共16分)阅读以下程序说明和程序，在每题供给的若干可选答案中，精选一个正确答案。【程序说明】程序界面以以下图所示,程序运转时要求有以下功能:单击按钮Command1，生成十个[100，999]之间的随机整数,而后对这些数按数位之和进行升序摆列并显示在窗体上。比如：112的数位之和为4，621的数位之和为9，360的数位之和为9，371的数位之和为11,所以按以下图所示次序摆列。函数CalcNumber用于计算数n各数位之和。第1页，共9页【程序】PrivateSubcommand1_Click（)Dima（1To10)AsInteger,b(1To10)AsIntegerDimkAsInteger，jAsInteger,pAsInteger，tAsIntegerFork=1To10a（k）=（6):b（k）=(7)NextkFork=1To9p=kForj=(8）If(9)Thenp=jNextjt=a（p）：a（p)=a（k):a（k)=t：t=b（p):b(p)=b(k）：b(k）=t(10)NextkPrinta(10）EndSubFunctionCalcNumber(ByValnAsInteger）AsIntegerDimsAsstring，Lasinteger,rasinteger,kasintegers=(11)：L=len（s)fork=1toLr=r+(12)nextk(13）EndFunction【供选择的答案】（6）A、int(rnd*899）+100B、int(rnd（900）)+100C、int(rnd（899）+100）D、fix（rnd＊900）+100（7）A、callCalcNumber（a（k）)B、callCalcNumbera(k）C、CalcNumber(a(k))D、CalcNumbera(k）（8）A、kto9B、k+1to10C、1to10-kD、p+1to9（9）A、a（k)>a（j)B、a（p）〉a（j)C、b（k）〉b（j)D、b（p）〉b(j)（10）A、Printa（k)；B、Printa（j)；C、PrinttD、Printa(p)；（11）A、str(n）B、chr（n)C、trim（str（n））D、string（n)（12）A、asc(left（s,k）)B、asc(mid（s，k，1）)第2页，共9页C、val（left(s,k））D、val（mid(s,k，1))（13）A、r=CalcNumber(n)B、CalcNumber=rC、r=CalcNumberD、CalcNumber（n）=r试题三（每题2分,共8分）阅读以下程序说明和程序，在每题供给的若干可选答案中，精选一个正确答案。【程序】DimxAsIntegerPrivateSubForm_click（)x=x+2Callproc1(x)’(1）Printx;EndSubSubproc1（aAsInteger）'（2)DimxAsInteger'(3)a=x+2EndSub【供选择的答案】（14）单击窗体两次后,窗体上显示的内容是什么?A、00B、22C、24D、48（15）其余代码不变,仅将程序中的语句（2）改成subproc1(byvalaasinteger),单击窗体两次后，窗体上显示的内容是什么？A、00B、22C、24D、48（16）其余代码不变，仅将程序中的语句（3)删除，单击窗体两次后，窗体上显示的内容是什么？A、00B、22C、24D、48（17）其余代码不变，仅将程序中的语句（1）改为callproc1（x+2)，单击窗体两次后，窗体上显示的内容是什么？A、00B、22C、24D、48试题四(每题2分，共14分）阅读以下程序说明和程序,在每题供给的若干可选答案中,精选一个正确答案.【程序说明】第3页，共9页程序界面如上面两图所示,程序运转时要求有以下功能：当用户向文本框text1中输入内容后按回车键，若输入的内容在列表框中已存在，则给出提示，不然将该内容增添到列表框末端，并自动将文本框中的内容选中。当用户单击“删除”按钮,若列表框中没有表项被选中，则用信息框提示“先选择,后删除"，不然删除被选中的表项。【程序】PrivateSubText1_（18)DimcAsString，kAsInteger,sAsStringIf(19）Thenexitsubc=Trim（Text1.Text）Ifc〈>""ThenFork=0ToList1.ListCount-1s=(20)Ifs=cThen(21)NextiIfk〉List1。ListCount—1Then（22):Text1。SelStart=0:（23）ElseMsgBox"字符串"+c+”已存在!"endifEndIfEndSubPrivateSubCommand1_Click（)IfList1。ListIndex=—1ThenMsgBox”先选择，后删除”Else(24）EndSub【供选择的答案】（18）A、KeyPress（Keyasciiasinteger)B、Change(Keyasciiasinteger)C、ChangeD、keyPress(Keyasciiasstring）（19）A、keyascii=13B、keyPress=13C、keyPress〈〉13D、keyascii<>13（20）A、list1.textB、list1。list(list1.listindex)C、list1。list(k）D、list1。list(list1.listCount）（21）A、exitsubB、exitforC、exitdoD、end（22）A、list1。additemc,list1.listCount-1B、list1。additemc;kC、list1。additemc,0D、list1.additemc，k（23）A、text1。sellength=len（text1。text)B、text1.sellength=len（text1.seltext）C、text1。seltext=text1。text第4页，共9页D、text1.text=text1.seltext24）A、B、list1.removeitemlist1。listcountC、list1。removeitemlist1。listindex–1D、list1。removeitemlist1。listindex试题五（每题2分，共10分）阅读以下程序说明和程序，在每题供给的若干可选答案中，精选一个正确答案。【程序说明】程序界面以以下图所示,程序运转时要求有以下功能：1.实现盘驱动器列表框drive1、目录列表框dir1、文件列表框file1的联动。文件列表框file1中仅显示BMP文件。3.单击文件列表框file1中的某一文件时,将该图片文件显示在影像框image1中.【程序】PrivateSubForm_Load()’下面一句代码,使文件列表框仅显示BMP文件(25）EndSubPrivateSubDrive1_Change（)（26）EndSubPrivateSubDir1_Change()(27）EndSubPrivateSubFile1_dblClick(）DimfsAsStringIf（28）Thenfs=File1。Path+”\"+File1.FileNameElsefs=File1.Path+File1.FileNameEndIf第5页，共9页（29）EndSub【供选择的答案】（25）A、file1。filter="＊。bmp”B、file1。filter="bmp文件｜＊。bmp”C、file1.pattern="＊。bmp"D（26）A、drive1.path=dir1.pathBC、drive1.drive=dir1。pathD（27）A、file1.path=drive1。driveBC、file1。path=dir1。pathD28）A、mid(file1。path，1,1)=””C、right（file1.path，1）=””29）A、image1。picture=fs

、file1.pattern=”bmp文件｜＊.bmp”、dir1.path=drive1。drivedir1.path=drive1.pathdir1。path=file1.path、file1.patttern=dir1。path、right（file1。path，1）<>"\"D、file1.path=””B、image1.picture=loadpicture(“fs”）C、image1。picture=loadpicture(fs)D、image1。picture=loadpicture(“”）试题六（每题2分,共12分）阅读以下程序说明和程序，在每题供给的若干可选答案中，精选一个正确答案.【程序说明】程序界面以以下图所示,程序运转时要求有以下功能：1.在窗体的load事件过程中，设置图片框pic1的宽度等于高度，并设置Pic1的内部坐标系，使之知足以下要求：图片框左侧线、右侧线在其自己坐标系中的横坐标分别为—50、50；图片框上面线、下面线在其自己坐标系中的纵坐标分别为50、-50。单击“画线”按钮(command1），在图片框正中间画一蓝色直线，如左以下图所示。单击“画扇形"按钮(command2)，画实心填补的两个扇形，上面扇形的半径为图片框宽度的四分之一,圆心在图片框中心点；下面扇形的半径为图片框宽度的二分之一，圆心为图片框底边的正中间。如右以下图所示。单击“消除”按钮（command3），消除图片框上显示的内容。【程序】ConstPI=3。14159265第6页，共9页PrivateSubForm_Load()(30）:Pic1。ForeColor=vbBlue：Pic1.Scale(—50,50)-（50,-50)EndSubPrivateSubCommand1_Click（)31)EndSubPrivateSubCommand2_Click（）DimrAsInteger（32）:r=（33）Pic1.FillColor=vbYellow:（34)Pic1。FillColor=vbRedPic1。Circle(0，—50),2*r,vbBlue，-PI/2，-PIEndSubPrivateSubCommand3_Click()（35)EndSub【供选择的答案】（30）A、pic1。width=pic1.heightB、pic1.ScaleWidth=pic1。ScaleHeightC、pic1。Height=pic1。widthD、pic1。ScaleHeight=pic1.ScaleWidth（31）A、Pic1.Line(0，50)-（0,-50)B、Pic1.Line(50,0）-（-50,0)C、Pic1。Line-（0，-50），vbBlueD、Pic1。Line—(—50,0),vbBlue（32）A、Pic1.foreColor=vbredB、Pic1.FillStyle=2C、Pic1。FillStyle=1D、Pic1。FillStyle=0（33）A、Pic1。ScaleWidth/2B、Pic1.ScaleWidth/4C、Pic1.Width/2D、Pic1.Width/4（34）A、Pic1.Circle(0，0),r,,-3＊PI/2，—PI/2B、Pic1.Circle（0,0）,r,vbBlue,-PI/2,—3*PI/2C、Pic1。Circlestep(0，0），r,vbBlue，—3＊PI/2,—PI/2D、Pic1。Circle（0,0），r，-3*PI/2，-PI/2（35）A、clearB、pic1。clearC、clsD、pic1。cls试题七（8分)编程，用Inputbox函数输入X，依据下面公式计算Y值，并在窗体上显示Y值.代码写在