《2011年秋研究生VB期末试卷.pdf》由会员分享，可在线阅读，更多相关《2011年秋研究生VB期末试卷.pdf（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、中国地质大学（北京）研究生试卷（A）2011 秋季学期第 1 共 15 页课程号：SG04002 VB 程序设计考试试卷（A）考试形式：闭卷考试考试时间：120 分钟所有答案答在答题纸上院 系学 号姓 名得分题号一二三四五总分一判断题（正确划，错误划）（10 分）1.单选按钮控件分组原则是看控件是否在同一个容器里，和是否属同一控件数组无关2.单击 Frame1 上的无效命令按钮是不会激发任何对象的单击事件的3.程序运行时CommonDialog 和 PictureClip 控件都没有可视的物理界面4.对象的事件可以由用户操作引发也可以直接调用，但不会自动激发。中国地质大学（北京）研究生试卷（A
2、）2011 秋季学期第 2 共 15 页5.窗体的 KeyPreview 属性为 True，其上控件的所有键盘事件都会被窗体接收，控件就不再接收了6.窗体的大小取决于ScaleHeight 和 ScaleWidth 的值7.动态数组可以改变上界和下界的大小，不能改变维数的大小8.类是一种数据类型，所以滚动条和Line 控件属于不同的类9.函数不可以用Call 调用10.Do Loop Until和 Do Loop While 都是直到型循环二单项选择填空题（共40 分）1下列控件中有caption 属性的是【】A滚动条 BImage C组合框 DFrame 2下列控件中能够处理Home 按键的
3、是【】A菜单 BTimer C图片框 DShape 3在窗口中单击鼠标左键时下列那个事件不会触发【】ALoad BMouseDown C MouseUp D Click 4下列控件中有value 属性的是【】ATextBox BFrame CScrollBar 中国地质大学（北京）研究生试卷（A）2011 秋季学期第 3 共 15 页 D Timer 5若 要 重 新 排 列 父 窗 口 中 的 子 窗 口 应 使 用【】方法AArrange BHide CSetFocus DCls 6下面【】语句可以终止多窗口组成的应用程序的运行AExit Function B End CExit do D
4、Unload Me 7一 个 工 程 文 件 中 只 能 包 含 一 个 的 对 象 是【】ASDI 窗体 BMDI 窗体 C标准模块 D ActiveX 控件8下列控件不能用作获取用户数据输入的控件是【】A滚动条 B文本框 C标签 D复选框9若 要 关 闭 程 序 运 行 过 程 中 的 错 误 应 使 用【】语句AOn Error GoTo 0 BOn Error Resume Next COn Error GoTo 语句行号 D Resume Next 中国地质大学（北京）研究生试卷（A）2011 秋季学期第 4 共 15 页10若要保留图片框中动态的输出信息，应 将 其【】属性设置为T
5、rue AAutoRedraw BSavePicture C Stretch D AutoSize 11设置 Timer 控件的【】属性为 0 将不再激发 Timer 事件AEnabled BInterval CVisible DStyle 12PaintPicture 方法可以对图片进行【】操作A缩放 B裁剪 C翻转 D以上都可以13VB 中要强制变量声明要使用【】语句AOptional BPreserve COption Base D Option Explicit 14若要阻止一个窗体被卸载应对该窗体【】事件编程ALostFocus B Paint CResize DQueryUnloa
6、d 15窗体事件：Load、Terminate、Initialize、Unload 发生的先后顺序为【】A B C中国地质大学（北京）研究生试卷（A）2011 秋季学期第 5 共 15 页 D 16应使用【】属性为文本框设置输入的字符长度不超过10 个APasswordChar BMultiLine C MaxLength DFont 17设置菜单的字母访问键应设置【】属性AText BCaption CMenuItem DVisible 18【】属性标记列表框中选中列表条目的数目ASelCount BListCount CCount DList 19若 要 产 生 一 个 两 位 的 随 机
7、 正 整 数 应 使 用【】语句ARnd*100 BInt(Rnd*90+10)CInt(Rnd*100)DRnd*90+10 20下列函数返回值为整数的是【】AInputBox BLCase CMsgBox DRight 三阅读下面程序，写出单击Command1 后的程序运行结中国地质大学（北京）研究生试卷（A）2011 秋季学期第 6 共 15 页果（10 分）1.Function a(x As Integer,Optional y=3,Optional z)As Integer If IsMissing(y)Then a=x 2 ElseIf IsMissing(z)Then a=x y
8、 Else a=x*y*z End If End Function Private Sub Command1_Click()Print a(2),a(2,4),a(2,4,5)End Sub 2.Private Sub Command1_Click()Dim a()ReDim a(2 To 8)Print UBound(a)&LBound(a)End Sub 3.Sub c(ByVal x As Integer,ByRef y As Integer,ByRef m As Integer,ByVal n As Integer)m=x*y:n=x/y End Sub Private Sub Com
9、mand1_Click()Dim i As Integer,j As Integer,a As Integer,b As Integer i=2:j=4:a=6:b=8 c j,i,a,b Print a,b End Sub 4.Private Sub Command1_Click()中国地质大学（北京）研究生试卷（A）2011 秋季学期第 7 共 15 页Print Right(1234,2)+Left(1234,2)End Sub 5.Private Sub Command1_Click()Dim m As Integer,n As Integer m=123 Do n=n+m Mod 1
10、0 m=m/10 If m=0 Then Exit Do End If Loop While True Print n End Sub 四程序填空（30 分）1.下面程序中，函数s 用于检测一个正整数是否是素数，是素数函数返回值为True，否则为 False。当单击 Command1时，调用该函数检测并打印1100 之间的所有素数，数据 5 个一行输出，结果如下图。请按要求填写程序缺失的代码，实现上述功能。中国地质大学（北京）研究生试卷（A）2011 秋季学期第 8 共 15 页Private Function s(a As Integer)As Boolean Dim y As Boolea
11、n,i As Integer y=True If a=0 Then s=y Exit Function Else For i=2 To Sqr(a)If【（1）】=0 Then【（2）】Exit For End If Next End If【（3）】End Function Private Sub Command1_Click()Dim i As Integer,c As Integer For i=1 To【（4）】If【（5）】=True Then 中国地质大学（北京）研究生试卷（A）2011 秋季学期第 9 共 15 页Print i,【（6）】If c Mod 5=0 Then Pri
12、nt End If Next End Sub 2.一程序运行界面如下图，单击提交命令按钮（Command1）时，会将一些数据写入文本文件rec.txt。文件内容如下图。请根据文件的内容填写程序缺失的代码。Private Sub Command1_Click()控件数组s 控件数组C 中国地质大学（北京）研究生试卷（A）2011 秋季学期第 10 共 15 页Dim i As Integer Dim str As String【（7）】str=消费数额：For i=0 To 4 If【（8）】=True Then str=str&s(i).Caption Exit For End If Next
13、 str=str&元&Chr(13)&Chr(10)&品牌爱好：For i=0 To 9 If C(i).Value=1 Then str=str&C(i).Caption&End If Next【（9）】【（10）】End Sub 3.某程序运行后单击命令按钮Command1 将在窗口中绘制阿基米德螺线，如下图所示。绘图时，窗体横、纵向各划中国地质大学（北京）研究生试卷（A）2011 秋季学期第 11共 15 页分了 400 个单位且新坐标系坐标原点在窗体的正中央。请仔细阅读程序，填写程序缺失的代码。阿基米德螺线方程如下：)cos(*)(sin*ttaytttax其中1060atPrivat
14、e Sub Command1_Click()【（11）】Dim m As Single,n As Integer,t As Single Const Pai=3.14 Const a=10 For t=0 To 6*Pai Step 0.001【（12）】n=a*t*Sin(t)中国地质大学（北京）研究生试卷（A）2011 秋季学期第 12 共 15 页【（13）】Next End Sub 4.列表框 L1 的 MultiSelect=True，当单击 Command1 时，将列表框 L1 中选中的列表条目添加到列表框L2。请仔细阅读程序，填写程序缺失的代码。Private Sub Comma
15、nd1_Click()Dim i As Integer For i=0 To【（14）】If L1.Selected(i)Then【（15）】L1.List(i)End If Next End Sub 五程序设计（10 分）1.利用不定参数的特性编写一个过程av，用于统计并打印任意个浮点数的平均值。例如：Command3 单击事件代码如下：Private Sub Command3_Click()av 1.5,2.5,3.5,4.5 End Sub 中国地质大学（北京）研究生试卷（A）2011 秋季学期第 13 共 15 页单击 Command3 时，将在窗口中输出：3，如下图所示（5分）2.编
16、写一个函数f，该函数可以求n 的阶乘（0=n=20），并将 n 的阶乘值作为函数的返回值。（n 的值通过参数传递）（5 分）注意：所有答案答在答题纸上，写在试卷上将不得分中国地质大学（北京）研究生试卷（A）2011 秋季学期第 14 共 15 页VB 程序设计考试试卷（A）答题纸院 系学 号姓 名得分一判断题（正确划，错误划）（10 分）题号答案题号答案题号答案题号答案题号答案1 2 3 4 5 6 7 8 9 10 二单项选择填空题（共40 分）题号答案题号答案题号答案题号答案题号答案1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 三阅读下面程序，写出单击Command1 后的程序运行结果（10 分）题号答案题号答案1 4 2 5 3 中国地质大学（北京）研究生试卷（A）2011 秋季学期第 15 共 15 页四程序填空（30 分）题号答案题号答案1 9 2 10 3 11 4 12 5 13 6 14 7 15 8 五程序设计（10 分）（请写清题号）