计算机二级VB历年试题及答案

1、全国计算机等级考试历年试题二级VB试题分类汇编一、集成开发环境基本操作、窗体2002年9月二级VB(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A) 工程资源管理器窗口 B) 工具箱窗口 C) 代码窗口 D) 属性窗口(2) 以下叙述中正确的是A) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的Name属性的值D) 对象的Name属性值可以为空(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框(31) 以下叙述中错误的是

2、A) 一个工程中只能有一个Sub Main过程B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C) 窗体的Hide方法和Unload方法的作用完全相同D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体(32) 以下叙述中错误的是A) 一个工程中可以包含多个窗体文件B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D) 全局变量必须在标准模块中定义2003年4月二级VB（1）以下不能在工程资源管理器窗口中列出的文件类型是A）.Bas B）.Res C）.Frm D）.O

3、cx（2）以下关于窗体的描述中，错误的是A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中B）窗体的Load 事件在加载窗体时发生C）当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Height、Width属性用于设置窗体的高和宽2003年9月二级VB（1）以下叙述中错误的是A）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能

4、在运行时设置 （2）以下叙述中错误的是A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（4）以下不属于Visual Basic系统的文件类型是A）.Frm B）.Bat C）.Vbg D）.Vbp（5）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（13）如

5、果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有Sub Main过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体2005年9月二级VB（11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件转贴（12）为了清除窗体上的一个控件，下列正确的操作是A）按回车键B）按Esc键C）选择（单击）要清除

6、的控件，然后按Del键D）选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的Dblclick事件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有Sub Main过程，则程序一定首先执行该过程二、常用控件2002年9

7、月二级VB(11) 以下能够触发文本框Change事件的操作是A) 文本框失去焦点 B) 文本框获得焦点C) 设置文本框的焦点 D) 改变文本框的内容(12) 在窗体上有一个文本框控件，名称为Txttime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _() Txttime.Text=TimeEnd Sub在下划线上应填入的内容是A) Enabled B) Visible C) Interval D) Timer(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体

8、”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是A) Option1.Value=True B) Option1.Value=True Check1.Value=False Check1.Value=TrueC) Option2.Value=False D) Option1.Value=True Check1.Value=True Check1.Value=1(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程

9、，需要把该命令按钮的一个属性设置为True，这个属性是A) Value B) Default C) Cancel D) Enabled(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 A) Autosize B) Stretch C) Autoredraw D) Appearance(26) 以下叙述中错误的是A) 在Keyup和Keydown事件过程中，从键盘上输入A或A被视作相同的字母(即具有相同的Keycode) B) 在Keyup和Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的Keycode) C) Keyp

10、ress事件中不能识别键盘上某个键的按下与释放D) Keypress事件中可以识别键盘上某个键的按下与释放(27) 以下叙述中错误的是A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C) 程序运行过程中，可以重新设置菜单的Visible属性D) 弹出式菜单也在菜单编辑器中定义(28) 设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是A) Menu1.Enabled=True B) Munu1.Enabled=FalseC) Menu1.Visible=True D) Menu1.

11、Visible=False(29) 以下叙述中错误的是A) 在程序运行时，通用对话框控件是不可见的B) 在同一个程序中，用不同的方法(如Showopen或Showsave等）打开的通用对话框具有不同的作用C) 调用通用对话框控件的Showopen方法，可以直接打开在该通用对话框中指定的文件D) 调用通用对话框控件的Showcolor方法，可以打开颜色对话框(30) 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.Txt文件)，则正确的描述格式是 A) “Text (.Txt)|*.Txt)” B)“文本文件( .Txt) | (.Tx

12、t)”C) “Text(.Txt)|(*.Txt)” D)“Text(.Txt)(*.Txt)”2003年4月二级VB（9）表示滚动条控件取值范围最大值的属性是A）Max B）Largechange C）Value D）Max-Min（10）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A） Private Sub List1_Click() B）Private Sub List1_Click() Label1.Caption = List1.Listin

13、dex Label1. Name = List1. Listindex End Sub End Sub C） Private Sub List1_Click() D）Private Sub List1_Click() Label1.Name = List1.Text Label1.Caption = List1.Text End Sub End Sub（12）以下关于菜单的叙述中，错误的是A）在程序运行过程中可以增加或减少菜单项B）如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C）弹出式菜单在菜单编辑器中设计D）利用控件数组可以实现菜单项的增加或减少（13）在窗体上画三

