vb考题

一、选择题(个别题目为多项选择题) 1、激活主菜单的按键是() A.F1或Ctrl键 B.Ctrl键或Atl键 C.F10或Ctrl键 D.F10或Atl键 2.如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失. A.Visible B.Enabled C.DisabledPicture D.Default 3.退出Visual Basic的快捷键是() A.Ctrl +Q B.Shift +Q C.Alt+Q D.Ctrl+Alt+Q 4.除了系统默认的工具箱布局外,在Visual Basic中还可以通过()方*来定义选项卡组织安排控件. A.在工具箱单击鼠标右键,执行快捷菜单中的“添加选项卡”命令 B.执行“文件”菜单中的“添加工程”命令 C.执行“工程”菜单中的“添加窗体”命令 D.执行“工程”菜单中的“部件”命令 5.窗体设计器是用来设计() A.应用程序的代码段 B.应用程序的界面 C.对象的属性 D.对象的事件 6.启动Visual Basic后,系统为用户新建的工程起一个名为()的临时名称. A.工程1 B.窗体1 C.工程 D.窗体 7.工程资源管理器窗口中包含的文件类型有()种. A.2 B.3 C.4 D.5 8.Visual Basic的编程机制是() A.可视化 B.面向对象 C.面向图形 D.事件驱动 9.Visual Basic集成环境的大部分窗口都可以从主菜单项()的下拉菜单中找到相应的打开命令. A.编辑 B.视图 C.格式 D.调试 10.要在窗体上显示图片,需设置窗体的()属性. A.Caption B.Icon C.Picture D.ControlBox 11.每个窗体对应一个窗体文件,窗体文件的扩展名是() A..bas B..cls C..frm D..vbp 12.双击窗体的任何地方,可以打开的窗口是() A.代码窗口 B.属性窗口 C.工程管理窗口 D.以上3个选项都不对 13.工具栏中的“启动”按钮的作用是() A.运行一个应用程序 B.运行一个窗体 C.工程管理窗口 D.打开被选中对象的代码窗口 14.运行时,单击窗体将窗体的前景色设置为红色的事件过程是() A. Private Sub Form_Click( ) B.Private Sub Form_Click( ) BackColor=vbRed Form1.ForeColor=vbRed End Sub End Sub C.Private Sub Form_Click( ) D.Private Sub Form_Click( ) Form1.BackColor=vbRed ForeColor=vbRed End Sub End Sub 15.如果要在命令按钮上显示图形文件,应设置命令按钮的() A.Style属性和Graphics属性 B.Style属性和Picture属性 C.Picture属性 D.Graphics属性 16.英文缩写OLE的含义是() A.面向对象程序设计 B.对象链接 C.对象嵌入 D.对象链接与嵌入 17.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示()事件过程 模板 个人简介word模板免费下载关于员工迟到处罚通告模板康奈尔office模板下载康奈尔 笔记本 模板 下载软件方案模板免费下载 . A.Form_Click B.Form_Load C.Form1_Click D.Form1_Load 18.每建立一个窗体,工程管理器窗口中就会增加一个() A.工程文件 B.窗体文件 C.程序模块文件 D.类模块文件 19.激活属性窗口使用的键是() A.F2 B.F3 C.F4 D.F5 20.Visual Basic是一种()程序设计语言. A.过程式 B.非过程式 C.机器 D.低级 21.不能在运行期间设置窗体的()属性. A.BorderStyle B.Caption C.Icon D.MaxButton 22.设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是() A.cmdc B.cmdb C.cmdA D.Command1 bacab acdbc caa(bd)b dbbcb (ad)c 一、单项选择题 1. 为了在按下回车键时执行某个按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是() A.value B.Cancle C.Enable D.Default 2.要把一个命令按钮设置成无效,应设置其哪一属性值() A.Visible B.Enabled C.Default D.Cancel 3.下列叙述正确的是() A.对象是包含数据又包含对象数据进行操作的方*的物理实体 B.对象的属性只能在属性窗口中设置 C.不同的对象能识别不同的事件 D.事件过程都要由用户点击对象来触发 4.事件的名称() A.都要由用户定义 B.有的由用户定义,有的由系统定义 C.都是由系统预先定义 D.是不固定的 5.窗体的Caption属性的作用是() A.确定窗体的名称 B.确定窗体的标题 C.确定窗体的边界类型 D.确定窗体的字体 6.Cls方*可以清除窗体或图片框中的() 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 . A.在设计阶段使用Picture设置的背景位图 B.在设计阶段放置的控件 C.在运行阶段产生的图形和文字 D.以上全部内容 7.能够改变窗体边框线类型的属性是() A.FontStyle B.BorderStyle C.BackStyle D.Border 8.要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为() A.0没 B.1 水平 C.2 垂直 D.3 9.要使文本框获得输入焦点,则应采用文本框控件的哪个方*() A.GodFocus B.LostFocus C.KeyPress D.SetFocus 10.能够获得一个文本框中被选取文本的内容的属性是() A.Text B.Length C.SelText D.SelStart 11.要使标签能够显示所需要的广西,则在程序中应设置其哪一属性的值() A.Caption B.Text C.Name D.AutoSize 12.要使标签中显示的文本靠右显示,则应将其Alignment属性设置为() A.0 左 B.1 右 C.2 中 D.3 13.要使标签所在处透明显示背景,应把其Backstyle属性设置为() A.0 B.1 不透明 C.2 D.3 14.“对象”是计算机系统运行的() A.程序单位 B.逻辑单位 C.物理实体 D.基本实体 15.窗体的Enable属性的属性值是()类型的数据. A.整型 B.字符型 C.逻辑型 D.实型 16.下列各种窗体事件中,不能由用户触发的事件是() A.Load事件和Unload事件 B.Click事件和Unload事件 C.Click事件和Dbclick事件 D.Load事件和Initialize事件 17.控件是() A.建立对象的工具 B.设置对象属性的工具 C.编写程序的编辑器 D.建立图形界面的编辑窗口 18.当事件能被触发时,()就会对该事件作出响应. A.对象 B.程序 C.控件 D.窗体 19.当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之 后,如果要保持该所画图形的完整性,可以选择触发()事件来完成图形的重画工作. A.Paint B.Load C.Click D.Active 20. 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 工具箱中的控件() A.数目是固定不变的 B.数目可以增加或减少 C.包含了Visual Basic所有控件 D.在窗体建立对象时不一定被使用 dbccb cbddc abadc daaab 一、选择题((1)~(20)每小题2分,(21)~(30)每小题3分,共70分) 下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。 (1)以下叙述中错误的是 A)Visual Basic 是事件驱动型可视化编程工具 B)Visual Basic应用程序不具有明显的开始和结束语句 C)Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D)Visual Basic中控件的某些属性只能在运行时设置 (2)以下叙述中错误的是) A在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B)以.BAS为扩展名的文件是标准模块文件 C)窗体文件包含该窗体及其控件的属性 D)一个工程中可以含有多个标准模块文件 (3)以下叙述中错误的是 A)双击鼠标可以触发DblClick事件 B)窗体或控件的事件的名称可以由编程人员确定 C)移动鼠标时,会触发MouseMove事件 D)控件的名称可以由编程人员设定 (4)以下不属于Visual Basic系统的文件类型是 A).frm B).bat C).vbg D).vbp (5)以下叙述中错误的是 A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件 B)保存Visual Basic程序时,应分别保存窗体文件及工程文件 C)Visual Basic应用程序只能以解释方式执行 D)事件可以由用户引发,也可以由系统引发 (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 TelBook C)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 (8)设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 A)List1.List B)List1.ListIndex C)List1.Index D)List1. Text (9)程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是 A)MouseDown B)MouseUp C)Load D)Click (10)设a=10,b=5,c=1,执行语句Print a > b > c后,窗体上显示的是 A)True B)False C)1 D)出错信息 (11)如果要改变窗体的标题,则需要设置的属性是 A)Caption B)Name C)BackColor D)BorderStyle (12)以下能判断是否到达文件尾的函数是 A)BOF B)LOC C)LOF D)EOF (13)如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是 A)如果工程中含有Sub Main过程,则程序一定首先执行该过程 B)不能把标准模块设置为启动模块 C)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体 D)任何时刻最多只有一个窗体是活动窗体 (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个项目,则以下能删除最后一项的语句是 A)Combo1.RemoveItem Text B)Combo1.RemoveItem 2 C)Combo1.RemoveItem 3 D)Combo1.RemoveItem Combo1.Listcount (16)以下关于焦点的叙述中,错误的是 A)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据 B)当文本框失去焦点时,触发LostFocus事件 C)当文本框的Enabled属性为False时,其Tab顺序不起作用 D)可以用TabIndex属性改变Tab顺序 (17)如果要在菜单中添加一个分隔线,则应将其Caption属性设置为 A)= B)* C)& D)- (18)执行语句Open "Tel.dat" For Random As #1 Len = 50后,对文件Tel.dat中的数据能够执行的操作是 A)只能写,不能读 B)只能读,不能写 C)既可以读,也可以写 D)不能读,不能写 (19)在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是 A)10 B) 20 C) 30 D)40 (20)设有以下循环结构 Do 循环体 Loop While <条件> 则以下叙述中错误的是 A)若"条件"是一个为0的常数,则一次也不执行循环体 B)"条件"可以是关系表达式、逻辑表达式或常数 C)循环体中可以使用Exit Do语句 D)如果"条件"总是为True,则不停地执行循环体 (21)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A)1 3.4 5.8 B)1 3 5 C)1 4 7 D)无数据输出 (22)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a-1 Loop While a <= 0 Print s; a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A) 7 9 B) 34 0 C) 9 7 D)死循环 (23)设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A)10 5 B)20 5 C)20 40 D)10 40 (24)设有如下通用过程: Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是 A)10 B)15 C)25 D)24 (25)在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 A)89 B)99 C)23 D)77 (26)在窗体上画两个滚动条,名称分别为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() Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)) End Sub B)Private Sub Command1_Click() Label3.Caption = HScroll1.Value * HScroll2.Value End Sub C)Private Sub Command1_Click() Label3.Caption = HScroll1 * HScroll2 End Sub D)Private Sub Command1_Click() Label3.Caption = HScroll1. Text * HScroll2.Text End Sub (27)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是 A)15 B)18 C)21 D)24 (28)在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text = "" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后,如果按"A"键,然后单击窗体,则在窗体上显示的内容是 A)Visual Basic B)程序设计 C)A程序设计 D)Visual Basic程序设计 (29)设有如下程序: Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是 A)1+1/2+ 2/3+3/4+4/5 B)1+1/2+2/3+3/4 C)1/2+2/3+3/4+4/5 D)1+1/2+1/3+1/4+1/5 (30)以下有关数组定义的语句序列中,错误的是 A) Static arr1(3) B)Dim arr2() As Integer arr1(1) = 100 < p > Dim size As Integer arr1(2) = "Hello" < p > Private Sub Command2_Click() arr1(3) = 123.45 size = InputBox("输入:") ReDim arr2(size) ...... End Sub C)Option Base 1 D)Dim n As Integer Private Sub Command3_Click() Private Sub Command4_Click() Dim arr3(3) As Integer Dim arr4(n) As Integer ............ End Sub End Sub 二、填空题(每空2分,共30分) 请将每空的正确 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。 (1)执行下面的程序段后,i的值为【1】,s的值为【2】。 s = 2 For i = 3.2 To 4.9 Step 0.8 s = s + 1 Next i (2)把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后,如果直接按键盘上的"A"键(即不按住Shift键),则在窗体上输出的字符分别是【3】和【4】。 (3)在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程: Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 【5】 End Sub Private Sub Form_Click() Timer1.Enabled = 【6】 End Sub Private Sub Timer1_Timer() Label1.Caption = 【7】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。请填空。 (4)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() S$ = InputBox("请输入一个字符串") Text1.Text = S$ End Sub Private Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)) End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"VisualBasic",则 在标签中显示的内容是【8】。 (5)在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为:"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择"第三个项目"的情况)。下面是实现上述功能的程序,请填空。 Private Sub Command1_Click() If List1.ListIndex >= 【9】 Then List1.RemoveItem 【10】 Label1.Caption = 【11】 Else MsgBox "请选择要删除的项目" End If End Sub (6)设有程序: Option Base 1 Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 【12】 = arr1(1) For i = 1 To 8 If arr1(i) > Max Then 【13】 Next i Print "最大值是: "; Max End Sub 以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。 (7)以下程序的功能是:把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open ".\smtext1.txt" 【14】 As #1 Do While 【15】 Input #1, inData Text1.Text = Text1.Text & inData Loop Close #1 End Sub 附:答案 一、选择题 (1) C (2) A (3) B (4) B (5) C (6) A (7) B (8) D (9) C (10)B (11)A (12)D (13)A (14)A (15)B (16)A (17)D (18)C (19)A (20)A (21)B (22)C (23)C (24)A (25)C (26)D (27)C (28)D (29)C (30)D 二、填空题 (1)【1】 5.6 【2】 5 (2)【3】 A 【4】 a (3)【5】 1000 【6】 True 或任何非0数值【7】 Time 或 Time$ (4)【8】 BASIC (5)【9】 0 【10】 List1.ListIndex 【11】 List1.ListCount (6)【12】 Max 【13】 Max = arr1(i) (7)【14】 For Input 【15】 Not EOF(1) 计算机等级考试Visual Basic语言程序设计试卷(二) (考试时间90分钟,满分100分) 一、选择题((1)~(20)每小题2分,(21)~(30)每小题3分,共70分) 下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。 (1)以下不能在"工程资源管理器"窗口中列出的文件类型是 A).bas B).res C).frm D).ocx (2)以下关于窗体的描述中,错误的是 A)执行Unload Form1语句后,窗体Form1消失,但仍在内存中 B)窗体的Load 事件在加载窗体时发生 C)当窗体的Enabled 属性为False时,通过鼠标和键盘对窗体的操作都被禁止 D)窗体的Height、Width属性用于设置窗体的高和宽 (3)下列可作为Visual Basic变量名的是 A)A#A B)4A C)?xy D)constA (4)设有如下的 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 类型 Type Student number As String name As String age As Integer End 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.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)Cos^2(a+b)+ 5*exp(2) C)Cos (a+b) ^2+5*ln(2) D)Cos^2(a+b)+ 5*ln(2) (7)在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End 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 before yesterday (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.ListIndex 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 (11)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: 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 x End Sub 程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是 A)3 B)4 C)5 D)6 (12)以下关于菜单的叙述中,错误的是 A)在程序运行过程中可以增加或减少菜单项 B)如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项 C)弹出式菜单在菜单编辑器中设计 D)利用控件数组可以实现菜单项的增加或减少 (13)在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是 A)Tag B)Inde x C)ListIndex D)Name (14)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A)空白 B)错误提示 C)北京 D)上海 (15)假定有以下函数过程: Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1)) + s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox("请输入一个字符串") Str2 = Fun(Str1) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击"确定"按钮后在窗体上的输出结果为 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA (16)设有语句 Open "c:\Test.Dat" For Output As #1 则以下错误的叙述是 A)该语句打开C盘根目录下一个已存在的文件Test.Dat B)该语句在C盘根目录下建立一个名为Test.Dat的文件 C)该语句建立的文件的文件号为1 D)执行该语句后,就可以通过Print #语句向文件Test.Dat中写入信息 (17)以下叙述中错误的是 A)用Shell函数可以调用能够在Windows下运行的应用程序 B)用Shell函数可以调用可执行文件,也可以调用Visual Basic的内部函数 C)调用Shell函数的格式应为:<变量名>=S hell (……) D)用Shell函数不能执行DOS命令 (18)以下关于过程及过程参数的描述中,错误的是 A)过程的参数可以是控件名称 B)用数组作为过程的参数时,使用的是"传地址"方式 C)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体可以作为过程的参数 (19)在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(keyascii as integer) …… End Sub 若焦点位于文本框中,则能够触发KeyPress事件的操作是 A)单击鼠标 B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键 (20)目录列表框的Path属性的作用是 A)显示当前驱动器或指定驱动器上的路径 B)显示当前驱动器或指定驱动器上的某目录下的文件名 C)显示根目录下的文件名 D)只显示当前路径下的文件 (21)假定有如下事件过程: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是 A)该过程的功能是弹出一个菜单 B)popForm是在菜单编辑器中定义的弹出式菜单的名称 C)参数X、Y指明鼠标的当前位置 D)Button = 2表示按下的是鼠标左键 (22)以下能够正确计算n!的程序是 A)Private Sub Command1_Click() n = 5: x = 1 Do x = x * i i = i + 1 Loop While i < n Print x End Sub B)Private Sub Command1_Click() n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n Print x End Sub C)Private Sub Command1_Click() n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i <= n Print x End Sub D)Private Sub Command1_Click() n = 5: x = 1: i = 1 Do i = i + 1 Loop While i > n Print x End Sub (23)在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X = 5: Y = 3 Call proc(X, Y) Label1.Caption = X Label2.Caption = Y End Sub Private Sub proc(ByVal a As Integer, ByVal b As Integer) X = a * a Y = b + b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 A)5和3 B)25和3 C)25和6 D)5和6 (24)在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是 A)1 B)5 C)27 D)45 (25)在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是 A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30 (26)设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程: Private Sub Command1_Click() Static b As Variant b= Array(1,3,5,7,9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功能,省略号处的程序段应该是 A)For i = 0 To 5-1 \ 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next B)For i = 0 To 5 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next C)For i = 0 To 5 \ 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next D)For i = 1 To 5 \ 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next (27)在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2,标题分别为空白和"共有文件"的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。如图所示。 能够正确实现上述功能的程序是 A) Private Sub Dir1_Change() B)Private Sub Dir1_Change() File1.Path = Dir1.Path File1.Path = Dir1.Path End Sub End Sub Private Sub Drive1_Change() Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Dir1.Path = Drive1.Drive Label1.Caption = File1.ListCount Label1.Caption = File1.List End Sub End Sub C)Private Sub Dir1_Change() D) Private Sub Dir1_Change() File1.Path = Dir1.Path File1.Path = Dir1.Path Label1.Caption = File1.ListCount Label1.Caption = File1.List End Sub End Sub Private Sub Drive1_Change() Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Dir1.Path = Drive1.Drive Label1.Caption = File1.ListCount Label1.Caption = File1.List End Sub End Sub (28)一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFunc 的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程,其定义格式为: Form1中定义的过程: Private Sub frmFunction1() …… End Sub Form2中定义的过程: Public Sub frmFunction2() …… End Sub mdlFunc中定义的过程: Public Sub mdlFunction() …… End Sub 在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是 A)上述三个过程都可以在工程中的任何窗体或模块中被调用 B)frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用 C)上述三个过程都只能在各自被定义的模块中调用 D)只有mdlFunction过程能够被工程中各个窗体或模块调用 (29)窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击"保存"按钮时,将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是 A)Open "c:\Test29.dat" For Random As #1 Put #1, 1, p Close #1 B)Open "c:\Test29.dat" For Random As #1 Get #1, 1, p Close #1 C)Open "c:\Test29.dat" For Random As #1 Len = Len(p) Put #1, 1, p Close #1 D)Open "c:\Test29.dat" For Random As #1 Len = Len(p) Get #1, 1, p Close #1 (30)在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为"Save",缺省文件名为"SaveFile",在"文件类型"栏中显示*.txt。则能够满足上述要求的程序是 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 Sub B)Private Sub Command1_Click() CommonDialog1.FileName = "SaveFile" CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialog1.FilterIndex = 1 CommonDialog1.DialogTitle = "Save" CommonDialog1.Action = 2 End Sub C)Private Sub Command1_Click() CommonDialog1.FileName = "Save" CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "SaveFile" CommonDialog1.Action = 2 End Sub D)Private Sub Command1_Click() CommonDialog1.FileName = "SaveFile" CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialog1.FilterIndex = 1 CommonDialog1.DialogTitle = "Save" CommonDialog1.Action = 1 End Sub 二、填空题(每空2分,共30分) 请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。 (1)Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是【1】组合框或组合。 (2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制访问方式。 顺序访问方式或顺序访问 (3)执行下面的程序段后,变量S的值为【3】。9 S = 5 For i = 2.6 To 4.9 Step 0.6 S = S + 1 Next i (4)为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1,所 使用的语句为【4】。Picture1.Picture = LoadPicture("d:\pic\a.jpg") (5)计时器控件能有规律的以一定时间间隔触发【5】事件,并执行该事件过程中的程序代码。 (6)以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click() For i = 1 To 20 x = Int( 【6】 * 200 + 100) If 【7】 = 0 Then Print x S = S + 【8】 End If Next i Print "Sum = "; S End Sub (7)设有如下程序 Private Sub Form_Click() Dim a As Integer, b As Integer a = 20: b = 50 p1 a, b p2 a, b p3 a, b Print "a="; a, "b="; b End Sub Sub p1(x As Integer, ByVal y As Integer) x = x + 10 y = y + 20 End Sub Sub p2(ByVal x As Integer, y As Integer) x = x + 10 y = y + 20 End Sub Sub p3(ByVal x As Integer, ByVal y As Integer) x = x + 10 y = y + 20 End Sub 【9】 30 【10】 70 该程序运行后,单击窗体,则在窗体上显示的内容是:a = 【9】和 b = 【10】。 (8)在窗体上画一个名称为Command1的命令按钮,编写如下事件过程 Private Sub Command1_Click() Dim a As String a = 【11】 For i = 1 To 5 Print Space(6 - i); Mid$(a, 6 - i, 2 * i - 1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。 (9)在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption 属性分别为"城市名称"和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示"已成功添加输入项"如图所示;如果存在,则在Label2中给出提示"输入项已在组合框中"。请在【12】、【13】和【14】处将程序补充完整。 Private Sub Combo1_ 【12】 (KeyAscii As Integer) If KeyAscii = 13 Then For i = 0 To Combo1.ListCount-1 If Combo1.Text = 【13】 Then Label2.Caption = "输入项已在组合框中" Exit Sub End If Next i Label2.Caption = "已成功添加输入项" Combo1. 【14】 Combo1.Text End If End Sub (10)设有如下程序 Private Sub search(a() As Variant, ByVal key As Variant, index%) Dim I% For I = LBound(a) To UBound(a) If key = a(I) Then index = I Exit Sub End If Next I index = -1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1, 3, 5, 7, 9, 11, 13, 15) Call search(b, 11, n) Print n End Sub 程序运行后,输出结果是【15】。 } 附:答案 一、选择题 (1)D (2)A (3)D (4)B (5)B (6)A (7)C (8)C (9)A (10)D (11)D (12)B (13)B (14)D (15)D (16)A (17)B (18)C (19)D (20)A (21)D (22)C (23)B (24)B (25)C (26)C (27)C (28)D (29)C (30)A 二、填空题 (1)【1】组合框或组合 (2)【2】顺序访问方式或顺序访问 (3)【3】 9 (4)【4】 Picture1.Picture = LoadPicture("d:\pic\a.jpg") 或 Picture1 = LoadPicture("d:\pic\a.jpg") (5)【5】 Timer (6)【6】 Rnd或Rnd(n),其中n为任意整数 【7】 x Mod 5 或 Int(x/5)-x/5或 x/5-Int(x/5) 或 CInt(x/5)-x/5 或 x/5-CInt(x/5) 或 Round(x/5)-x/5或 x/5-Round(x/5) 或 x-(x\5)*5 或 (x\5)*5 -x 或Fix(x/5)-x/5或x/5- Fix(x/5) 【8】 x (7)【9】 30 【10】 70 (8)【11】 "123456789" (9)【12】 KeyPress 【13】 Combo1.List(i) 【14】 AddItem (10)【15】 5