VB程序设计复习题及答案

中南大学现代远程教育课程 专科 考试复习题及答案中南大学现代远程教育课程 专科 考试复习题及答案 一 选择题 在每小题给出的四个选项中 只有一项是符合题目要求的 请把所选项前的字母填在题后的括号内 一 选择题 在每小题给出的四个选项中 只有一项是符合题目要求的 请把所选项前的字母填在题后的括号内 1 Visual Basic 程序中分隔一行中各语句的字符是 A B C D 2 下列可作为 Visual Basic 的变量名的是 A Filename B A A B C A D D Print 3 要让菜单项无效 应将 属性值设置为False A Visible B Enabled C Moveable D Checked 4 以下过程是 事件 Prviate Sub Form Load End Sub A 命令按钮的单击 B 命令按钮的装载 C 窗体的装载D 窗体的单击 5 Vb 中描述文件扩展名的是 属性 A DriveB Pattern C FileNameD Path 6 关于 Visual Basic 中事件的说法中 不正确的为 A 事件是由 Visual Basic 预先定义好的 能够被对象识别的动作 B DblClick 双击 是 Visual Basic 中的一种事件 C 一个对象可以识别一个或多个事件 D 对于一个系统提供的对象可以识别哪些事件 需要程序员自己定义 7 下列控件中可设置滚动条是 A 检查框 复选框 B 框架 C 文本框 D 标签框 8 在 Visual Basic 中建立一个空窗体 不会是其默认名 A Form1 B Form2 C Formx D Form10 9 Const One 1 则 One 为 类型的常数 A 整型 B 字节型 C 长整型 D 单精度型 10 关于逻辑型数据 下列说法错误的是 A 逻辑型数据只有两种可能值 True 或者 False B 当把逻辑值转换为数值时 False 转为 0 True 转为 1 C 当把其他类型数据转换为逻辑数据时 非 0 数转换为 True 0 转换为 False D 逻辑型数据以 2 个字节存储 11 以下 不是 Visual Basic 的特点 A 结构化程序设计B 集成可视化程序开发环境 C 事件驱动编程机制 D 可将用户的编程思想自动转换成程序代码 12 窗体的 load 事件可以被用来实现的功能为 A 确定窗体的位置 B 从内存中清楚一个窗体 C 在程序启动时对属性和变量初始化 D 重画窗体 13 单复选框的控件名称为 A OptionBotton B CheckBox C PictureBox D Image 14 若要禁止窗体被移动 可设置窗体的 属性为 False A Moveable B Move C MinButtonD ControlBox 15 若要设置定时器的定时间隔设为 10 秒 应将 属性值设为 10000 A Interval B Value C Enabled D Text 16 以下 是文件夹列表框 A DirListBox B DriveListBox C FileListBox D ComboBox 17 以下 可从通用对话框的 字体 对话框中返回用户选择的字体名 A FileName B Path C FontName D Color 18 下列哪个操作可以清除文本框对象 Text1 的内容 A Text1 Text B Text1 cls C Text D cls 19 要想通过单击 Command1 弹出 Form2 窗体 则可在 Command1 的单击事件中 使用 命令 A Load Form2 B Form2 Show C Form2 SetFocus D Form2 PopupMenu 20 以下属性中只在运行时起作用的为 A Caption 属性 B Visible 属性 C BorderStyle 属性 D Picture 属性 21 在运行时 若要使文本框获得输入焦点 可调用文本框对象的 方法来实现 A Refresh B GetFocus C SetFocus D Tab 22 在窗体中利用 Print 方法输出文本信息时 信息的输出位置由 属性设置 A Left B Top C x y D CurrentX CurrentY 23 语句 Dim student 10 5 to 100 定义的是一个 维数组 A 2 B 3 C 5 D 10 24 默认情况下 语句 Dim student 10 to 11 4 定义的数组有 个元素 A 20 B 22 C 10 D 11 25 已知 Eng 1 90 Math 1 80 Comp 1 95 Total 1 Eng 1 Math 1 Comp 1 则 Total 1 A 265 B 90 C 80 D 95 26 已知在 通用 代码有以下语句 Dim A As Integer 则 在某一事件代码中使用 是正确的 A ReDim A 30 4 B ReDim A 4 As C ReDim A 100 D ReDim A 27 Int 23 512 的值为 A 23 B 24 C 24 D 23 28 将 ASCII 码转换成字符串的函数是 A Chr B Str C Asc D Val 29 表达式 Mid Beijing2008 4 4 的值是 A Beij B jing C inj2 D 2008 30 A 3 14 2 则 Val A 的值为 A 3 14 2 B 5 14 C 3 14 D 5 14 二 填空题 请把答案填在题中横线上 二 填空题 请把答案填在题中横线上 1 Visual Basic 中有一种控件组合了文本框和列表框的特性 这种控件是 2 Visual Basic 提供的对数据文件的三种访问方式为随机访问方式 和二进制访问方式 3 为了能在运行时把 d pic 文件夹下的图形 a jpg 装入图片框 Picture1 所使用的语句为 4 计时器控件能有规律的以一定时间间隔触发 事件 并执行该事件过程中的程序代码 5 Visual Basic 应用程序中标准模块文件的扩展名是 6 与数学表达式 cos2 a b 3 x 5 对应的 Visual Basic 表达式是 7 要同时选定窗体上的多个控件 可以按住 或 键 然后依次单击窗体上的各控件 8 在 Visual Basic 中最基本的对象是 9 要在 Visual Basic 工程中添加一个新的窗体 可以在主窗口的工具栏中选择 按钮 10 在代码窗口中 输入某行代码并按回车键之后 如果代码变成 颜色 说明该行代码有语法错误 三 程序改错 三 程序改错 1 程序功能 已知 24 有 8 个正整数因子 即 1 2 3 4 6 8 12 24 而 24 正好被其因子个数 8 整除 问 100 300 之间有多 少个这样的数 程序中有两行有错误 改正错误 使它能输出正确的结果 Private Sub Command1 Click Dim n1 As Integer n2 As Integer Dim x As Integer Dim i As Integer n2 0 For x 100 To 300 n2 0 For i 1 To 100 If x Mod i 0 Then n1 n1 1 End If Next i If x Mod n1 0 Then n2 n2 1 End If Next x Print n2 End sub 2 程序功能 利用函数 pd 计算 1 5000 之间能被 17 和 37 整除的数的个数 程序中有错误 改正错误 使程序能输出正确的结 果 Private Sub Command1 Click Dim i As Integer Dim s As Integer s 0 For i 1 To 5000 If pd i Then s s 1 Next i Print s End Sub Private Function pd x As Integer As Boolean If x Mod 17 0 Or x Mod 37 0 Then pd True Else pd False End If End Fuction 3 程序功能 根据整型参数 m 计算 100 999 的平方根的倒数之和 程序的函数 fun 中有一行有错误 改正错误 使它能输 出正确的结果 Private Sub Command1 Click Print Format fun 100 999 End Sub Private Function fun m As Integer n As Integer As Single y 0 For i m To n t 1 Sqr i y y t Next i fun t End Function 四 程序填空题 四 程序填空题 1 士兵在演练过程中 队伍变换成 10 21 35 60 行时 队形都能成为矩形 问参加演练的士兵最少有多少人 Private Sub Form Click Dim a b c d n a 10 b 21 c 35 d 60 n 60 Do While n n 1 Loop Print n End Sub 2 用 cos x 1 x 2 2 x 4 4 1 n x 2n 2n 的公式求近似值 直到最后一项绝对值小于 0 00001 为止 设 x 7 Private Sub Form click Dim x As Integer i As Integer Dim xpower As Single Dim y As Single x Val InputBox 请输入 x i 0 z 1 y 1 Do While Abs z 0 00001 factor 1 i i 1 For j 1 To 2 i factor factor j Next j xpower x 2 i y y z Loop Print format y 0 End Sub 3 已知一个数列的前 3 项为 0 0 1 从第 4 项开始 每项为前 3 项的和 编程求此数列的第 39 个数 Private Sub Form Click Dim i f0 f1 f2 f3 FontSize 14 FontBold True f0 0 f1 0 f2 1 For i 4 to 39 f0 f1 f1 f2 f2 f3 Next i Print f3 End Sub 五 编程题 五 编程题 1 编写程序 验证输入的 3 位正整数是否为同构数 X 若出现在自己的平方数的末 3 位 则 X 是同构数 如 625 的平方是 390625 则 625 为同构数 2 设有如下两组数据 A 1 2 3 4 5 6 7 8 9 10 B 100 99 98 97 96 95 94 93 92 91 编写一个程序 把上面两级数据分别读入两个数组中 然后把两个数组中对应的元素相加 即 1 100 10 91 并把相应的结果放 入三个数组中 最后输出第 3 个数组的值 3 用 Circle 方法画圆弧和椭圆弧 如下图所示 要求 中心点相同 圆弧长度和角度随机 颜色随机 圆弧数为 20 4 4 在图片框中用在图片框中用 PSetPSet 方法随机地产生若干个彩色的点 窗体上有方法随机地产生若干个彩色的点 窗体上有 3 3 个命令按钮 个命令按钮 画点画点 清除清除 和 和 退出退出 如下图所示 如下图所示 PSetPSet 方法 对象名方法 对象名 PsetPset StepStep x yx y 颜色 颜色 六 问答题 六 问答题 1515 分 分 1 简述多文档及其特性 2 简述对话框的分类和特点 VB VB 程序设计与应用程序设计与应用 答案答案 一 选择题 在每小题给出的四个选项中 只有一项是符合题目要求的 请把所选项前的字母填在题后的括号内 一 选择题 在每小题给出的四个选项中 只有一项是符合题目要求的 请把所选项前的字母填在题后的括号内 1 12 23 34 45 5 B BA AB BC CB B 6 67 78 89 91010 D DC CC CC CD D 11111212131314141515 D DC CA AA AA A 16161717181819192020 A AC CA AA AB B 21212222232324242525 C CD DA AC CA A 26262727282829293030 C CB BA AB BC C 二 填空题 请把答案填在题中横线上 二 填空题 请把答案填在题中横线上 1 组合框 2 顺序访问方式 3 Picture1 picture LoadPicture d pic a jpg 4 Timer 5 bas 6 cos a b 2 3 x 5 7 Shift Ctrl 8 窗体 9 添加窗体 10 红色 三 程序改错题三 程序改错题 1 第七行 n2 0 改成 n1 0 第八行 For i 1 To 100 改成 For i 1 To x 2 第十一行 Or改成 And 3 第十行 fun t 改成 fun y 四 程序填空题 1 a 1000 b 100 c 10 d e b 1000 c 100 d 10 e 2 100 i j 100 5 i j 2 3 c i Mod 100 10 五 编程题 五 编程题 1 1 编程代码为 PrivatePrivate SubSub Command1 Click Command1 Click DimDim i i m m AsAs IntegerInteger ForFor i i 100100 ToTo 999999 m m i i i i ModMod 10001000 IfIf i i m m ThenThen PrintPrint i i EndEnd IfIf NextNext i i EndEnd SubSub 2 2 编程代码 PrivatePrivate SubSub Command1 Click Command1 Click DimDim a 10 a 10 b b c 10 c 10 AsAs IntegerInteger ForFor i i 1 1 ToTo 1010 a i a i i i NextNext i i b b Array 100 Array 100 99 99 98 98 97 97 96 96 95 95 94 94 93 93 92 92 91 91 ForFor i i 1 1 ToTo 1010 c i c i a i a i b ib i 1 1 PrintPrint c i c i NextNext i i EndEnd SubSub 3 用 Circle 方法画圆弧和椭圆弧 如下图所示 要求 中心点相同 圆弧长度和角度随机 颜色随机 圆弧数为 20 Private Sub Command2 Click pi 3 1415926 a1 0 c 1 DrawWidth 1 For r 100 To 2000 Step 100 a2 a2 pi 2 Mod 2 pi Circle 1800 1200 r QBColor c a1 a2 a1 a1 pi 4 c c 1 DrawWidth DrawWidth 1 Next r End Sub Private Sub Command3 Click Cls End Sub 4 编程代码为 Private Sub Command1 Click Picture1 DrawWidth 10 For i 1 To 100 r Int 256 Rnd g Int 256 Rnd b Int 256 Rnd x Rnd Width y Rnd Height Picture1 PSet x y RGB r g b Next i End Sub Private Sub Command2 Click Picture1 Cls End Sub Private Sub Command3 Click End End Sub 六 问答题六 问答题 1 1 简述多文档及其特性 答 定义 多文档界面 MDI Multiple Document Interface 允许创建在单个容器窗体中包含多个窗体的应用程序 绝大多数基 于 Windows 的大型应用程序都是多文档界面 例如 Microsoft Word