地大2010年秋研究报告生VB期末试卷带答案

-.z课程号：SG04002?VB程序设计?考试试卷〔A〕考试形式：闭卷考试考试时间：120分钟所有答案答在答题纸上院系****得分题号一二三四五总分一．判断题〔正确划√，错误划×〕〔10分〕方法的实质是程序代码模块√MDI和SDI窗体支持一样的事件和方法程序运行中通过代码改变单项选择按钮的Value值是不会触发该控件的单击事件的假设*子窗体拥有菜单，程序运行时一旦它获取焦点就会自动覆盖父窗口的菜单利用通用对话框控件可以直接完成图形文件的保存或翻开操作，无法直接完成文本文件的保存或翻开操作由一个父窗口和多个子窗口构成的应用程序，关闭父窗口就可以终止程序运行√假设窗口的Enabled属性为False，其上的控件也不再响应鼠标事件了。√控件数组中的元素可以由不同类型的控件构成Me.ForeColor=vbWhite与Me.ForeColor=RGB(0,0,0)等价AutoRedraw属性是窗体独有的属性二．单项选择填空题〔共40分〕按Delete键在Te*tBo*控件中删除文本时以下那个事件不会触发【】A．ChangeB．KeyDownC．KeyUpD．KeyPress以下控件中有Te*t属性的是【】A．滚动条 B．ImageC．组合框 D．Frame以下控件中无value属性的是【】A．CheckBo* B．OptionButtonC．ScrollBar D．ListBo*以下控件中无Caption属性的是【】A．Label B．FrameC．mandButtonD．Timer对于一个正常显示的窗口来说以下【】事件是最后发生的A．UnloadB．QueryUnloadC．TerminateD．LostFocus下面【】方法可以直接使组合框控件具有输入焦点A．SetFocusB．RemoveItemC．RefreshD．AddItem在列表框L中删除第二条列表条目的值应使用【】语句A．L.RemoveItem2 B．L.RemoveItemC．L.RemoveItem1D．L.RemoveItem0以下【】语句可以完成随机文件的写操作A．Put B．Write C．Get D．Print假设要处理程序运行过程中的错误应使用【】语句先捕获错误A．OnErrorGoTo0B．OnErrorResumeNe*tC．OnErrorGoTo语句行号D．ResumeNe*t在VB中保存一个图形、图像文件应使用【】。A．PictureSaveB．SavePictureC．LoadPictureD．PictureLoadTimer控件的【】属性不为0时可以激发Timer事件A．EnabledB．Interval C．VisibleD．Tag一个控件可以正常接收和处理事件必须保证Visible和【】属性同时为真A．EnabledB．FocusC．MoveableD．AppearanceCircle语句不能绘制【】A．扇B．弧 C．椭圆 D．圆角正方形-假设要隐藏*窗体应使用【】A．me.HideB．Me.Appearance=FalseC．Me.BorderStyle=NoneD．Me.WindowState=0假设要使窗体先于其上控件获取键盘输入，应将窗体的【】设置为TrueA．AutoRedrawB．MDIChildC．AutoSizeD．KeyPreview应使用【】属性为文本框设置掩码A．PasswordCharB．MultiLineC．Ma*LengthD．Font设置【】属性可使文本框接收多行文字A．ScrollBarsB．MultiLineC．Ma*LengthD．Width【】属性标记列表框中列表条目的数目A．SelCountB．ListCountC．CountD．List以下【】属性不是只读属性A．SelCountB．ListCountC．Current*D．AddItem假设要使SDI窗体成为子窗体，应将窗体的【】属性设置为TrueA．BorderStyleB．MDIChildC．AppearanceD．Moveable三．阅读下面程序，写出单击mand1后的程序运行结果〔10分〕Functions(ParamArraya())AsIntegerDimcAsInteger,mAsIntegerDimvAsVariantForEachvInam=m+vc=c+1Ne*ts=cEndFunctionPrivateSubmand1_Click()Prints(10,20,30)EndSub(3)PrivateSubmand1_Click()DimmAsInteger,nAsIntegerm=20:n=10Cm,nPrintm,nEndSubSubC(aAsInteger,ByValbAsInteger)Dim*AsInteger,yAsInteger*=a:y=ba=*+y:b=*-yEndSub(3010)FunctionC(aAsInteger)Static*AsInteger*=*-aC=*EndFunctionPrivateSubmand1_Click()DimmAsIntegerm=C(1)+C(2)PrintmEndSub(-4)PrivateSubmand1_Click()PrintUCase("Bj")+LCase("Ge")EndSub(BJge)PrivateSubmand1_Click()DimmAsInteger,nAsIntegerm=123Don=n+mMod10m=m/10Ifm<>0Thenn=n*10ElseE*itDoEndIfLoopWhileTruePrintn(321)EndSub四．程序填空〔30分〕下面程序是一个打字练习的小游戏。当用户单击开场按钮〔mand1〕后，将随机产生一个字母〔大小写都可能出现〕并显示在标签L中。随后标签以每200毫秒移动100缇的方式从窗口的顶部向下移动。下落过程中假设用户敲击键盘的字母与标签中的一致，则产生一个新字母，标签重新从窗口的顶部落下；假设标签下落到窗口底部前，用户输入的字母与标签中的不符，则在判定标签已移出窗口后同样产生一个新字母，标签重新从窗口的顶部落下。请按要求填写程序缺失的代码，实现上述功能。〔窗体的相关属性均已在属性窗口中设定，Timer1控件的属性保持着初始状态。〕Subzimu()RandomizeDimiAsIntegerDoi=【 Int(Rnd*58+65)】LoopWhilei>90Andi<97L.Caption=Chr(i)L.Left=Rnd*(Me.ScaleWidth-L.Width)L.Top=0EndSubPrivateSubmand1_Click()zimuL.Visible=TrueTimer1.【 interval=200】EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)IfL.Caption=【Chr(KeyAscii)】ThenzimuEndIfEndSubPrivateSubTimer1_Timer()L.Top=L.Top+100IfL.Top>=Me.ScaleHeightThen【 L.caption=zimu】EndIfEndSub一程序运行后单击命令按钮mand1，会将一些数据写入文本文件abc.t*t。文件内容如以下图。请根据文件的内容填写程序缺失的代码。PrivateSubmand1_Click()DimiAsInteger,jAsInteger【Open“abc.t*t〞foroutputas*1】Fori=1To9For【 j=1toi】【print*1,j&〞*〞&i&〞=〞&i*j】Ne*tjPrint*1,Chr(13)Ne*ti【 close】EndSub*程序运行后单击命令按钮mand1将在窗口中描绘一状如蜷曲的丝带的图形，如以下图所示。其实该图并不复杂，它只是将的sin曲线和的cos曲线上对应各点从左至右连接起来形成的。绘图时，窗体横向划分了14个单位，纵向划分了8个单位且窗体左上角在新坐标系中的坐标为〔-4,3〕请仔细阅读程序，填写程序缺失的代码。PrivateSubmand1_Click()Dim*1AsSingle,y1AsSingleDim*2AsSingle,y2AsSingleConstpai=3.14【 Me.scale(-4,3)-(10,-5)】For*1=-paiTopai*2Step0.03y1=Sin(*1)*2=*1+pai【 y2=cos*2】【 Me.line=(*1,y1)-(*2,y2)】Ne*tEndSub以下图所示为一登录界面，用户首先须选择登录身份：学生〔user〔0〕〕或教师〔user〔1〕〕，然后在文本框〔T〕中输入密码〔学生密码是："student"，教师密码是："teacher"〕；当单击“登录〞按钮〔mand4〕时，将按不同的身份核对密码。假设学生身份登录且密码正确将进入学生操作界面〔Form1〕，同时卸载登录窗口；假设教师身份登录且密码正确将进入教师操作界面〔Form2〕，同时卸载登录窗口。假设用户单击“取消〞按钮〔mand3〕放弃登录将退出系统，终止程序运行。请仔细阅读程序，填写程序缺失的代码。PrivateSubmand3_Click()【 End】EndSubPrivateSubmand4_Click()DimsAsString,iAsIntegerFori=0To1Ifuser(i).Value=TrueThen【 S=user(i).caption】EndIfNe*tSelectCasesCase"学生"IfT.Te*t="student"Then【 〔14〕Form1.show】UnloadMeElseMsgBo*"密码错误",vbInformationEndIfCase"教师"IfT.Te*t="teacher"ThenForm2.Show【 unloadme】ElseMsgBo*"密码错误",vbInformationEndIfEndSelectEndSub五．程序设计〔10分〕编写一个求体积函数V，利用可选参数的特性实现如下功能：1〕假设给一个实参a，将求边长为a的正方体的体积；2〕假设给两个实参a和b，将求底面是正方形且边长为a，高为b的长方体的体积3〕假设给三个实参a、b、c，将求长宽高分别为a、b、c的长方体的体积求得的体积作为函数的返回值。〔5分〕编写一个函数fib。该函数可以求数列1，1，2，3，5，8，13，21……的第n〔1<=n<=20〕项，将第n项的值作为函数的返回值。〔n的值通过参数传递〕〔5