2011年秋研究生VB期末试卷.doc

中国地质大学（北京）研究生试卷（A） 2011秋季学期课程号：SG04002VB程序设计考试试卷（A）考试形式：闭卷考试 考试时间：120分钟所有答案答在答题纸上院系 学号 姓名 得分 题号一二三四五总分一判断题（正确划，错误划）（10分）1. 单选按钮控件分组原则是看控件是否在同一个容器里，和是否属同一控件数组无关2. 单击Frame1上的无效命令按钮是不会激发任何对象的单击事件的3. 程序运行时CommonDialog和PictureClip控件都没有可视的物理界面4. 对象的事件可以由用户操作引发也可以直接调用，但不会自动激发。5. 窗体的KeyPreview 属性为True，其上控件的所有键盘事件都会被窗体接收，控件就不再接收了6. 窗体的大小取决于ScaleHeight和ScaleWidth的值7. 动态数组可以改变上界和下界的大小，不能改变维数的大小8. 类是一种数据类型，所以滚动条和Line控件属于不同的类9. 函数不可以用Call调用10. Do Loop Until和Do Loop While都是直到型循环二单项选择填空题（共40分）1 下列控件中有caption属性的是【 】A滚动条BImageC组合框DFrame2 下列控件中能够处理Home按键的是【 】A菜单 BTimer C图片框DShape3 在窗口中单击鼠标左键时下列那个事件不会触发【 】ALoad BMouseDownCMouseUp DClick4 下列控件中有value属性的是【 】ATextBox BFrameCScrollBarDTimer5 若要重新排列父窗口中的子窗口应使用【 】方法AArrangeBHideCSetFocusDCls6 下面【 】语句可以终止多窗口组成的应用程序的运行AExit FunctionBEndCExit doDUnload Me7 一个工程文件中只能包含一个的对象是【 】ASDI窗体BMDI窗体C标准模块DActiveX控件8 下列控件不能用作获取用户数据输入的控件是【 】A滚动条B文本框C标签D复选框9 若要关闭程序运行过程中的错误应使用【 】语句 AOn Error GoTo 0BOn Error Resume Next COn Error GoTo 语句行号DResume Next10 若要保留图片框中动态的输出信息，应将其【 】属性设置为TrueAAutoRedrawBSavePicture CStretchDAutoSize11 设置Timer控件的【 】属性为0将不再激发Timer事件AEnabledBIntervalCVisibleDStyle12 PaintPicture方法可以对图片进行【 】 操作A缩放B裁剪 C翻转D以上都可以13 VB中要强制变量声明要使用【 】语句AOptionalBPreserveCOption BaseDOption Explicit 14 若要阻止一个窗体被卸载应对该窗体【 】事件编程ALostFocus BPaintCResizeDQueryUnload15 窗体事件：Load、Terminate、Initialize、Unload发生的先后顺序为【 】ABC D16 应使用【 】属性为文本框设置输入的字符长度不超过10个APasswordCharBMultiLineCMaxLength DFont17 设置菜单的字母访问键应设置【 】属性ATextBCaptionCMenuItem DVisible18 【 】属性标记列表框中选中列表条目的数目ASelCountBListCountCCountDList19 若要产生一个两位的随机正整数应使用【 】语句ARnd * 100BInt(Rnd * 90 + 10)CInt(Rnd * 100)DRnd * 90 + 1020 下列函数返回值为整数的是【 】AInputBoxBLCaseCMsgBox DRight三阅读下面程序，写出单击Command1后的程序运行结果（10分）1. Function a(x As Integer, Optional y = 3, Optional z) As IntegerIf IsMissing(y) Then a = x 2ElseIf IsMissing(z) Then a = x yElse a = x * y * zEnd IfEnd FunctionPrivate 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 / yEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As Integer, a As Integer, b As Integeri = 2: j = 4: a = 6: b = 8c j, i, a, bPrint a, bEnd Sub 4. Private Sub Command1_Click()Print Right(1234, 2) + Left(1234, 2)End Sub 5. Private Sub Command1_Click()Dim m As Integer, n As Integerm = 123Do n = n + m Mod 10 m = m / 10 If m = 0 Then Exit Do End IfLoop While TruePrint nEnd Sub 四程序填空（30分）1. 下面程序中，函数s用于检测一个正整数是否是素数，是素数函数返回值为True，否则为False。当单击Command1时，调用该函数检测并打印1100之间的所有素数，数据5个一行输出，结果如下图。请按要求填写程序缺失的代码，实现上述功能。Private Function s(a As Integer) As BooleanDim y As Boolean, i As Integery = TrueIf a = 0 Then s = y Exit FunctionElse For i = 2 To Sqr(a) If 【 （1） 】 = 0 Then 【 （2） 】 Exit For End If Next End If【 （3） 】End FunctionPrivate Sub Command1_Click()Dim i As Integer, c As IntegerFor i = 1 To【 （4） 】 If【 （5） 】= True Then Print i, 【 （6） 】 If c Mod 5 = 0 Then Print End IfNextEnd Sub2. 一程序运行界面如下图，单击提交命令按钮（Command1）时，会将一些数据写入文本文件rec.txt。控件数组s控件数组C文件内容如下图。请根据文件的内容填写程序缺失的代码。 Private Sub Command1_Click()Dim i As IntegerDim str As String【 （7） 】str = 消费数额：For i = 0 To 4 If 【 （8） 】= True Then str = str & s(i).Caption Exit For End IfNext str = str & 元 & Chr(13) & Chr(10) & 品牌爱好：For i = 0 To 9 If C(i).Value = 1 Then str = str & C(i).Caption & End IfNext【 （9） 】【 （10） 】End Sub3. 某程序运行后单击命令按钮Command1将在窗口中绘制阿基米德螺线，如下图所示。绘图时，窗体横、纵向各划分了400个单位且新坐标系坐标原点在窗体的正中央。请仔细阅读程序，填写程序缺失的代码。阿基米德螺线方程如下：其中Private Sub Command1_Click()【 （11） 】Dim m As Single, n As Integer, t As SingleConst Pai = 3.14Const a = 10For t = 0 To 6 * Pai Step 0.001 【 （12） 】 n = a * t * Sin(t) 【 （13） 】NextEnd Sub4. 列表框L1的MultiSelect=True，当单击Command1时，将列表框L1中选中的列表条目添加到列表框L2。请仔细阅读程序，填写程序缺失的代码。Private Sub Command1_Click()Dim i As IntegerFor i = 0 To【 （14） 】If L1.Selected(i) Then 【 （15） 】 L1.List(i) End IfNextEnd Sub五程序设计（10分）1. 利用不定参数的特性编写一个过程av，用于统计并打印任意个浮点数的平均值。例如：Command3单击事件代码如下：Private Sub Command3_Click()av 1.5, 2.5, 3.5, 4.5End Sub单击Command3时，将在窗口中输出：3，如下图所示（5分）2. 编写一个函数f ，该函数可以求n的阶乘（0=n=20），并将n的阶乘值作为函数的返回值。（n的值通过参数传递）（5分）注意：所有答案答在答题纸上，写在试卷上将不得分VB程序设计考试试卷（A）答题纸院系 学号 姓名 得分 一判断题（正确划，错误划）（10分）题号答案题号答案题号答案题号答案题