《计算机程序设计基础》课后练习题参考答案.doc

计算机程序设计基础计算机程序设计基础 课后练习题课后练习题 1 1 一 判断题 1 错 事件过程由某个用户事件或系统事件触发执行 但不能被其他过程调用 2 错 若 X 2 Y 5 则表达式 Y 2 X AND X 2 Y 的结果为 True 3 错 常量是指在程序运行过程中其值可以改变的那些量 4 错 timer 没有 VB 工具箱中的所有控件都具有宽度 Width 和高度 Height 属性 5 错 定义变量 Dim max min as Single 则 max 和 min 的数据类型均为 Single 6 对 如果创建的菜单项的标题是一个减号 则该菜单项显示为一条分隔线 7 错 标准模块文件的扩展名是 VBP 8 错 都不能 定时器控件可以响应 Click 事件 但不能响应 DbClick 事件 9 错 在默认情况下 数组下标下界的缺省值为 1 10 对 在使用字体对话框时 需要对其 Flags 属性先进行相应设置 二 单选题 11 在 Visual Basic 中 表示鼠标单击事件的是 C A Activate B DoubleClick C Click D MouseDown 12 用于设置计时器时间间隔的属性是 A A Interval B Name C Left D Top 13 函数 Int 10 Rnd 是在 D 范围内的整数 A 1 10 B 1 10 C 0 9 D 0 9 14 Select case 语句结构的结尾应使用 D A End B End Case C End Sub D End Select 15 改变了容器的坐标系后 该容器的 A 属性值不会改变 A left B scaleleft C scaletop D scalewidth 16 执行下列语句后 列表框中各表项顺序为 D List1 Clear For i 1 to 4 List1 AddItem i 1 0 Next i A B C D 17 输入对话框 InputBox 的返回值的类型是 A A 字符串 B 整数 C 浮点数 D 长整数 18 将焦点主动设置到指定的控件或窗体上 应采用 B 方法 A SetDate B SetFocus C SetText D GetData 19 有如下程序段 Dim I As Integer S As Integer S 1 FOR I 1 TO 8 STEP 2 S S I NEXT I PRINT S S 运行结果为 B A S 9 B S 105 C S 1 D S 16 20 利用以下 D 语句 可以输出日期和时间信息 A Print Date B Print Month C Print Time D Print Now 21 一只漂亮的酒杯被摔碎了 则漂亮 酒杯 摔是 D A 对象 属性 事件 B 对象 属性 方法 C 属性 对象 方法 D 属性 对象 事件 22 将通用对话框以 打开文件对话框 方式打开 则选以下 A 方法 A ShowOpen B ShowColor C ShowSave D ShowFont 23 执行语句 Line 100 100 150 200 vbBlue B 在窗体上绘制出一个矩形 那么该矩形的面积 A A 5000 B 10000 C 15000 D 20000 24 如何使一个标签或按钮控件在运行时不可用 C A 把它的 Visible 属性设置成 False B 把它的 Visible 属性设置成 True C 把它的 Enabled 属性设置成 False D 把它的 Enabled 属性设置成 True 25 下列 C 表达式的结果为 1234556789 A Trim 12345 56789 B Ltrim 12345 Rtrim 56789 C Rtrim 12345 Next i End Sub 36 A a j a j 1 C a i a j D a j a i 37 A a i a j B a j 1 a j C a j a i D a j a j 1 程序填空 4 在窗体上画一个名称为 Combol 的组合框 画两个名称分别 Label1 和 Label2 及 Caption 属性分别为 城市名称 和空白的标签 程序运行后 如下图所示 当在组合框中输入一个新的项目按回车键时 回车键的 ASCII 码为 13 如果输入的项 在组合框的列表中不存在 则自动添加到组合框的列表中 并在 Label2 中给出提示 已 成功添加输入项 如果存在 则在 Label2 中给出提示 输入项已在组合框中 Private Sub Combo1 KeyPress KeyAscii As Integer If 38 B Then For i 0 To Combo1 ListCount 1 If Combo1 Text 39 B Then Label2 Caption 输入项已在组合框中 Exit Sub End If Next i Label2 Caption 已成功添加输入项 Combo1 40 C Combo1 Text End If End Sub 38 A KeyAscii 0 B KeyAscii 13 C KeyAscii 8 D KeyAscii 9 39 A Combo1 ListIndex B Combo1 List i C Combo1 AddItem i D Combo1 Clear 40 A Selected B RemoveItem C AddItem D ListIndex 四 程序阅读题 程序阅读 1 根据以下代码 单击窗体三次 那么第一次单击后输出的 a b c 的值为 41 C 第二次单击后输出的 a b c 的值为 42 D 第三次单击后输 出的 a b c 的值为 43 A Private a b c Private Sub Form Click Dim a As Integer c 2 Call AA c b BB a Print a b c End Sub Public Sub AA c a c b c a c End Sub Public Function BB ByVal b b b 1 BB a b End Function 41 A 2 5 4 B 2 3 4 C 0 3 4 D 0 3 2 42 A 7 12 9 B 7 15 9 C 0 6 2 D 0 6 7 43 A 0 9 10 B 0 9 2 C 17 19 35 D 10 27 32 程序阅读2 阅读下列程序并回答问题 在每小题提供的若干可选答案中 挑选一个正 确答案 Private Sub Form Click Form1 Scale 10 10 10 10 Form1 Circle 0 0 5 3 3 14 2 3 14 Form1 FillStyle 0 End Sub 44 运行以上程序 第一次单击窗体后 Form1 上的输出结果是 44 A A B C D 45 第二次单击窗体后 Form1 上的输出结果是 45 B A B C D 程序阅读 3 阅读下列程序并回答问题 在每小题提供的若干可选答案中 挑选一个正 确答案 表示回车 Private Sub Form Load Text1 Text Form1 Cls End Sub Private Sub Text1 KeyPress k As Integer Static s As Integer If Chr k 9 And k 13 Then k 0 If k 13 Then s s Val Text1 Text Text1 Text Print s End Sub 46 写出运行时在 Text1 中依次按 1 3 5 输入后窗体上的显示结果 46 A A 1 4 9 B 9 C 1 3 5 D 5 47 写出运行时在 Text1 中依次按 1 3 5 输入后窗体上的显示结果 47 B A 1 2 3 B 1 4 9 C 1 3 5 D 3 48 写出运行时在 Text1 中依次按 1 2a 5 输入后窗体上的显示结果 48 D A 1 43 48 B 1 2 5 C 5 D 1 3 8 程序阅读4 Private Sub Form click Dim x As Single x Val InputBox 输入 x Select Case x 2 Case 1 Print y x Case 2 Print y x Mod 2 Case 3 Print y x Mod 3 Case Else Print y x 2 End Select End Sub 49 当 x 的输入值为 5 时的运行结果为 49 C A y 5 B y 2 5 C y 1 D y 0 50 当 x 的输入值为 5 5 时的运行结果为 50 D A y 5 B y 2 5 C y 1 D y 0 51 当 x 的输入值为 7 时的运行结果为 51 B A y 7 B y 3 C y 1 D y 3 5 程序阅读5 设text1 text为 abcdef 运行时连续单击2次控件Hscroll1右侧箭头后 组合框控件中的第一项为 52 A 第二项 53 A Private Sub Form Load HScroll1 SmallChange 1 HScroll1 Max 5 HScroll1 Min 1 HScroll1 Value 1 Combo1 Clear End Sub Private Sub HScroll1 Change Combo1 AddItem Left Text1 Text HScroll1 Value 0 End Sub 52 A abc B abcd C ab D abcde 53 A ab B abcde C abc D abcd 程序阅读 6 阅读下列程序并回答问题 在每小题提供的若干可选答案中 挑选一个正 确答案 Private Sub f s As String 解释 根据代码推测功能是 将字符串 s 等分为两部分 并交换前半部与后半部的位置 如 abcde 交换后得 decab Dim i As Integer n As Integer c As String n Len s If n Mod 2 1 Then c Mid s n 2 1 1 For i 1 To Len s 2 c Mid s Len s 1 i 1 c Mid s i 1 Next i s c End Sub Private Sub Command1 Click Dim x As String x InputBox x Call f x Print x End Sub 54 单击 Command1 后输入 abc 窗体上显示结果为 54 A A cba B bca C abc D acb 55 如果将 Sub 过程 f 首句改为 Private Sub f Byval s As String 单击 Command1 后 输入 abcd 窗体上显示结果为 55 C A abdc B cdab C abcd D bcad 计算机程序设计基础计算机程序设计基础 课后练习题课后练习题 2 2 一 判断题 1 错 任何控件都有一个 Caption 属性 2 对 对于事件驱动型应用程序 每次运行时的执行顺序可以不一样 3 错 用以下语句定义 Dim max min as Single 则 max 和 min 的数据类型均 为 Single 4 对 通用对话框不能真正实现文件打开 文件存储 设置颜色 字体设置 打印等 操作 如果想要实现这些功能则需要编程实现 5 对 用 Scale 方法改变了窗体坐标系后 窗体的 Left Top 属性值不变 6 对 在某列表框中一共有 5 个选项 而当选中第三项时 这时列表框的 ListIndex 属性为 2 7 错 标准模块文件格式为 bas VB 中工程文件是指与该工程有关的全部文件和对 象 其扩展名是 vbp 窗体文件包括窗体及其控件的正文描述 其扩展名是 frm 标 准模块文件是可选的 其扩展名是 cls 8 错 Clear 方法 用 Cls 方法可以清除组合框中的所有表项 9 Frame 控件可以作为其他控件的容器 10 错 Visual Basic 工具箱中的所有控件都具有宽度 Width 和高度 Height 属 性 二 单选题 11 P 的值为 3 时 P 2 的值是 B A 9 B 9 C 6 D 6 12 以下程序段的执行结果为 A A 0 B 1 Do A A B B B 1 Loop While A10 C Case Is 10 And Is10 16 执行语句 s Len Mid VisualBasic 0 5 后 s 的值是 D A Visual B Basic C 6 D 表达式有错 17 以下关于函数过程的叙述中 正确的是 A A 函数过程形参的类型与函数返回值的类型没有关系 B 在函数过程中 过程的返回值可以有多个 C 当数组作为函数过程的参数时 既能以传值方式传递 也能以传址方式传递 D 如果不指明函数过程参数的类型 则该参数没有数据类型 18 在窗体上画一个名称为 TxtA 的文本框 然后编写如下的事件过程 Private Sub Txt KeyPress keyascii as integer End Sub 若焦点位于文本框中 则能够触发 KeyPress 事件的操作是 D A 单击鼠标 B 按下键盘上的 A 键 C 鼠标滑过文本框 D 按下键盘上的任意键 19 执行行下面的事件过程 在窗体显示的内容是 B Private Sub Command1 Click Dim a As Variant a Array 12 23 34 45 56 For i 1 To 3 Print Trim a i Next I End Sub A 122334 B 233445 C 12 23 34 D 23 34 45 20 将图形框 PictureBox 控件的 AutoSize 属性设置为 True 后 则对于图形框而言 B A 图形框中的图片自动改变大小适应图形框 B 图形框自动改变大小适应其中的图形 C 如果图片的大小比图形框大 则图形框自动裁剪图象以适应图形框的大小 D 如果图片的大小比图形框小 则图形框大小不发生变化 21 在图形框控件 picture1 上坐标 100 100 和 500 500 之间画一条红色直线 写作 C A Line 100 100 500 500 vbRed B Line 100 100 500 500 RGB 0 255 0 C picture1 Line 100 100 500 500 RGB 255 0 0 D picture1 Line 100 100 500 500 Red 22 下列赋值语句中 C 是错误的 A x x 1 B x x y C x y x D x 4 6 23 单击滚动条的滚动箭头时 产生的事件是 C A Click B Scroll C Change D Move 24 在程序运行期间可以用 D 函数把图形装入窗体 图片或图象框 A Autosize B Stretch C Picture D LoadPicture 25 在窗体上画一个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click Dim num As Integer num 1 Do Until num 6 Print num num num 2 4 Loop End Sub 程序运行后 单击命令按钮 则窗体上显示的内容是 B A 1 3 4 5 8 B 1 3 5 C 1 4 7 D 无数据输出 26 C 对象具有 Clear 方法 A 窗体 B 复选框 C 列表框 D 图片框 27 设 a 16 b 7 c 1 则表达式 a 3 2 b And c 91 Mod 3 的结果 A A True B False C 1 D 出错信息 28 设有如下通用过程 Public Sub Fun a ByVal x As Integer For i 1 To 5 x x a i Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮 然后编 写如下的事件过程 Private Sub Command1 Click Dim arr 5 As Variant Dim n as Integer For i 1 To 5 arr i i Next n 10 Call Fun arr n Text1 Text n End Sub 程序运行后 单击命令按钮 则在文本框中显示的内容是 A A 10 B 15 C 25 D 24 29 窗体上画一个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click Dim num As Integer For num 1 To 6 Step 3 Print num Next num Print num End Sub 程序运行后 单击命令按钮 则窗体上显示的内容是 C A 1 4 4 B 1 3 5 C 1 4 7 D 无数据输出 30 以下 A 方式打开的文件只能读不能写 A Input B Output C Append D Random 三 程序填空 程序 1 在 C 盘当前文件夹下建立一个名为 Data txt 的顺序文件 要求用文本框输入若 干英文单词 每次按下回车键时将文本框中的内容写入文件 并清除文本框的内容 直到 文本框输入 END 为止 最后关闭文件 Private Sub Form Load 31 C Text1 Text End Sub Private Sub Text1 KeyPress KeyAscii As Integer If KeyAscii 13 Then If 32 D END Then 33 B End Else 34 A Text1 Text End If End If End Sub 31 A Open D Data txt For Output As B Open C Data txt For Input C Open C Data txt For Output As D Open C Data txt Output As 32 A LCaseText1 Text B Text1 Text C Str Text1 D UCase Text1 Text 33 A Quit 1 B Close 1 C End 1 D Exit 1 34 A Write 1 Text1 B Write 1 Text C Write 3 Text1 Text D Write 1 Text Text 程序 2 下面程序的作用是利用随机函数产生 100 个随机整数 范围在 20 120 之间 包 含 20 和 120 打印其中为 5 或 7 的倍数的数 求出它们的总和并打印 请将下列程序补 充完整 Private Sub Command1 Click SUM 0 For i 1 To 100 X Int 35 B If 36 D Then SUM SUM X 37 A End If Next i Print SUM SUM End Sub 35 A Int Rnd 100 20 B Int Rnd 101 20 C Int Rnd 101 19 D Int Rnd 100 21 36 A X Mod 5 0 and X Mod 7 0 B X 5 0 and X 7 0 C X 5 0 Or X 7 0 D X Mod 5 0 Or X Mod 7 0 37 A Print X B Print SUM X C Print SUM D Print SUM X 程序 3 单击窗体后 用输入对话框输入 x n 然后按下式计算结果 要求 将计算结果 以标签控件显示 且标签控件每秒随机变换一次颜色 S 1 4 3 2 32 n xxxx n Option Explicit Private Sub Form Load Timer1 Interval 1000 Timer1 Enabled True End Sub Private Sub Form Click Dim x As Single n As Integer i As Integer t As Single 38 B s 0 x InputBox x n InputBox n 39 D for i 40 A t t x i s s t Next i 41 C End Sub Private Sub Timer1 Timer Label1 BackColor RGB Rnd 255 Rnd 255 Rnd 255 End Sub 38 A Static s As Single B Dim s As Single C Option Base 1 D Const s As Single 39 A t 1 B t 0 C t 2 D t 1 40 A 2 To n 1 B 1 To n C 2 To n D 1 To n 1 41 A Label1 Caption x B Label1 Caption n C Label1 Caption s D Label1 Caption s x 程序 4 设计一个程序 用于从文本框 Text1 输入课程名称 单击按钮 添加到列表框 List1 中显示出来 具体要求 单击 Command1 按钮 若文本框 Text1 Text 中不是空格串 并且列表中也 没有 则将该课程添加列表框中 然后清除文本框 Text1 的内容 再将焦点返回到文本框 Text1 以便再次在文本框 Text1 输入内容 继续添加 Private Sub Command1 Click Dim I As Integer Dim AddFlag As Boolean 42 A If 43 C Then For i 0 To 44 B If List1 List i Text1 Text Then AddFlag False Exit For End If Next i If AddFlag Then List1 AddItem Text1 Text End If Text1 Text 45 B End Sub 42 A AddFlag 1 B AddFlag False C AddFlag 1 D AddFlag 0 43 A text1 text B text1 text C text1 text D text1 text NULL 44 A List1 ListIndex 1 B List1 ListCount 1 C List1 ListIndex D List1 ListCount 45 A text1 Clear B text1 SetFocus C text1 Move D text1 ReFresh 四 程序阅读 程序 1 写出下列程序运行结果 单击命令按钮控件后窗体上的显示结果 Private Sub Command1 Click Dim a 1 To 6 As Integer For i 1 To 6 a i i i Next i For j 1 To 3 解释 将后 3 个数挪到数组前头 temp a 6 For i 6 To 2 Step 1 a i a i 1 Next i a 1 temp Next j For i 1 To 6 Print a i Next i End Sub 结果 程序 2 单击窗体后 在四个 PictureBox 控件中的图形分别是 答案略 答案略 Option Explicit Private Sub Form Click Dim i For i 0 To 3 Picture1 i Scale 10 10 10 10 Next i Picture1 0 Line 10 10 0 0 Picture1 0 Line 10 10 Picture1 1 Circle 0 0 5 Picture1 2 Circle 0 0 5 0 3 14159 Picture1 3 Circle 0 0 5 2 End Sub Private Sub Form Load Dim i As Integer For i 0 To 3 Picture1 i FillStyle i 1 Mod 2 Picture1 i Cls Next i End Sub 结果 程序 3 事先将 text1 text 设为为空 在获得焦点后 从键盘上依次按下以下键 1 2 3 4 5 6 1 4 然后按回车键 写出输出结果 Private Sub Text1 KeyPress K As Integer If K Asc 9 Then K 0 Print Text1 Text End If End Sub 结果 程序 4 在窗体上画一个名称为 Command1 的命令按钮 然后编写相应的事件过程 程序 运行后 如果单击命令按钮 则在窗体上显示的内容是 Public Function f x As Integer Dim y As Integer x 20 y 2 f x y End Function Private Sub Command1 Click Static x As Integer x 10 y 5 y f x Print x y End Sub 结果 计算机程序设计基础计算机程序设计基础 课后练习题课后练习题 3 3 一 判断题 1 错 窗体或控件的事件的名称可以由编程人员确定 2 错 关系运算表达式 1 2 3 的运算结果为 True 3 对 变量是指在程序运行过程中其值可以改变的那些量 而值不能改变的是常 量 4 对 控件的有些属性只能在运行时设置 5 对 数组在内存中占据一片连续的区域 6 错 驱动器列表框 目录列表框 文件列表框三者之间能够自动实现关联 7 错 当按钮的 Default 属性设置为 True 时 任何情况下按键 相当于单 击该按钮 8 错 dim 定义的也可能是模块量 在过程中用 Dim 和 Static 定义的变量都是局部 变量 9 对 设置数组下标下界缺省值为 1 的语句为 option base 1 10 对 For Next 循环结构的默认步长为 1 二 单选题 11 当建立好一个简单的应用程序后 假定该工程仅有一个窗体模块 问该工程涉及到 多少个文件要保存 B 个 A 1 B 2 C 3 D 4 12 能够将文本框控件隐藏起来的属性是 B A Clear B Visible C Hide D New 13 下列符号中 哪个是 VB 合法的变量名 C A a 123 B Integer C X yz D 14 inputBox 函数返回值的类型为 B A 数值 B 字符串 C 变体 D 数值或字符串 视输入的数据而定 15 表达式 5 5 3 10 8 Mod 9 的值是 C A 4 B 5 C 6 D 7 16 如果在立即窗口中执行以下操作 a 4 是回车键 下同 b 6 print a b 则输出结果是 C A 1 B 0 C False D True 17 当程序运行时 在窗体上单击鼠标 以下哪个事件是窗体不会接收到的 C A MouseDown B MouseUp C Load D Click 18 在设计菜单时 如在菜单中加入一个菜单分隔项 则菜单分隔项的标题必须设置为 B A 加号 B 减号 C 星号 D 感叹号 19 Select Case 语句属于程序基本结构中的 注意 本题有问题 C 和 D 均可 A 顺序结构 B 循环结构 C 分支结构 D 选择结构 20 为了把焦点移到某个指定的控件 所使用的方法是 A A SetFocus B Visible C Refresh D GetFocus 21 设 a 3 则执行 x IIf a 5 1 0 后 x 的值为 C 详见附录 IIf 函数定义 A 5 B 6 C 0 D 1 22 执行下面的程序段后 x 的值为 A x 5 For i 1 To 10 Step 2 x x i 5 Next i A 8 B 10 C 6 D 12 23 在窗体上画一个命令按钮 然后编写如下事件过程 Private Sub Command1 Click For i 1 To 2 x 2 For j i To 3 x x 6 Next j Next i Print x End Sub 程序运行后 单击命令按钮 输出结果是 B A 20 B 14 C 32 D 38 24 在窗体上画一个命令按钮 然后编写如下事件过程 Prevate Sub Command1 Click b 0 Do While b 1 a Val InputBox 请输入 A 的值 b Val InputBox 请输入 B 的值 a a b Loop Print a End Sub 程序运行后 单击命令按钮 依次在输入对话框中输入 5 3 3 1 则输出结果为 A A 2 B 3 C 14 D 15 25 将通用对话框以打开对话框打开 则选以下 A 方法 A ShowOpenB ShowColorC ShowSaveD ShowFont 26 计时器控件能够引发的唯一事件是 C A Keypress B ClickC TimerD Timer1 27 用于设置计时器时间间隔的属性是 A A Interval B Name C Left D Top 28 在窗体上画两个文本框 其 Name 属性分别为 Text1 和 Text2 和一个命令按钮 其 Name 属性为 Command1 然后编写如下事件过程 Private Sub Command1 Click x 0 Do While x 40 x x 2 x 3 n n 1 Loop Text1 Text Str n Text2 Text Str x End Sub 程序运行后 单击命令按钮 在两个文本框中显示的值分别为 B A 1 和 0 B 2 和 72 C 3 和 50 D 4 和 168 29 用下面语句定义的数组的元素个数是 D Dim A 2 To 6 As Integer A 6 B 7 C 8 D 9 30 循环语句 For I 3 To 20 Step 4执行的次数为 C A 4 B 5 C 6 D 8 31 函数 Int 10 Rnd 是在 D 范围内的整数 A 0 1 B 1 10 C 1 9 D 0 9 32 利用下面哪个函数可访问文件大小 A A LOF B LOC C EOF D BOF 33 假定有如下的 Sub 过程 Sub S x As Single y As Single t x x t y y t Mod y End Sub 在窗体上画一个命令按钮 然后编写如下事件过程 Private Sub Commandl Click Dim a As Single Dim b As Single a 2 b 4 S a b Print a b End Sub 程序运行后 单击命令按钮 输出结果为 C A 2 4 B 1 0 C 0 5 2 D 0 5 0 34 阅读程序 Function F a As Integer Static c b 0 b b 1 c c 1 f a b c End Function Private Sub Commandl Click Dim a As Integer a 2 For i 1 To 2 Print F a Next i End Sub 运行上面的程序 单击命令按钮 输出结果为 D A 4 B 4 C 4 D 4 4 5 6 7 35 阅读程序 Private Sub Commandl Click s InputBox 输入字符串 For i Len s To 1 Step 1 Print Mid s i 1 Next i End Sub 运行上面的程序 单击命令按钮 输入 ABCD 输出结果为 B A ABCD B DCBA C AAAA D DDDD 36 在程序运行期间 如果拖动滚动条上的滚动块 则触发的滚动条事件是 C A Move B Change C Scroll D GetFocus 37 设窗体上有一个列表框控件 List1 且其中含有若干列表项 则以下能表示当前被选 中的列表项内容的是 D A List1 List B List1 ListIndex C List1 Index D List1 List List1 ListIndex 38 为了暂时关闭计时器 应把该计时器的某个属性设置为 False 这个属性是 C A Visible B Timer C Enabled D