14、个单选按钮，组成一个名为Chkoption的控件数组。用于标识各个控件数组元素的参数是A）Tag B）Index C）Listindex D）Name（19）在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：Private Sub Txta_Keypress(Keyascii As Integer)End Sub若焦点位于文本框中，则能够触发Keypress事件的操作是 A）单击鼠标 B）双击文本框 C）鼠标滑过文本框 D）按下键盘上的某个键（21）假定有如下事件过程：Private Sub Form_Mousedown(Button As Integer, Shift As In

15、teger, X As Single, Y As Single) If Button = 2 Then Popupmenu Popform End IfEnd Sub则以下描述中错误的是A）该过程的功能是弹出一个菜单B）Popform是在菜单编辑器中定义的弹出式菜单的名称C）参数X、Y指明鼠标的当前位置D）Button = 2表示按下的是鼠标左键（30）在窗体上画一个名称为Commondialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，缺省文件名为Savefile，在文件类型栏中显示*.Txt。则能够满足上

16、述要求的程序是A）Private Sub Command1_Click() Commondialog1.Filename = Savefile Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 2 Commondialog1.Dialogtitle = Save Commondialog1.Action = 2 End SubB）Private Sub Command1_Click() Commondialog1.Filename = Savefile Com

17、mondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 1 Commondialog1.Dialogtitle = Save Commondialog1.Action = 2 End SubC）Private Sub Command1_Click() Commondialog1.Filename = Save Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Fil

18、terindex = 2 Commondialog1.Dialogtitle = Savefile Commondialog1.Action = 2 End SubD）Private Sub Command1_Click() Commondialog1.Filename = Savefile Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 1 Commondialog1.Dialogtitle = Save Commondialog1.Action = 1

19、End Sub2003年9月二级VB（3）以下叙述中错误的是A）双击鼠标可以触发Dblclick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发Mousemove事件D）控件的名称可以由编程人员设定（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A）List1.List B）List1.Listindex C）List1.Index D）List1. Text（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 A）Mousedown B）Mouseup C）Load D）Click（11）如果要改变窗体的标

20、题，则需要设置的属性是 A）Caption B）Name C）Backcolor D）Borderstyle（14）窗体的Mousedown事件过程Form_Mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数X,Y用来设置鼠标当前位置的坐标（15）设组合框Combo1中有3个项目，则以下能删除最后一

21、项的语句是A）Combo1.Removeitem Text B）Combo1.Removeitem 2C）Combo1.Removeitem 3D）Combo1.Removeitem Combo1.Listcount（16）以下关于焦点的叙述中，错误的是A）如果文本框的Tabstop属性为False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发Lostfocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用Tabindex属性改变Tab顺序（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 A）= B）* C）& D）-（26

22、）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4 Label6分别显示A、B、A*B等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮计算时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是A）Private Sub Command1_Click() La

23、bel3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption) End SubB）Private Sub Command1_Click() Label3.Caption = Hscroll1.Value * Hscroll2.Value End SubC）Private Sub Command1_Click() Label3.Caption = Hscroll1 * Hscroll2 End SubD）Private Sub Command1_Click() Label3.Caption = Hscroll1. Text * Hscro

24、ll2.Text End Sub（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text = Text1.SetfocusEnd SubPrivate Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 程序设计End SubPrivate Sub Text1_Keydown(Keycode As Integer, Shift As Integer) Print Visual Basic;E

25、nd Sub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是A）Visual Basic B）程序设计C）A程序设计 D）Visual Basic程序设计2004年4月二级VB(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(2) 在窗体上有

26、若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A) Tabstop B)EnabledC) Visible D)Tabindex(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For I=0 To List1.Listcount-1 NextB) For I=0 To Listcount-1 NextC) For I=1 To List1.Listcount NextD) For I=1 To Listcount Next(6) 以下关于图片框控件的说法中，错误的是 A) 可以通过Print方法在

27、图片框中输出文本 B) 清空图片框控件中图形的方法之一是加载一个空图形 C) 图片框控件可以作为容器使用 D) 用Stretch属性可以自动调整图片框中图形的大小(8) 以下叙述中错误的是 A) 下拉式菜单和弹出式菜单都用菜单编辑器建立 B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统 C) 除分隔线外，所有菜单项都能接收Click事件 D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见(10) 以下叙述中错误的是 A) 一个工程可以包括多种类型的文件 B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 C) 程序运行后，在内存中只能驻

