地大2010年秋研究报告生VB期末试卷带答案_第1页
地大2010年秋研究报告生VB期末试卷带答案_第2页
地大2010年秋研究报告生VB期末试卷带答案_第3页
地大2010年秋研究报告生VB期末试卷带答案_第4页
地大2010年秋研究报告生VB期末试卷带答案_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

-.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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论