Visual Basic程序设计试卷库1.doc

第 页 总 页第 页 总 页 -金陵科技学院考试卷金陵科技学院考试卷 200 200 学年第 学期 信息技术学院 级 专业 课程 Visual Basic程序设计 课程编号(1卷) 闭卷 姓名 学号 得分出卷教师教研（实验）室主任 题号一二三四五六七八九十总分阅卷人得分一、单选择题（每题1分，共20分） 请将正确选项写在答题纸上。若要使命令按钮不可用，则可设置其（）属性为False来实现。 ValueCancelEnabledDefault 若要使某可见控件获得焦点，则可使用（）方法来实现。 RefreshSetfocusGotfocusValue 复选框或单选钮的当前状态可通过（）属性来返回或设置。CheckedValueSelectedCaption VB提供（）属性用于控制对象是否可用。DefaultCancelEnabledVisible VB中可通过（）方法画圆 PsetLineCircleOval 可获得当前系统时间的函数是（）Date( )Time( )IsDate( )Year( ) 当用户在窗体上单击鼠标时，不会触发的事件是（）ClickMouseDownMouseUpDblClick 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 ( )工程资源管理器窗口 工具箱窗口 代码窗口 属性窗口 设a=“Visual Basic”，下面使b=“Visual”的语句是( )b=Left(a,8,12) b=Mid(a,8,5) Cb=Rigth(a,6)Db=Left(a,6) 10以下能够触发文本框Change事件的操作是 ( )A文本框失去焦点B文本框获得焦点 C设置文本框的焦点 D改变文本框的内容11VB的启动有多种方法，下面不能启动VB的是（ ）A使用“开始”菜单中的“程序”命令B 使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字C 使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹D 先打开VB的“文件”菜单，再按Alt+Q组合键12VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（ ）A窗体文件的扩展名为.frm，每个窗体对应一个窗体文件B 标准模块是一个纯代码性质的文件，它不属于任何一个窗体C 用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.basD 资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑13滚动条控件的LargeChange属性所设置的是（ ）A单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量B滚动条中滚动块的最大移动位置C滚动条中滚动块的最大移动范围D滚动条控件无该属性14下面对哪一种变量的类型说明符的使用是正确的（ ）ADim a:a=2000 BDim a:a%=50000CDim a:a&=True DDim a:a$=”OK”15下列变量名中，合法的变量名是（ ）AC24 BA B CA：B D1+216用于获得字符串S从第2个字符开始的3个字符的函数是（ ）AMid$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3)17计算结果为0的表达式是（ ）AInt(2.4)+Int(-2.8) BCint(2.4)+Cint(-2.8)CFix(2.4)+Int(-2.8) DFix(2.4)+Fix(-2.8)18可以惟一标识控件数组中的每一个控件属性的是（ ）AName BCaption CIndex DEnabled19定义变量如下：Dim My VarMy Var =”come see me “若在立即窗口中显示My Var的值，下面正确的是（ ）ADebug.Print My Var B、PictureBox.Print My VarCPrinter.Print My Var D、Print My Var20若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置（ ）AText属性值为# BCaption属性值为#CPasswordChar属性值为# DPasswordChar属性值为真 二基本概念填空题（10空*1分，计10分）1对象的属性是指_。2打开一个新的窗体使用的方法是_。3表示x是5的倍数或是9的倍数的逻辑表达式为_。4时间控制器中，_属性表示时间间隔，若要15秒，该属性值为_ 。5菜单中两个菜单项之间的分割条，可在标题文本框中键入_。6把一个按钮设为默认按钮，应把此按钮的_属性的值设为_。7要使一个按钮无效，则可把它的Enabled属性设置为_。8如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6,3 To 5)声明的数组有_个元素。三分析程序运行结果（4题*6分，计24分）1当Sub过程Value形参表中存在ByVal关键字时，执行本程序，单击窗体，在窗体上显示的第一行的内容是（ ），第二行的内容是（ ）；若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是（ ）.Private Sub Value(ByVal m As Integer,ByVal n As Integer)m=m*2n=n-5Print m=；m,n=；n End Sub Private Sub Form_Click()Dim x As Integer,y As Integerx=10:y=15Call Value(x,y) Print x=；x,y=；y End Sub2执行下面程序，第一行输出结果是（ ），第二行输出结果是（ ）。 private sub form_click()dim i as integer , j as integeri=1:j=2 call test(i,j)print i,jcall test (I,j)print I,j end sub private sub test (m as integer,n as integer)static sta as integerm=m+nn=n+m+stasta=sta+m end sub3运行下面的程序，单击窗体后在窗体上显示的内容是x=（ ）；如果将程序中的A语句和B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是x=（ ）,y=（ ）。 Private Sub Form_Click()Dim x As Integer,y As Integerx=1:y=0Do While xa then max=bif b= A And s = Z Thenn = Asc(s) - 64a(n) = a(n) + 1End IfLoopFor i = 1 To 26 If a(i) 0 Then List1.AddItem Chr(i + 64) & : & CStr(a(i) End If Next i Close End Sub 五、改错题（4错*3分，计12分）1、程序完成下面的功能，当X0时，Y=1,当X 0 Y = 1 Case X0 Y = 0 End SelectEnd Sub2、生成20各10100之间的随机整数，存在一维数组A中，同时显示于第一个文本框中，单击窗体将这20个数以相反的顺序显示在另一个文本框中。Option Base 1 Private Sub Form_Click() Dim A(20) As Integer Text1.Text = For I = 1 To 20 A(I) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & Str(A(I) & Next I Text2.Text = For I = 20 To 1 Step -1 Text2.Text = Str(A(I) & Text2.Text & Next IEnd Sub六、编写程序（2题*10分，计20分）