28、留一个窗体 D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或HeightC) Top和Left D) Top或Left (14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程 Private Sub Command1_Click() Text1.Text = Visual Me.Text1 = Basic Text1 = ProgramEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的是 A) Visual B) Basic

29、 C) Program D) 出错(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() Strtext = Inputbox(请输入) Text1.Text = Strtext End Sub Private Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3) End Sub程序运行后，单击命令按钮，如果在输入对话框中输入Abcdef，则在标签中显示的内容是 A)空 B) Abc

30、def C) Abc D) Def(22) 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A) Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii 90 Then Msgbox 请输入大写字母 Keyascii = 0 End If End SubB)Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer) If Keycode 90 Then Msgbox 请输入大写字母 Keycode = 0 En

31、d IfEnd SubC) Private Sub Text1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) 90 Then Msgbox 请输入大写字母 End If End SubD) Private Sub Text1_Change() If Asc(Text1.Text) 64 And Asc(Text1.Text) 91 Then Msgbox 请输入大写字母 End If End Sub2004年9月二级VB(1) 设窗体上有一个文本框，名称为T

32、ext1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)Text1.Maxlength=0 B)Text1.Enabled=FalseC)Text1.Visible= False D)Text1.Width=0 (2) 以下能在窗体Form1的标题栏中显示“Visualbasic窗体的语句是A) Form1.Name=Visualbasic窗体B) Form1.Title=Visualbasic窗体C) Form1.Caption=Visualbasic窗体D) Form1.Text=Visualbasic窗体”(3) 在窗体上画一个名称为Text1的文本框

33、，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A) Private Sub Hscroll_Change() Text1.Text=Hscroll1.Value End SubB) Private Sub Hscroll_Click() Text1.Text=Hscroll1.Value End SubC) Private Sub Hscroll_Change() Text1.Text=Hscroll.Caption End SubD) Private Sub

34、Hscroll_Click()Text1.Text=Hscroll.CaptionEnd Sub(4) 设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是A) 把Caption属性设置为&OpenB) 把Caption属性设置为O&PenC) 把Name属性设置为&OpenD) 把Name属性设置为O&Pen(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A）Timer1.Interval=0.5 B) Timer1.Interva

35、l=5C) Timer.Interval=50 D) Timer1.Interval=500(9) 以下关于多重窗体程序的叙述中，错误的是A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）在多重窗体程序中，需要单独保存每个窗体(11) 以下叙述中错误的是A）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定(13) 当一个复选框被选中时，它的Value属性的值是A) 3 B) 2 C) 1 D) 0(18)

36、 以下叙述中错误的是A) 在Keypress事件过程中不能识别键盘的按下与释放B) 在Keypress事件过程中不能识别回车键C) 在Keydown和Keyup事件过程中，将键盘输入的A和A视作相同的字母D) 在Keydown和Keyup事件过程中，从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符(20)在窗体上画一个名称为Commanddialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()Commondialog1.Filename =Commondialog1.Filter=All File

37、|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommondialog1.Filterindex=2Commondialog1.Dialogtitle=VbtestCommondialog1.Action=1End Sub对于这个程序，以下叙述中错误的是A） 该对话框被设置为“打开”对话框B） 在该对话框中指定的默认文件名为空C） 该对话框的标题为VbtestD） 在该对话框中指定的默认文件类型为文本文件(*.Txt)(27) 在窗体上画一个名称为Label1、标题为“Visual Basic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和

38、“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。编写如下程序：Private Sub Form_Load()Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left= 【9】 Then List1.Removeitem 【10】 Label1.Caption = 【11】 Else Msgbox 请选择要删除的项目End IfEnd Sub2004

39、年4月二级VB(1) Visual Basic应用程序中标准模块文件的扩展名是【1】 。(2) 在菜单编辑器中建立一个菜单，其主菜单项的名称为Mnuedit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与Mnuedit相应的菜单。以下是实现上述功能的程序，请填空。Private Sub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Then 【3】 MnueditEnd IfEnd Sub(3) 为了使计时器控件Timer1每隔0.5秒触发一次

