已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
黄冈师范学院201 -201 学年度第 学期期 考试试卷考试课程:VB 试卷类型:考试A卷考试形式:闭卷 出卷教师:考试专业: 考试班级:一、选择题(10分,每小题2分)1、面象对象的程序设计方法的英文缩写是:【 】A.CAI B. OOP C.CAD D. DDE2、VB6.0的编程机制是:【 】A.Main B.事件驱动 C.Project D.Function3、若要设置命令按钮具有图形特性 ,可通过以下属性来设置:【 】A. Style B.BackStyleC. Apperance D.BordeStyle4、循环语句FOR k=2 TO 30 STEP 5 使循环体执行的次数是:【 】A.6 B.10 C.15 D.7 5、要使某控件在运行时不可显示,应设置的属性是:【 】A.Enabled B.VisibleC.Visual D.Caption二、填空题(20每小题2)1、VB集成开发环境由 等几部分组成。2、窗体常见的属性有: 等。3、要使文本框可输入多行文字,要更改的默认选项是: 。4、9 MOD 64+1的值为: 。5、如果要使定时器控件按秒计时,应设置 属性,其值为 。6、程序中加注释、续行符用符号: 。7、创建菜单、快捷菜单用 。8、要使文本框可输入多行文字,要更改的默认选项是: 。9、一个VB工程文件主要包括: 等文件。10、滚动条主要支持两个事件: A卷 【第1页 共3页】 和Scroll事件。得 分评卷人三、简答题(10分,每小题5分)1、VB控件的常见属件、事件有哪些?它们分别有什么作用?2、简述VB应用程序调试的全过程。四、程序分析题(30分)要求:分析所给出的程序段,重点语句做注释,并写出程序的功能及运行结果。1、Private Sub Command1_Click() Do While True sngcj = InputBox(请输入:, 输入成绩) If sngcj = Then Exit Do Else Select Case sngcj Case 85 To 100 MsgBox (成绩优秀) Case 60 To 84 MsgBox (成绩合格) Case Else (成绩较差) End SelectEnd IfLoopEnd Sub2、Private Sub Command3_Click() Dim i As Integer, s As Integer, j As IntegerFor k = 1 To 2 Step 1For i = k To 3 Step 1 Print Spc(14 2 * i); For j = 1 To 2 * i 1 Print;A卷 【第2页 共3页】 Next j Print Next i Next kEnd Sub 五、程序设计题(30分,每小题15分)要求:写出界面简要制作步骤及程序源代码。1、 编程实现图1所示滚动字幕。单击“开始水平滚动”则字幕开始从右至左水平滚动。单击“暂停” 则停止滚动。单击“开始垂直滚动”则字幕开始从上至下滚动。2、编程实现图2所示的手动调色板程序。(要求:使用控件数组) A卷 【第3页 共3页】Visual Basic 程序设计A卷答案一、选择题(10分,每小题2分)12345BBAAB二、填空题(20每小题2)1、标题栏、菜单栏、工具栏、工具箱、窗体编辑器、工程窗口、属性窗口等。 2.Caption,Font,Name,Borderstyle,Enabled,Visible,Backcolor,Left/Top,Height/Width,Picture等。3、MultiLine=true 4、1 5、Interval属性的值为1000。6、 _ 7、菜单编辑器。8、MultiLine=true 9、窗体文件、工程文件、模块文件等。10、change三、简答题(10分,每小题5分)2、答:界面设计、属性设置、编写代码、调试运行、存盘退出。1、答:将表中重点内容答出即可。常见属性及作用(等)常见事件及其作用Caption:用于标题属性设置Click:单击事件Backcolor:背景颜色Dblclick:双击事件Enabled:是否能用Mousemove:鼠标移过时执行Visible:是否可见四、程序分析题(30分,每小题15分)1、程序功能:循环输入成绩,根据所输入的数据来判断其档次:成绩优秀、成绩合格、成绩较差,直到输入数据为空时停止。2、输出如下图所示的图A卷答案 【第1页 共4页】形:(注意:第1行左端有12个空格)五、程序设计题(30分)1、主要代码为:Private Sub chuizhi_Click()Timer2.Enabled = TrueEnd SubPrivate Sub quit_Click()Unload MeEnd SubPrivate Sub shuiping_Click()Timer1.Enabled = TrueEnd SubPrivate Sub stop_Click()Timer1.Enabled = FalseTimer2.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()右至左Label1.Left = Label1.Left - 50If Label1.Left =-Label1.Width Then Label1.Left = Form1.WidthEnd IfEnd SubPrivate Sub Timer2_Timer()上至下Label1.Top = Label1.Top + 50If Label1.Top = Form1.Height Then Label1.Top = -Label1.HeightEnd IfEnd SubA卷答案 【第2页 共4页】或:Private Sub Command1_Click()If Timer1.Enabled = False Then Timer1.Enabled = True End IfTimer1.Interval = 50Timer2.Enabled = FalseEnd SubPrivate Sub Command2_Click()If Timer2.Enabled = False Then Timer2.Enabled = True End IfTimer2.Interval = 50Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() Timer1.Enabled = False Timer2.Enabled = FalseEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width 0 Then Label1.Left = Form1.ScaleWidthLabel1.Left = Label1.Left - 100End SubPrivate Sub Timer2_Timer()If Label1.Top Me.Height ThenLabel1.Top = 0End IfLabel1.Top = Label1.Top + 100End Sub2、主要代码为:Private Sub HSblue_Change()Labelblue.Caption = HSblue.ValueShapeblue.FillColor = RGB(0, 0, HSblue.Value)Shapeall.FillColor = RGB(HSred.VA卷答案 【第3页 共4页】alue, HSgreen.Value, HSblue.Value)End SubPrivate Sub HSgreen_Change()Labelgreen.Caption = HSgreen.ValueShapegreen.FillColor = RGB(0, HSgreen.Value, 0)Shapeall.FillColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value)End SubPrivate Sub HSred_Change()Labelred.Caption = HSred.ValueShapered.FillColor = RGB(HSred.Value, 0, 0)Shapeall.FillColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value)End Sub或:Private Sub Form_Load()Me.HScroll1.Min = 0: Me.HScroll2.Min = 0: Me.HScroll3.Min = 0Me.HScroll1.Max = 241: Me.HScroll2.Max = 141: Me.HScroll3.Max = 83End SubPrivate Sub HScroll1_Change()Me.Label1.BackColor = HScroll1.ValueMe.Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Me.Label2.BackColor =HScroll2.ValueMe.Shape1.BackColor = RGB(HSc
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 低碳生活与绿色文明-知到答案、智慧树答案
- 大学英语(读写)-知到答案、智慧树答案
- 江苏省南京市南京航天大附属初级中学2024届初中生物毕业考试模拟冲刺卷含解析
- GBZT 160.49-2004 工作场所空气中硫醇类化合物的测定方法
- 供应链协同业务伦理
- 江苏省南京师大附中树人校2024年中考数学模拟试题含解析
- 《金属材料 硬度和材料参数的仪器化压入试验 第2部分:试验机的检验和校准gbt 21838.2-2022》详细解读
- 江苏省溧水县重点名校2023-2024学年中考四模生物试题含解析
- 江苏省靖江市生祠初级中学2024年中考语文全真模拟试卷含解析
- 产排污系数模版
- 人类与海洋智慧树知到期末考试答案2024年
- 2024届高考英语外刊阅读天天练:语法填空专题三十三(含答案)
- 社会实践-形考任务一-国开(CQ)-参考资料
- 汽车设计教案中班科学反思总结
- 经颅磁刺激操作规程
- 【多应用条款】导演聘用合同协议书范本 标准版
- 经济政策不确定性对居民消费的影响效应及作用机制基于中国家庭调查数据
- 2024届河北省石家庄市辛集市中考数学押题试卷含解析
- GB/T 43818.1-2024皮革耐磨性能的测定第1部分:泰伯尔法
- 广东中考英语考纲1600词汇表及300词组表(整理打印版)
- 2024年02月长江文艺杂志社招考聘用笔试历年(2016-2023年)真题荟萃带答案解析
评论
0/150
提交评论