Visual Basic 19.docx

1、Visual Basic 19一、填空 共15题 （共计30分）第1题 （2.0分）把Visual Basic程序设计添加到列表框list1的语句为【1】 。答案：=(答案1)=list1.additem Visual Basic程序设计第2题 （2.0分）VB系统默认设置是隐式声明方式，可以在程序中加入【1】语句进行强制显式声明变量答案：=(答案1)=Option Explicit第3题 （2.0分）数学关系x10表示成正确的VB表达式为【1】答案：=(答案1)=x=x第4题 （2.0分）下列程序段执行结果为【1】。dim x%,m%,n%m=5n=-6If x 0 Then m=n - 3

2、 Else n=3Print n - m答案：=(答案1)=-2第5题 （2.0分）参数传递有值传递和【1】两种方式。答案：=(答案1)=地址=或=地址传递第6题 （2.0分）在文本框、命令按钮、标签中，不能接收焦点的控件是【1】答案：=(答案1)=标签第7题 （2.0分）为了在运行时把图形文件picfile.jpg装入图片框Picture2,所使用的语句为【1】答案：=(答案1)=Picture2.Picture = LoadPicture(picfile.jpg)=或=Picture2.Picture = LoadPicture(app.path & picfile.jpg)=或=Pict

3、ure2.Picture = LoadPicture(app.path + picfile.jpg)第8题 （2.0分）表示a大于b并且c大于d的布尔表达式是【1】答案：=(答案1)=ab and cd第9题 （2.0分）在VB 6.0中,若要将数值型数据转换成字符串,应使用的类型转换函数是【1】.答案：=(答案1)=STR=或=CSTR第10题 （2.0分）下面程序运行后输出的结果是【1】.Private Sub Command1_Clik()For I=3 To 13 Step 3K=INext IPrint I,kEnd Sub答案：=(答案1)=15 12第11题 （2.0分）可以同时

4、删除字符串前导和尾部空白的函数是【1】答案：=(答案1)=Trim第12题 （2.0分）已知文本框的内容为ABCDE,若文本框Selstart=3,Sellength=2,则SelText为 【1】.答案：=(答案1)=DE=或=DE第13题 （2.0分）要将通用对话框控件添加到工具箱中，应单击【1】菜单中的部件命令。答案：=(答案1)=工程第14题 （2.0分）要获得数组的上界通过【1】函数.答案：=(答案1)=Ubound第15题 （2.0分）OptionButton是【1】控件。答案：=(答案1)=单选按钮二、判断 共10题 （共计10分）第1题 （1.0分）Image 控件不能用作容器

5、使用.答案：Y第2题 （1.0分）一个目标程序所需的所有文件的集合称为工程。答案：Y第3题 （1.0分）在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。答案：Y第4题 （1.0分）Do-Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。答案：Y第5题 （1.0分）面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.答案：Y第6题 （1.0分）VB的所有控件在程序运行以后都是可见的。答案：N第7题 （1.0分）当计时器控件的interval属性值设置为0时,会连续不断地激发Timer事件.答案：N第8题 （1.0分）要使某控件的

6、背景颜色设置为浅灰色，应对其ForeColor属性进行设置答案：N第9题 （1.0分）在框架控件内的几个单选按钮中,可有一个或多个单选按钮的Value属性为True.答案：N第10题 （1.0分）工具箱提供了Visual Basic中所有控件。答案：N三、单项选择 共20题 （共计20分）第1题 （1.0分）以下()不是启动菜单编辑器的方法.A:单击工具栏菜单图标B:工具/菜单编辑器 (CTRL+E)C:窗体上快捷菜单/菜单编辑器D:菜单/菜单编辑器答案：D第2题 （1.0分）如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是_.A:HideB:ShowC:LoadD:Unload答案

7、：D第3题 （1.0分）以下能够触发文本框Change事件的操作是( )A:文本框失去焦点B:文本框获得焦点C:设置文本框的焦点D:改变文本框的内容答案：D第4题 （1.0分）设菜单中有一个菜单项为字体，若要为该菜单项设置访问键，即按下Alt及字母F时，能够执行字体命令，则在菜单编辑器中设置字体菜单项的方式是（ ）。A:把Name属性设置为字体（F）B:把Caption属性设置为字体（F）C:把Name属性设置为字体（&F）D:把Caption属性设置为字体（&F）答案：D第5题 （1.0分）当事件能被触发时,()就会对该事件作出响应.A:对象B:程序C:控件D:窗体答案：A第6题 （1.0分

8、）计时器的interval属性为0时,表示().A:计时器失效B:相隔0秒C:相隔0 毫秒D:计时器的enable属性为false答案：A第7题 （1.0分）()属性决定了按Tab键时焦点在各个控件之间移动的顺序.A:IndexB:TabStopC:TablndexD:SetFocus答案：C第8题 （1.0分）下列说法中正确的是（ ）。A:任何时候都可以通过执行工具菜单中的菜单编辑器命令打开菜单编辑器B:只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C:任何时候都可以通过单击标准工具栏上的菜单编辑器按钮打开菜单编辑器D:只有当代码窗口为当前活动窗口时，才能打开菜单编辑器答案：B第9题 （