40、Timer事件，应将Timer1控件的【4】属性设置为【5】。(4) 与数学表达式 对应的Visual Basic表达式是【6】 。(5) 将C盘根目录下的图形文件Moon.Jpg装入图片框Picture1的语句是【7】。(6) 在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。Private Sub Option1_Click(Index As Integer) Select Case 【8】 Case 0 A = 宋体 Case

41、 1 A = 黑体 Case 2 A = 楷体GB2312 End Select Text1. 【9】=AEnd Sub2005年4月二级VB (7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click() Text1.Text = VB程序设计End SubPrivate Sub Text1_Change() Picture1.Print VbprogrammingEnd Sub程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】三、基本语法2002年9月二级VB(4) 设有如下变量声明Dim Testdate

42、 As Date，为变量Testdate正确赋值的表达方式是A) Textdate=#1/1/2002# B) Testdate=#“1/1/2002”#C) Textdate=Date(“1/1/2002”) D) Testdate=Format(“M/D/Yy”,“1/1/2002”)(5) 设有如下声明：Dim X As Integer，如果Sgn(X) 的值为-1，则X的值是A) 整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数(7) 设A=3，B=5，则以下表达式值为真的是A) A=B And B10 B) (AB) Or (B0)C) (A0) D) (-3+5A)

43、And (B0)(8) 设有语句X=Inputbox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是A) 变量X的值是数值10 B) 在Inputbox对话框标题栏中显示的是“示例”C) 0是默认值 D) 变量X的值是字符串“10”(9) 从键盘上输入两个字符串，分别保存在变量Str1、Str2中。确定第二个字符串在第一个字符串中起始位置的函数是A) Left B) Mid C) String D) Instr(10) 设A=“Visual Basic”，下面使B=“Basic”的语句是A) B=Left(A,8,12) B) B=Mid(

44、A,8,5)C) B=Rigth(A,5,5) D) B=Left(A,8,5)2003年4月二级VB（3）下列可作为Visual Basic变量名的是A）A#A B）4A C）?Xy D）Consta（4）设有如下的记录类型Type Student Number As String Name As String Age As IntegerEnd Type则正确引用该记录类型变量的代码是A）Student.Name = 张红 B）Dim S As Student S.Name = 张红C）Dim S As Type Student D）Dim S As Type S.Name = 张红 S.

45、Name = 张红（5）函数String（N, Str）的功能是A）把数值型数据转换为字符串B）返回由N个字符组成的字符串C）从字符串中取出N个字符D）从字符串中第N个字符的位置开始取子字符串（6）将数学表达式Cos2(A+B)+5e2写成Visual Basic的表达式，其正确的形式是A）Cos (A+B) 2+5*Exp(2) B）Cos2(A+B)+ 5*Exp(2)C）Cos (A+B) 2+5*Ln(2) D）Cos2(A+B)+ 5*Ln(2)（7）在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click

46、()A$ = Software And HardwareB$ = Right(A$, 8)C$ = Mid(A$, 1, 8)Msgbox A$, , B$, C$, 1End Sub则在弹出的信息框的标题栏中显示的信息是A）Software And Hardware B）Software C）Hardware D）1（8）执行语句：A = Inputbox(Today, Tomorrow, Yesterday, , , Day Before Yesterday, 5)将显示一个输入对话框，在对话框的输入区中显示的信息是A）Today B）Tomorrow C）Yesterday D）Day

47、Before Yesterday（17）以下叙述中错误的是A）用Shell函数可以调用能够在Windows下运行的应用程序B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数C）调用Shell函数的格式应为：=Shell ()D）用Shell函数不能执行DOS命令2003年9月二级VB（6）以下能正确定义数据类型Telbook的代码是A）Type Telbook B）Type Telbook Name As String*10 Name As String*10 Telnum As Integer Telnum As Integer End Type End T

48、elbookC）Type Telbook D）Typedef Telbook Name String*10 Name String*10 Telnum Integer Telnum Integer End Type Telbook End Type（7）以下声明语句中错误的是 A）Const Var1=123 B）Dim Var2 = ABC C）Defint A-Z D）Static Var3 As Integer（10）设A=10，B=5，C=1，执行语句Print A B C后，窗体上显示的是 A）True B）False C）1 D）出错信息2004年4月二级VB (7) 执行语句S=

