安徽电子信息职业技术学院Visual Basic 程序设计期末试卷（B卷）

安徽电子信息职业技术学院Visual Basic 程序设计期末试卷（B卷） 安徽电子信息职业技术学院Visual Basic 程序设计期末试卷(B卷) 一、填空(每空1分，共20分) 1(VB应用程序的两个基本特点是__________________和______________________________。 2(为使某窗口中的命令按钮“确定(E)”具有如下特性:按“Alt，E”键或按 “Enter” 键，均可代替用鼠标单击该按 钮的操作，应设置该按钮的Caption属性值为___________，并且设置其_________属性值为_________。 3(在Visual Basic中，由系统事先设定的，能被对象识别和响应的动作称为_______________。 4(。.数字关系3<=X<10达式写成正确的VB表达式为____________________________。 5(表达式Len("123程序设计ABC")的值是___________。 6(,,提供的________属性，用来控制对象是否可见，当属性值为________时，表示对象可见，当属性值为_________时，表示对象不可见。 7(VB的代码存贮在模块中。在VB中提供了三种类型的模块:______________、____________和类模块。 8对于随机文件，如果要实现写操作应通过____________语句来实现，要实现读取数据的操作应通过___________ 语句来实现。 9(在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程 Private Sub Form_Click() Text1.Text = "VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print "VBProgramming" End Sub 程序运行后,单击窗体,在文本框中显示的内容是________________,而在图片框中显示的内容是_____________。 10( 在VB数据库中，记录集类型有:表类型、_______________、_____________三种。 二、单项选择题(每题2分，共20分) 1(工程文件的扩展名是( )。 A(vbg B.vbp C.vbw D.vbl 2以下选项中，是Visual Basic 的ActiveX控件的是( )。 A(复选框控件 B(定时器控件 C(对话框控件 D(命令按钮控件 3. 文本框的默认属性是( )。 A(Caption B(Text C(Top D(Name 4(滚动条控件的Largechange属性所设置的是( )。 A 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量 B 滚动条中滚动块的最大移动位置 C 滚动条中滚动块的最大移动范围 D 滚动条控件无该属性 5(执行line(500,500)-step(1000,0) : line -step(0,1000) : line –step(-1000,0) : line –step(0,-1000) 语句画出的是什么图形, A直线 B 矩形 C 圆 D 点 6(以下选项中，不属于DATA数据控件的属性是( )。 A RecordSource B EOF C BOFAction D Connect 7. 关于列表框(ListBox)不正确的阐述是( ) A( 列表框显示项目列表。 1 B(用户只可以从中选择一个项目。 C(列表框可以显示多列列表。 D(如果项目数超过列表框可显示的数目，控件将自动出现滚动条。 8.要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置( )。 A(Text属性值为# B Caption属性值为# C(Passwordchar属性值为# D Passwordchar属性值为真 9(允许在菜单项的左边设置打勾标记，下面哪种论述是正确的,( ) A(在标题项中输入&然后打勾 B 在索引项中输入“?” C(在复选项中输入“?” D 在有效项中输入“?” 10(当执行以下过程时，在窗体上将显示( )。 Private Sub Commandl_Click( ) Print “VB” Print“Hello!”; Print “VB” End Sub A VB Hello! VB B VB Hello!VB C VB Hello! VB D. VB Hello! VB 三、判断题(判断下列各题正确与否，正确的打?，错误的打， 每小题2分，共20分)。 1(在定义了一个函数后，可以像调用任何一个VB内部函数一样使用它，可以在表达式、语句或函数中引用它。 ( ) 2(Visual Basic表达式可以写为:128,4+COS(28:)( ) 3(当文本框的ScrollBar属性设置为2(有垂直滚动条)但没有垂直滚动条显示，是没有对MultiLine属性设置为 True。( ) 4. .Cls可以 清除窗体或图形框中程序运行时产生的图形和文字的内容。( ) 5(当运行程序时系统自动启动窗体的Load事件过程( ) 6在VB6.0中包括四个文件类控件，它们分别是DriveListBox控件，DirListBox控件、FileListBox控件和Picturebox 控件。( ) 7(图像框控件使用系统资源比图片框少( ) 8(按照文件的存取方式及其组成结构可以分为两种类型:文本文件和随机文件。( ) 9(函数过程(Function Procedure)用来完成特定的功能但不可以用函数带回值。( ) 10(设A=3，B=4，C=5，D=6，计算表达式A>B AND C<=D OR 2*A>C的值是False。( ) 四、读程序题，写出程序运行结果(每小题5分，共20分) 1在窗体上画一个文本框，然后编写如下事件过程: Private Sub Form_Click() x = InputBox("请输入一个整数") „x在前面没有被定义过 Print x + Text1.Text End Sub 2 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上 显示的内容是: _____________________________ 2. 当在文本框Text1中输入"ABC"三个字符时窗体上显示的是什么。 Private sub Text1_Change() Print Text1.Text End Sub ________________________________ 3. 给定下列窗体模块，写出单击命令按钮Comman1后的执行结果。 Public x As Integer Private Sub Command1_Click() x = 10 Print x; Call s1(x) Print x; Call s2(x) Print x; End Sub Private Sub s1(Byval x1 as Integer) x1 = x1 + 20 End Sub Private Sub s2(x2 as Integer) x2 = x2 + 20 End Sub _________________________________ 4.Private Sub Command1_Click( ) Text1.Text=”努力” End Sub Private Sub Command2_Click( ) Text1.Text=”学习” End Sub 单击Command2按钮，又单击Command1按钮，在文本框中显示什么, ___________________________________ 五、编程题(共20分) 1( 设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)，和两个按钮:命令按钮1( Command1) 3 按钮，命令按钮(Command2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停 止按钮，则计时停止。单击窗口则退出。(10分) Option Explicit Dim i Private Sub Command1_Click( ) i=[1] [1] Timer1.Interval=1000 [2].Enabled=True [2] End Sub Private[3]Command2_Click( ) [3] Timer1.Enabled=[4] [4] End sub Private Sub Form_Click( ) [5]Me [5] End Sub Private Sub Form_Load( ) Timer1.Enabled=[6] [6] Text1.[7]=[8] [7] End Sub [8] Private Sub Timer1_Timer( ) i=i+[9] [9] Text1.Text=[10] [10] End Sub 2. 编一学号和密码输入的检验程序，对输入的学号和密码规定如下:(10分) (1).学号、密码均为4位，密码以"*"代替。(其中假设学号为:123 密码为:321) (2)如果输入正确则弹出对话框，内容:”欢迎使用”.输入不正确弹出对话框，内容:”学号密码不正确，请请重新 输入”， 焦点定位在原学号文本框，总共的输入机会只有3次，3次都不正确则弹出对话框，内容:”你无权使 用”,选择"取消"停止程序的运行。 参考答案: 一、填空题 1. 面向对象程序设计 事件驱动编程 2. 确定(&E), Default ,true 3. 事件 4 4 3<=X And X<10 5 10 6 Visible ,true,false 7 窗体模块 模块 8 Put , Get 9 VB程序设计 VB Programming 10动态集类型、快照类型 二、单项选择题 1(B 2(C 3(B 4(A 5(B 6(B 7(B 8(C 9(C 10(B 三、判断题 1 正确。 2 错误。 3 正确。 4 正确。 5 正确。 6 错误。 7 正确。 8 错误。 9 错误。 10 错误。 四、读程序题，写出程序运行结果、 1 结果为: 123456 2 结果为 A AB ABC 3 结果为: 10 10 30 4 结果为: 努力 五、编程题 1( 答: [1]0 [2]Timer1 [3]Sub [4]False [5]Unload [6]False [7]Text [8]0 [9]1 [10]i 2.答: Dim I As Integer Private Sub Form_Load() Text1.MaxLength = 4 Text2.MaxLength = 4 Text2.PasswordChar = "*" End Sub Private Sub Command1_Click() If Text1.Text = "123" And Text2.Text = "321" Then MsgBox "欢迎使用" Else 5 I = I + 1 MsgBox "学号密码不正确请请重新输入" Text1.SetFocus If I >= 3 Then MsgBox "你无权使用" End End If End If End Sub Private Sub Command2_Click() End End Sub 6