2011年秋研究生VB期末试卷

中国地质大学（北京）研究生试卷（A）2011秋季学期第1共8页课程号：SG04002《VB程序设计》考试试卷（A）考试形式：闭卷考试考试时间：120分钟所有答案答在答题纸上院系学号姓名得分题号一二三四五总分一．判断题（正确划√，错误划×）（10分）1.单选按钮控件分组原则是看控件是否在同一个容器里，和是否属同一控件数组无关2.单击Frame1上的无效命令按钮是不会激发任何对象的单击事件的3.程序运行时CommonDialog和PictureClip控件都没有可视的物理界面4.对象的事件可以由用户操作引发也可以直接调用，但不会自动激发。5.窗体的KeyPreview属性为True，其上控件的所有键盘事件都会被窗体接收，控件就不再接收了6.窗体的大小取决于ScaleHeight和ScaleWidth的值7.动态数组可以改变上界和下界的大小，不能改变维数的大小8.类是一种数据类型，所以滚动条和Line控件属于不同的类9.函数不可以用Call调用10.Do~LoopUntil和Do~LoopWhile都是直到型循环二．单项选择填空题（共40分）1．下列控件中有caption属性的是【】A．滚动条B．ImageC．组合框D．Frame2．下列控件中能够处理Home按键的是【】A．菜单B．TimerC．图片框D．Shape3．在窗口中单击鼠标左键时下列那个事件不会触发【】A．LoadB．MouseDownC．MouseUpD．Click4．下列控件中有value属性的是【】A．TextBoxB．FrameC．ScrollBarD．Timer5．若要重新排列父窗口中的子窗口应使用【】方法A．ArrangeB．HideC．SetFocusD．Cls6．下面【】语句可以终止多窗口组成的应用程序的运行A．ExitFunctionB．EndC．ExitdoD．UnloadMe7．一个工程文件中只能包含一个的对象是【】A．SDI窗体B．MDI窗体C．标准模块D．ActiveX控件8．下列控件不能用作获取用户数据输入的控件是【】A．滚动条B．文本框C．标签D．复选框中国地质大学（北京）研究生试卷（A）2011秋季学期第2共8页9．若要关闭程序运行过程中的错误应使用【】语句A．OnErrorGoTo0B．OnErrorResumeNextC．OnErrorGoTo语句行号D．ResumeNext10．若要保留图片框中动态的输出信息，应将其【】属性设置为TrueA．AutoRedrawB．SavePictureC．StretchD．AutoSize11．设置Timer控件的【】属性为0将不再激发Timer事件A．EnabledB．IntervalC．VisibleD．Style12．PaintPicture方法可以对图片进行【】操作A．缩放B．裁剪C．翻转D．以上都可以13．VB中要强制变量声明要使用【】语句A．OptionalB．PreserveC．OptionBaseDOptionExplicit14．若要阻止一个窗体被卸载应对该窗体【】事件编程A．LostFocusB．PaintC．ResizeD．QueryUnload15．窗体事件：①Load、②Terminate、③Initialize、④Unload发生的先后顺序为【】A．①②④③B．①③②④C．③①②④D．③①④②16．应使用【】属性为文本框设置输入的字符长度不超过10个A．PasswordCharB．MultiLineC．MaxLengthD．Font17．设置菜单的字母访问键应设置【】属性A．TextB．CaptionC．MenuItemD．Visible18．【】属性标记列表框中选中列表条目的数目A．SelCountB．ListCountC．CountD．List19．若要产生一个两位的随机正整数应使用【】语句A．Rnd*100B．Int(Rnd*90+10)C．Int(Rnd*100)D．Rnd*90+1020．下列函数返回值为整数的是【】A．InputBoxB．LCaseC．MsgBoxD．Right三．阅读下面程序，写出单击Command1后的程序运行结果（10分）1.Functiona(xAsInteger,Optionaly=3,Optionalz)AsIntegerIfIsMissing(y)Thena=x^2ElseIfIsMissing(z)Thena=x^yElsea=x*y*zEndIfEndFunctionPrivateSubCommand1_Click()Printa(2),a(2,4),a(2,4,5)EndSub中国地质大学（北京）研究生试卷（A）2011秋季学期第3共8页2.PrivateSubCommand1_Click()Dima()ReDima(2To8)PrintUBound(a)&LBound(a)EndSub3.Subc(ByValxAsInteger,ByRefyAsInteger,ByRefmAsInteger,ByValnAsInteger)m=x*y:n=x/yEndSubPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,aAsInteger,bAsIntegeri=2:j=4:a=6:b=8cj,i,a,bPrinta,bEndSub4.PrivateSubCommand1_Click()PrintRight(1234,2)+Left(1234,2)EndSub5.PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=123Don=n+mMod10m=m/10Ifm=0ThenExitDoEndIfLoopWhileTruePrintnEndSub四．程序填空（30分）1.下面程序中，函数s用于检测一个正整数是否是素数，是素数函数返回值为True，否则为False。当单击Command1时，调用该函数检测并打印1~100之间的所有素数，数据5个一行输出，结果如下图。请按要求填写程序缺失的代码，实现上述功能。中国地质大学（北京）研究生试卷（A）2011秋季学期第4共8页PrivateFunctions(aAsInteger)AsBooleanDimyAsBoolean,iAsIntegery=TrueIfa=0Thens=yExitFunctionElseFori=2ToSqr(a)If【（1）】=0Then【（2）】ExitForEndIfNextEndIf【（3）】EndFunctionPrivateSubCommand1_Click()DimiAsInteger,cAsIntegerFori=1To【（4）】If【（5）】=TrueThenPrinti,【（6）】IfcMod5=0ThenPrintEndIfNextEndSub2.一程序运行界面如下图，单击提交命令按钮（Command1）时，会将一些数据写入文本文件rec.txt。中国地质大学（北京）研究生试卷（A）2011秋季学期第5共8页文件内容如下图。请根据文件的内容填写程序缺失的代码。PrivateSubCommand1_Click()DimiAsIntegerDimstrAsString【（7）】str=消费数额：Fori=0To4If【（8）】=TrueThenstr=str&s(i).CaptionExitForEndIfNextstr=str&元&Chr(13)&Chr(10)&品牌爱好：Fori=0To9IfC(i).Value=1Thenstr=str&C(i).Caption&EndIfNext【（9）】【（10）】EndSub3.某程序运行后单击命令按钮Command1将在窗口中绘制阿基米德螺线，如下控件数组s控件数组C中国地质大学（北京）研究生试卷（A）2011秋季学期第6共8页图所示。绘图时，窗体横、纵向各划分了400个单位且新坐标系坐标原点在窗体的正中央。请仔细阅读程序，填写程序缺失的代码。阿基米德螺线方程如下：)cos(**)(sin**ttaytttax其中1060atPrivateSubCommand1_Click()【（11）】DimmAsSingle,nAsInteger,tAsSingleConstPai=3.14Consta=10Fort=0To6*PaiStep0.001【（12）】n=a*t*Sin(t)【（13）】NextEndSub4.列表框L1的MultiSelect=True，当单击Command1时，将列表框L1中选中的列表条目添加到列表框L2。请仔细阅读程序，填写程序缺失的代码。PrivateSubCommand1_Click()DimiAsIntegerFori=0To【（14）】IfL1.Selected(i)Then【（15）】L1.List(i)EndIfNextEndSub中国地质大学（北京）研究生试卷（A）2011秋季学期第7共8页五．程序设计（10分）1.利用不定参数的特性编写一个过程av，用于统计并打印任意个浮点数的平均值。例如：Command3单击事件代码如下：PrivateSubCommand3_Click()av1.5,2.5,3.5,4.5EndSub单击Command3时，将在窗口中输出：3，如下图所示（5分）2.编写一个函数f，该函数可以求n的阶乘（0=n=20），并将n的阶乘值作为函数的返回值。（n的值通过参数传递）（5分）注意：所有答案答在答题纸上，写在试卷上将不得分中国地质大学（北京）研究生试卷（A）2011秋季学期第8共8页《VB程序设计》考试试卷（A）答题纸院系学号姓名得分一．判断题（正确划√，错误划×）（10分）题号答案题号答案题号答案题号答案题号答案12345678910二．单项选择填空题（共40分）题号答案题号答案题号答案题号答案题号答案1234567891011121314151617181920三．阅读下面程序，写出单击Command1后的程序运行结果（10分）题号答案题号答案14253四．程序填空（30分）题号答案题号答案192103114125136147158五．程序设计（10分）（请写清题号）