49、Len(Mid(Visualbasic,1,6)后，S的值是 A) Visual B) Basic C) 6 D) 11(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() A = 12345 Print Format$(A, 000.00) End Sub程序运行后，单击命令按钮，窗体上显示的是 A) 123.45 B) 12345.00 C) 12345 D)00123.45 (15) 以下关系表达式中，其值为False的是 A) ABCAbc B) TheThey C) VISUAL=Ucase(Vis

50、ual) D) IntegerInt(16) 语句Print 5/4*65 Mod 2的输出结果是 A) 0 B)1 C) 2 D) 3(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X = -5 If Sgn(X) Then Y = Sgn(X 2) Else Y = Sgn(X) End If Print Y End Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -12004年9月二级VB(6) 以下关于Msgbox的叙述中，错误的是A）Msgbox函数返回一

51、个整数B) 通过Msgbox函数可以设置信息框中图标和按钮的类型C) Msgbox语句没有返回值D) Msgbox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量(12) 以下合法的Visual Basic标识符是A) Forloop B) Const C) 9abc D) A#X(14) 表达式 5 Mod 3+35*2的值是A) 0 B) 2 C)4 D) 6(15) 设X=4,Y=8,Z=7，表达式XZ) Or Z2*B Or A=C And BC Or CDA)1B)TrueC)FalseD)2(13)设A=”Microsoftvisualbasic”, 则以下使变量B

52、的值为”Visualbasic”的语句是A) B=Left(A,10)B) B=Mid(A,10)C) B=Right(A,10)D) B=Mid(A,11,10)(14)假定有如下的窗体事件过程：Private Sub Form_Click() A$ = Microsoft Visual Basic B$ = Right(A$, 5) C = Mid(A$, 1, 9) Msgbox A$, 34, B$, C$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A )Microsoft VisualB) MicrosoftC) BasicD) 5 (17)在窗

53、体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() X = Inputbox(请输入一个整数) Print X + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：A)123 B)456 C)579 D)1234562005年9月二级VB （14）设A=2, B=3, C=4, D=5, 下列表达式的值是 Not A=C Or 4*C=B2 And BA+C A）-1 B）1 C）True D）False（15）设A = 5，B = 10，则执行C = I

54、nt(B - A) * Rnd + A) + 1后，C值的范围为 A）510 B）69 C）610 D）59（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() A$ = Software And Hardware B$ = Right(A$, 8) C$ = Mid(A$, 1, 8) Msgbox A$, , B$, C$, 1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A）Software And Hardware B）Software C）Hardware D）1（17）在窗体

55、上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() A = Inputbox(Enter An Integer) B = Inputbox(Enter An Integer) Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 A）108 B）18 C）810 D）出错（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Fo

56、rm_Load() Show Text1.Text = Text2.Text = Text1.SetfocusEnd SubPrivate Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1中输入Beijingchina，则在文本框Text2中显示的内容是 A）Beijingchina B）China C）Beijing D）Beijingc填空题2004年9月二级VB(1) 设有如下程序段：A$=BeijingshanghaiB$=Mid(A$,Instr(A$,G)+1)执行上面的程序段后，变

57、量B$的值为_1_。2005年4月二级VB(6)以下语句的输出结果是: 【6】Print Int(12345.6789*100+0.5)/100分支、循环2002年9月二级VB(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For I=1 To 4 For J=0 To IPrint Chr$(65+I);Next J Print Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A) BB B) A C) B D) AA CCC BB CC BBB DDDD CCC DDD CC

58、CC EEEEE DDDD EEEE DDDDD(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim X As Integer,N As Integer X=1 N=0 Do While X10 Then Exit For Next Text1.Text=Str(N)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 A) 2 B) 3 D) 4 D) 52003年4月二级VB（11）在窗体上画一个名称为Command1的命令按钮，然后编写如下事

59、件过程：Private Sub Command1_Click() X = 0 N = Inputbox() For I = 1 To N For J = 1 To I X = X + 1 Next J Next I Print XEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A）3 B）4 C）5 D）6（22）以下能够正确计算N!的程序是A）Private Sub Command1_Click() N = 5: X = 1Do X = X * II = I + 1Loop While I NPrint XEnd SubB）Private Sub Command1_

60、Click()N = 5: X = 1: I = 1DoX = X * II = I + 1Loop While I NPrint XEnd SubC）Private Sub Command1_Click()N = 5: X = 1: I = 1DoX = X * II = I + 1Loop While I NPrint XEnd Sub2003年9月二级VB（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NC