Visual-Basic程序设计形成性考核册作业答案二

VisualVisual BsdicBsdic 程序设计形成性考核册作业答案二程序设计形成性考核册作业答案二 一 选择题 1 按照变量的作用域可将变量划分为 B A 公有 私有 系统 B 全局变量 模块级变量 过程 变量 C 动态 常数 静态 D Public Private Protected 2 可获得字符的 ASCII 码的函数是 C Val Fix Asc Chr 3 要退出 Do Loop 循环 可使用的语句的 D 语句 A Exit B Exit For C End Do D Exit Do 4 把数值型转换为字符串型需要使用的函数是 B A Val B Str C Asc D Chr 5 关于语句行 下列说法正确的是 B 一行只能写一条语句 一条语句可以分多行书写 每行的首字符必须大写 长度不能超过 255 个字符 表达式 6 10 Mod 4 2 1 的值是 A 11 C D 3 7 以下可以作为 isual Basic 变量名的是 B SIN B CO1 C COS X D X 1 8 表达式 bs 5 Len ABCDE 的值为 C 5ABCDE 5ABCDE C 10 D 0 9 在代码编辑器中 如果一条语句太长 无法在一行内写下 不包 括注释 要折行书写 可以在行末使用续行字符 A 表示下一行 是当前行的继续 一个空格加一个下划字符 一个下划字符 直接回车 一个空格加一个 字符 10 Sub 过程与 Function 过程最根本的区别是 D Sub 过程可以使用 all 语句或直接使用过程名调用 而 Function 过程不可以 Function 过程可以有参数 Sub 过程不可以 两种过程参数的传递方式不同 Sub 过程的过程名不能返回值 而 Function 过程能够通过过程 名返回值 11 是小于 80 的非负数 用 VB 表达式表示正确的是 C A 0 X 80 B 0 X 80 C 0 x and x 80 D 0 x Orx 80 12 在设计菜单时 如果要在菜单中加入一个菜单分隔条 则菜单分隔 条的标题必须设置为 B A 加号 B 减号 C 星号 D 感叹号 13 如果要在程序中显示一个弹出式菜单 那么要调用 Visual Basic 中提供的方法是 D A Print B Move C Refresh D PopupMenu 14 下列可以用来存储图像供其他对象使用的控件是 C A ToolBar B StatursBar C ImageList D TreeView 15 当单击工具拦上的按扭时 会触发的事件是 A A ButtonClick B Change C Load D KeyPress 16 要利用公用对话框控件来显示 打开文件 对话框 需要调用控 件的 B 方法 A ShowPrinter B ShowOpen C ShowSave D ShowColor 17 对于窗体级变量 下列说法中错误的是 C A 所在窗体的各子程序都可以访问 B 其他窗体的子程序不能访问 C 所在窗体发子程序不能访问用 Private 定义的窗体级变量 D 一定要在所在窗体的通用区内定义 18 从一个字符串中的第 3 个字符开始 获取 5 个字符 应使用 B A Len 函数 B Mid 函数 C Left 函数 D Right 函数 19 用下面的语句所定义的数组的元素的个数是 D DimA 3 To 5 As Integer A 6 B 7 C 8 D 9 20 有如下程序段 Dim strl As String 5 Strl Visual Basic 当该段程序被执行完时 变量 strl 的值为 B A Visual B Visua C V D Visual Basic 二 填空题 1 菜单一般有 下拉式 和 弹出式 两种基本类型 2 通用对话框控件可显示的常用对话框有 打开 保存 颜 色 字体 打印 3 组合框具有 文本框 和 列表框 两种控件的基本功能 4 要使数组的默认下标从 1 开始 则应在窗体或标准模块代码的 声明部分使用语句 Option Base 1 5 调用 Sub 过程时 使用 call 语句 语句用于把程序控制传送 到一个 Visual Basic 的 Sub 过程 6 若已建立了 Form1 和 Form2 两个窗体 默认启动窗体为 Form1 通过 工程 菜单 属性 命令的 通用 选项卡 可将启动窗体设置为 Form2 在程序中若要显示 Form1 窗体 则执行 Form1 show 语句 7 列表框中项目的序号是从 0 开始的 8 Sub 过程与 Function 过程最根本的区别是 Sub 过程名无返回值 Function 过程名有返回值 9 VB 的代码存储在模块中 在 VB 中提供了三种类型的模块 类 模块 窗体模块 和 标准模块 10 使用 Hide 方法会隐藏被调用的窗体 但是在调用 Hide 方法之 后不会把窗体 卸载 被调用的窗体中的属性等已处于 内存中 11 将下列数学式子写成 VisualBasic 表达式 答 2 cos a sin a 2 a 答 sqr s s a s b s c sin45 sin 45 2 3 1415 360 12 将下列数学式子各条件写成 VisualBasic 逻辑表达式 1 x 12 1 x and x C OR a c 0 and b 0 or a 0 and b 0 13 设 A 2 B 3 C 4 D 5 表达式 Not A C Or4 B 2 And BA C 的值为 False 14 在 Visual Basic 语言中有三种形式的循环结构 其中 若循环 的次数可以事先确定 可使用 For next 循环 若要求先判断循 环进行的条件 可使用 Do while loop 循环或 while Wend 循 环 15 以下语句的输出结果是 3 a 3 14159 Print a 三 阅读下列程序 写出程序运行结果 1 Private Sub Form Click Static Sum As Integer For I 1 to 100 Sum Sum I Next I Print Sum End Sub 程序运行结果为 1 2 99 100 5050 2 private Sub Form Click A 10 b 15 c 20 d 25 Print A Spc 5 b Spc 7 c Print A Spc 8 b Space 5 c Print c Spc 3 Spc 3 c d End Sub 10 5 个空格 15 7 个空格 20 10 8 个空格 15 5 个空格 20 20 三个空格 三个空格 45 3 Private Sub Form click For i 1 to3 Forj 1 to i Print L Trim Str i L Trim Str j i j Next j Print Next i End Sub 1 1 1 2 1 2 2 2 4 3 1 3 3 2 6 3 3 9 4 Private Sub Command1 Click Dim a b As Integer A 3 4 B 3 4 Text1 Text a Text2 Text b End Sub Text1 显示 3 4 Text2 显示 3 5 Private Sub Form Click For I 1 to 5 Print Tab 11 I For J 1 To I 2 1 Print Next Next i End Sub 四 程序设计题 1 购物优惠程序 某商场为了加速促成商品流通 采用购物打折的 优惠办法 每位顾客一次购物 1 在 100 元以上者 按九五折优惠 2 在 200 元以上者 按九折优惠 3 300 元以上者 按八折 优惠 4 500 元以上者按七折优惠 在窗体上添加两个文本框和 一个命令按钮 要求在 Text1 中输入购物商品总金额 单击命令按 钮 在 Text2 中输入优惠后的价格 程序运行结果如图解所示 If Val text1 500 then text2 Val text1 0 7 Else if Val text1 300 then text2 Val text1 0 85 Else if Val text1 200 then text2 val text1 0 9 Else if val text1 100 then text2 val text1 0 95 End if 2 输出 100 200 之间不能被 3 整除的的数 要求用 Do 语句的一种 形式来实现 程序运行结果如图 5 所示 窗体的装入事件中加入如下代码 Dim a as integer A 100 Do while a 200 If a mod 3 0 then List1 additen str a End if A a 1 loop 3 编写程序 打印如下的乘积表 Dim I j as integer Print space 5 For i 3 to 12 step 3 Print str i space 5 Next i Print For I 15 to18 Print str i space 3 For j 3 to 12 step3 Print str i j space 4 Next j Print Next j 4 设计一个计算程序 该程序用户界面如图 7 所示 要求程序运行 后 用户选中单击选按钮 则程序作 10 和 2 的相应计算 并把计算 结果在文本框中显示出来 如用户选中加法单选按钮 则程序作 10 和 2 的相加 计算结果 12 在文本框中显示出来 按结束 则退出 乘法单选按钮的单击事件中添加如下代码 Text1 10 2 除法单选按钮中添加如下代码 Text1 10 2 加法单选按钮中添加如下代码 Text1 10 2 减法单选按钮中添加如下代码 text1 10 2 结束按钮中代码 end 或 unload me 5 编写输入一个 0 6 数字 显示汉字对照输出星期的 Function 过 程 程序运行结果如图 8 所示 文本框的 change 事件中代码如下 Select case val text1 Case 0 Label1 caption 星期天 chr 13 Sunday Case 1 Label1 caption 星期一 chr 13 monday Case2 Label1 caption 星期二 chr 13 Tuesday Case 3 Label1 caption 星期三 chr 13 wednesday Case 4 Label1 caption 星期四 chr 13 thursday Case 5 Label1 caption 星期五 chr 13 firday Case 6 Label1 caption 星期六 chr 13 saturday End select 6 编写一个程序 当鼠标移到 Picturel 控件时 鼠标指针改变形 状 当在 Picturel 控件上单击鼠标右键时 通过消息框显示 You pressed right button 并再次改变鼠标指针的形状 Picture1 mouseup If button 2 then I 1 Msgbox you pressed right button End if End sub 7 列表框应用程序 要求从文本框中输入姓名 然后按 添加 按 钮 把姓名添加到列表框中 当选择列表框中某一项时 按 删除 按钮 从列表框中删除 当列表框中某一项时 按 修改 按钮 把列表框中选取的项送往文本框且 修改 按钮变为 修改确认 在文本框的内容修改好后 按 修改确认 按钮 再把文本框中修 改后的信息送到列表框且 修改确认 按钮变为 修改 程序运行 结果如图 9 所示 添加按钮代码 list1 add