![2011年12月考试可视化程序设计(VB)第三次作业_第1页](http://file3.renrendoc.com/fileroot_temp3/2022-3/4/9e0fdf9f-2fce-4796-b580-ff645e93617d/9e0fdf9f-2fce-4796-b580-ff645e93617d1.gif)
![2011年12月考试可视化程序设计(VB)第三次作业_第2页](http://file3.renrendoc.com/fileroot_temp3/2022-3/4/9e0fdf9f-2fce-4796-b580-ff645e93617d/9e0fdf9f-2fce-4796-b580-ff645e93617d2.gif)
![2011年12月考试可视化程序设计(VB)第三次作业_第3页](http://file3.renrendoc.com/fileroot_temp3/2022-3/4/9e0fdf9f-2fce-4796-b580-ff645e93617d/9e0fdf9f-2fce-4796-b580-ff645e93617d3.gif)
![2011年12月考试可视化程序设计(VB)第三次作业_第4页](http://file3.renrendoc.com/fileroot_temp3/2022-3/4/9e0fdf9f-2fce-4796-b580-ff645e93617d/9e0fdf9f-2fce-4796-b580-ff645e93617d4.gif)
![2011年12月考试可视化程序设计(VB)第三次作业_第5页](http://file3.renrendoc.com/fileroot_temp3/2022-3/4/9e0fdf9f-2fce-4796-b580-ff645e93617d/9e0fdf9f-2fce-4796-b580-ff645e93617d5.gif)
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、2011年12月考试可视化程序设计(VB)第三次作业一、填空题(本大题共60分,共 15 小题,每小题 4 分)1. 要使用状态栏控件设计状态栏,应首先在“部件”对话框中选择 _ ,然后从工具箱中选择 _ 控件。2. 对象的边框类型由 _ _属性设置。3. VB的每个菜单项都有一个下拉菜单,含有若干个 _ 命令。用鼠标单击某个菜单项就执行相应的菜单命令。4. 菜单的热键指使用 _ 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 _ 符号,在菜单中这一字符会自动加上 _ ,表示该字符是一个热键字符。5. 运行时,要使工具栏控件Toolbarl中的第二个按钮的
2、按钮菜单中的第三项无效(变成灰色),应使用语句: _ 。6. 根据文件内容区分,文件分为 _ 和 _ 。7. 当使用Format函数与Print方法一起输出时,格式字符串中的”#”号表示一个数字位,它的个数决定 _ 的长度,若要显示的数据位数大于这个长度,则显示时数据按 _ 显示。8. 菜单在运行时的动态增减主要通过控件数组实现,首先将菜单项的 _ 属性设为False,然后在程序中用 _ 语句加载。9. 如果将工程的启动对象设置成 _ 子程序,则程序启动时可以不加载任何窗体。10. 要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 _ 。11. 要在运行
3、时给状态栏 StatusBar1的第二个窗格添加一幅图片,该图片由文件 “c:windowswinupdico”指定,应使用语句: _ 。12. 若case子句中的表达式表列具有形式:表达式1 To 表达式2,则它的含义是:当测试表达式的值等于 _ 时,执行该case子句相应的程序块。13. 表示x是5的倍数或是9的倍数的逻辑表达式是 _ 。14. 程序运行过程中,在立即窗口显示变量f的语句是 _ 。15. 设Form1.Scaleleft=-250,Form1.Scalertop=300,Form1.Scalewidth=350,Form1.Scaleheight=500,则Form1的右下
4、角坐标为 _ 。二、程序阅读题(本大题共40分,共 10 小题,每小题 4 分)1. 若窗体Form1上添加了通用对话框CommonDialog1,下面程序的功能是什么? Dim filename As String Dim str As String CommonDialog1.Filter = 文本文件(*.TXT)|*.txtCommonDialog1.Action = 1filename = CommonDialog1.filenameCommonDialog1.ShowColor Form1.ForeColor = CommonDialog1.Color Open filename
5、For Input As #1 Do While Not EOF(1) str = str + Input(1, #1) Loop Form1.Print str Close 12. Private Sub Form_Click()num = 0 Do num = num + 3 Print num Loop Until num Mod 4 = 0 End Sub程序运行后,单击窗体,输出结果是_3. 写出下面事件过程的执行结果。Private Sub Command1_Click() Dim f(10) As Integer f(0)=1f(1)=1 For i=2 To 10 f(i)=f
6、(i - 2)+f(i - 1)Next iFor i=0 To 9If i Mod 4=0 ThenPrint Print f(i)Next i End Sub4. 下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录,在横线上填上适当内容。标准模块: Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20 End Type窗体模块: Private Sub Command1_Click() Dim n%, zgr As txr Open d:txrf1.da
7、t For Random As #1 Len = Len(zgr) zgr.num = InputBox(输入新职工编号:) = InputBox(输入新职工姓名:) zgr.tel = InputBox(输入新职工电话号码:)zgr.addr = InputBox(输入新职工住址:) n = (1)(2) Close #1 End Sub5. 写出下面的程序运行后,连续单击4次窗体,在Form1上的执行结果。Private Sub Form_Click( ) Static a As Integer Dim b As Integer b=a+b+1 a=a+bForm1.Pr
8、int “a=”;a, “b=”;bEnd Sub6. 有如下事件过程,写出程序的功能(数学表达式)。 Private Sub Command1_Click() T=0M=1 Sum =0Do T=T+M Sum =Sum+T M=M+2 Loop While M=90 Then Grade=”A” ElseIf score=80 Then Grade=”B” ElseIf score=70 ThenGrade=”C” ElseIf score=60 Then Grade=”D” ElseGrade=”E”End If Print 该学生的分数等级为:; grade; End Sub答案:一、
9、填空题(60分,共 15 题,每小题 4 分)1. 参考答案:Microsoft Windows Common Controls 6.0 、 StatusBar解题方案:评分标准:22. 参考答案:BorderStyle解题方案:评分标准:23. 参考答案:菜单解题方案:评分标准:24. 参考答案:Alt、&、下划线解题方案:评分标准:25. 参考答案:ToolbarlButtons(2)ButtonMenus(3)EnabledFalse解题方案:评分标准:26. 参考答案:程序文件、数据文件解题方案:评分标准:27. 参考答案:显示数据、原样解题方案:评分标准:28. 参考答案:Visib
10、le,Load解题方案:评分标准:29. 参考答案:Main解题方案:评分标准:210. 参考答案:Mid(“Visual Basic 6.0”,8,5)解题方案:评分标准:211. 参考答案:StatusBar1Panels(2)PictureLoadPicture(”C:WindowsWinupdico”)解题方案:评分标准:212. 参考答案:这个范围内的值解题方案:评分标准:213. 参考答案:x mod 5=0 OR x mod 9=0解题方案:评分标准:214. 参考答案:Debug.Print f解题方案:评分标准:215. 参考答案:100,800解题方案:评分标准:2二、程序
11、阅读题(40分,共 10 题,每小题 4 分)1. 参考答案:以选择的颜色作为窗体前景色,将一个文本文件显示在Form1窗体上解题方案:使用通用对话框改颜色评分标准:62. 参考答案:3 6 9 12解题方案:理解循环过程评分标准:63. 参考答案:1 1 2 3 5 8 13 21 34 55解题方案:循环输出评分标准:64. 参考答案:(1) LOF(1) / Len(zgr) + 1 (2) Put #1, n, zgr解题方案:标准模块和窗体模块应用评分标准:65. 参考答案:执行结果为: a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8解题方案:静态变量的特性评分标准:66. 参考答案:程序的功能:程序用于计算数学表达等式为:1223242202=2870解题方案:循环计算评分标准:67. 参考答案:移动鼠标并松开鼠标左键。解题方案:理解鼠标事件的动作原理评分标准:68. 参考答案:(1)Dim a() As Integer (2)ReDim a(n)解题方案:根据要求填写与数组有关的代码评分标准:69. 参考答案:将数组a倒置解题方案:数组操作与数据交换评分标准:610. 参考答案:Private Sub Command1_Click() Dim score!, grade$ score=InputBox(
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 空气动力学仿真技术:计算流体力学(CFD):空气动力学中的偏微分方程
- 空气动力学方程:状态方程:理想气体状态方程详解
- 校外教育中实施青少年心理健康教育的探索-教育文档
- 全国职业院校技能大赛中职(护理技能赛项)考试题库-2外科护理部分
- 湖北省旅游类《酒店服务》技能高考必背考试题库-下(判断题)
- 第六届福建省综合气象业务职业技能竞赛【决赛】理论考试题库-下(多选、判断题)
- 成都市石室中学高2025届高三零诊 语文试题(含答案)
- 中班教案学习反义词
- 中班教案《美丽的热带鱼》
- 普惠金融对中小企业融资支持的研究
- 宁县事业单位笔试试题2024
- 医院洗涤服务布草洗涤服务方案
- 四年级数学下册拓展练习课件-平均数与条形统计图-人教版(21张)
- 餐饮中层管理培训课件
- 铜矿资源的产业规划与发展战略研究
- 电商物流现状及未来发展前景研究
- 消费心理学培训知识
- 北师大版三年级上册《年、月、日》 大单元作业设计
- 餐饮业行业中的法规与食品安全培训
- AiLPHA大数据智能安全平台方案
- 电子商务法律法规基本知识
评论
0/150
提交评论