9、1.0分）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_。A:Private Sub List1_Click() Label1.Caption = List1.ListIndexEnd SubB:Private Sub List1_Click() Label1.Name=List1.ListIndexEnd SubC:Private Sub List1_Click() Label1.Name=List1.TextEnd SubD:Private Sub L

10、ist1_Click() Label1.Caption =List1.TextEnd Sub答案：D第10题 （1.0分）要使文本框获得输入焦点,则应采用文本框控件的哪个方法().A:GodFocusB:LostFocusC:KeyPressD:SetFocus答案：D第11题 （1.0分）用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:HideB:CheckedC:VisibleD:Enabled答案：C第12题 （1.0分）窗体Form1的Name属性是Frm1，它的单击事件过程名是（ ）。A:Form_ClickB:Frm1_ClickC:Form_DblClick

11、D:Frm1_DblClick答案：A第13题 （1.0分）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）A:工程资源管理器窗口B:工具箱窗口C:代码窗口D:属性窗口答案：C第14题 （1.0分）下面说法正确的是A:一个VB应用程序至少有一个工程文件和一个窗体文件B:一个VB应用程序至少有一个工程文件和一个类模块C:一个VB应用程序至少有一个窗体文件和一个标准模块D:一个VB应用程序至少有一个标准模块和一个类模块答案：A第15题 （1.0分）用下面语句定义的数组的元素个数是()Dim A (-2 To 4) As IntegerA:6B:5C:7D:8答案：C第16题 （1.0分）

12、执行下面程序段后,变量x的值为_. x=5 For I=1 To 20 step 2 x=x+I5 Next IA:21B:22C:23D:24答案：A第17题 （1.0分）设在菜单编辑器中定义了一个菜单项名为menu1，为了在运行时隐藏该菜单项，应使用的语句是（ ）。A:menu1.Enabled=TrueB:menu1.Enabled=FalseC:menu1.Visible=TrueD:menu1.Visible=False答案：D第18题 （1.0分）在VB中能够将数值型转化为字符型数据的函数是（ ）A:len(）B:val(）C:str(）D:space(）答案：C第19题 （1.0

13、分）设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是（ ）。A:List1.ListB:List1.ListIndexC:List1.TextD:List1.Index答案：C第20题 （1.0分）将条件a大于等于b且a不等于0写成VB的表达式，其正确的形式是（ ）A:a=b or a0B:a=b and a0C:a=b or a0D:a=b and a0答案：B四、程序填空 共2题 （共计20分）第1题 （10.0分）-【程序填空】-题目：下列程序功能是在键盘上输入月份的数值，即112之间的一个整数，计算机即打印出该月份的季节（12，1，2为冬季，其

14、余类推）。如输入7，则打印出夏季，请补充完整程序。-Private Sub Form_Click() Dim n%, m% Do n = InputBox(The number of mouth -) Loop While n 12*SPACE* m=【?】*SPACE* Select Case 【?】 Case 1 Print 春季 Case 2 Print 夏季 Case 3 Print 秋季 Case Else Print 冬季 End SelectEnd Sub答案：=(答案1)=n 3=(答案2)=m第2题 （10.0分）-【程序填空】-题目：窗体上添加一个名为command1的命令

15、按钮，程序运行后，单击命令按钮，用Array函数建立一个含有5个元素的数组，计算给定的5个数中负数之和。请将程序补充完整。-Option Base 1Private Sub Command1_Click() Dim x, s&, k% x = Array(-32, 47, 13, 9, -3) s = 0*SPACE* For k = 【?】 To Ubound(x)*SPACE* If 【?】 Then*SPACE* 【?】 End If Next k Print 负数之和是：; sEnd Sub答案：=(答案1)=1=或=Lbound(x)=(答案2)=x(k)x(k)=(答案3)=s=s

16、+x(k)=或=s= s + x(k)五、程序设计 共1题 （共计10分）第1题 （10.0分）-【程序设计】-题目：(事件)单击窗体。 (响应)求1!+2!+3!+10!的值，并在窗体上输出。 结果存入变量L中。 要求：用for语句实现。-答案：-Dim i As Integer Dim s As Long Dim l As long s = 1 For i = 1 To 10 s = s * i l = l + s Next Print l-六、VB窗体设计 共1题 （共计10分）第1题 （10.0分）-【窗体设计】-题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。-1、添加

17、控件 文本框(Text1)。 框架(Frame1)。 按钮(Command1)。 列表框(List1)。 标签(Label1)。 在框架(Frame1)内添加单选按钮(Option1，Option2)。2、窗体设置 名称(Name)属性为“Form2”。 标题(Caption)属性为“姓名列表”。3、标签设置 标签(Label1)标题(Caption)属性为“在下面文本框中输入姓名”。4、文本框设置 适当调整文本框(Text1)的位置和大小。5、框架设置 框架(Frame1)标题(Caption)属性为“选择性别”。6、单选框设置 单选框(Option1)的标题(Caption)属性为“男”。 单选框(Option2)的标题(Caption)属性为“女”。 7、列表框设置 列表框(List1)中添加一条纪录为“这是一个列表框”。8、按钮设置 按钮(Command1)的标题(Caption)属性为“添加”。