黄冈师范学院vb复习试卷.doc

黄冈师范学院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