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

第 1 页 共 24 页 计算机程序设计基础 课后练习题 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 第 2 页 共 24 页 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 第 5 页 共 24 页 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 第 6 页 共 24 页 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 阅读下列程序并回答问题 在每小题提供的若干可选答案中 挑选一个正 确答案 表示回车 第 7 页 共 24 页 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右侧箭头后 第 8 页 共 24 页 组合框控件中的第一项为 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 第 9 页 共 24 页 计算机程序设计基础 课后练习题 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 如果图片的大小比图形框小 则图形框大小不发生变化 第 11 页 共 24 页 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 第 12 页 共 24 页 在窗体上画一个名称为 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 第 13 页 共 24 页 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 第 14 页 共 24 页 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 2 3 x 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 输入课程名称 单击按钮 添加到列表框 第 15 页 共 24 页 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 第 16 页 共 24 页 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 第 17 页 共 24 页 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 结果 第 18 页 共 24 页 计算机程序设计基础 课后练习题 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 第 19 页 共 24 页 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 ShowOpen B ShowColor C ShowSave D ShowFont 第 20 页 共 24 页 26 计时器控件能够引发的唯一事件是 C A Keypress B Click C Timer D 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 第 21 页 共 24 页 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 第 22 页 共 24 页 A Visible B Timer C Enabled D Interval 39 对窗体编写如下事件过程 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single If Button 2 Then Print AAAAA End If End Sub Private Sub Form MouseUp Button As Integer Shift As Integer X As Single Y As Single Print BBBBB End Sub 程序运行后 如果单击鼠标右键 则输出结果为 A A AAAAA B BBBBB C AAAAA D BBBBB BBBBB AAAAA 40 当标签的大小由 Caption 属性的值进行自动扩展或缩小 应对该控件的某个属性设 置为 True 这个属性是 A A Stretch B AutoSize C Left D Scalewidth 三 填空题 注意 过去有填空题 现在全部都是选择题 1 设有如下的 Visual Basic 表达式 b sqr b b 4 a c 2 a 它相当于代数式 1 略 very easy 2 数学表达式 sin30 写成 VB 表达式应为 2 sin 30 180 3 1415926 3 执行下面的程序段后 i 的最后值为 3 5 1 s 5 For i 3 6 To 4 9 Step 0 3 s s 1 Next i 4 将任意一个两位数 x 的个位数与十位数对换 例如 x 78 则表达式的值应为 87 其 VB 表达式为 4 trim x mod 10 k1 8 k1 x End If Next m Print k1 k1 End Sub 9 下面的程序打开顺序文件 按行读入内容 并在文本框中按行显示 请在 9 10 11 处将程序补充完整 Open Seqold dat For 9 Input As 1 strTest Do While 10 Not EOF 1 Line Input 1 s strTest strTest s 11 vbCrLf 或 Chr 10 Chr 13 Loop 10 确保文本框中输入的全部是数字的程序如下 请在 12 13 处将程序补充完 整 Sub Text1 12 KeyPress KeyAscii As Integer If KeyAscii Asc 9 Then 13 KeyAscii 0 此句表示 输了也白输 输入非数字内容一律清空 End If 11 假定建立了一个工程 该工程包括两个窗体 其名称 Name 属性 分别为 Form1 和 Form2 启动窗体为 Form1 在 Form1 画一个命令按钮 Command1 程序运行后 要求 当单击该命令按钮时 Form1 窗体消失 显示窗体 Form2 请在 14 和 15 处将 程序补充完整 Private Sub Command1 Click Form1 14 Hide Form2 15 Show End Sub 第 24 页 共 24 页 计算机程序设计基础 课后练习题 4 一 判断题 1 2 3 4 5 6 7 8 9 10 B B B B B B A A B A 二 单选题 11 12 13 14 15 16 17 18 19 20 D B A B C C A D C B 21 22 23 24 25 26 27 28 29 30 C D B A B C B B D C 三 程序填空题 31 32 33 34 35 36 37 38 39 40 A D C C B A B B C C 41 42 43 B C B 四 程序阅读题 44 45 46 47 48 49 50 51 52 53 C D C A D B D B A D 54 55 D B